Baoding-FenShuaJiang
/
Green_GoodERP18_FSJ_Standard
Watch 1
Star 0
Wiki 捐赠
gooderp18绿色标准版
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
Green_GoodERP18_FSJ_Standard/python/tcl/tix8.4.3/demos/samples/Xpm.tcl

90 lines
2.9KB
Raw Permalink Blame History 

  1. # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-

  2. #

  3. #	$Id: Xpm.tcl,v 1.3 2001/12/09 05:31:07 idiscovery Exp $

  4. #

  5. # Tix Demostration Program

  6. #

  7. # This sample program is structured in such a way so that it can be

  8. # executed from the Tix demo program "widget": it must have a

  9. # procedure called "RunSample". It should also have the "if" statment

  10. # at the end of this file so that it can be run as a standalone

  11. # program using tixwish.

  12. 

  13. # This file demonstrates the use of XPM images.

  14. #

  15. 

  16. proc RunSample {w} {

  17. 

  18.     set hard_disk_pixmap {/* XPM */

  19. 	static char * drivea_xpm[] = {

  20. 	    /* width height ncolors chars_per_pixel */

  21. 	    "32 32 5 1",

  22. 	    /* colors */

  23. 	    " 	s None	c None",

  24. 	    ".	c #000000000000",

  25. 	    "X	c white",

  26. 	    "o	c #c000c000c000",

  27. 	    "O	c #800080008000",

  28. 	    /* pixels */

  29. 	    "                                ",

  30. 	    "                                ",

  31. 	    "                                ",

  32. 	    "                                ",

  33. 	    "                                ",

  34. 	    "                                ",

  35. 	    "                                ",

  36. 	    "                                ",

  37. 	    "                                ",

  38. 	    "   ..........................   ",

  39. 	    "   .XXXXXXXXXXXXXXXXXXXXXXXo.   ",

  40. 	    "   .XooooooooooooooooooooooO.   ",

  41. 	    "   .Xooooooooooooooooo..oooO.   ",

  42. 	    "   .Xooooooooooooooooo..oooO.   ",

  43. 	    "   .XooooooooooooooooooooooO.   ",

  44. 	    "   .Xoooooooo.......oooooooO.   ",

  45. 	    "   .Xoo...................oO.   ",

  46. 	    "   .Xoooooooo.......oooooooO.   ",

  47. 	    "   .XooooooooooooooooooooooO.   ",

  48. 	    "   .XooooooooooooooooooooooO.   ",

  49. 	    "   .XooooooooooooooooooooooO.   ",

  50. 	    "   .XooooooooooooooooooooooO.   ",

  51. 	    "   .oOOOOOOOOOOOOOOOOOOOOOOO.   ",

  52. 	    "   ..........................   ",

  53. 	    "                                ",

  54. 	    "                                ",

  55. 	    "                                ",

  56. 	    "                                ",

  57. 	    "                                ",

  58. 	    "                                ",

  59. 	    "                                ",

  60. 	    "                                "};

  61.     }

  62. 

  63.     frame $w.top -relief raised -bd 1

  64.     button $w.top.b -image [image create pixmap -data $hard_disk_pixmap]

  65.     pack $w.top -expand yes -fill both

  66.     pack $w.top.b -expand yes -padx 20  -pady 20

  67. 

  68.     tixButtonBox $w.box -orientation horizontal

  69.     $w.box add ok     -text Ok     -underline 0 -command "destroy $w" \

  70. 	-width 6

  71.     $w.box add cancel -text Cancel -underline 0 -command "destroy $w" \

  72. 	-width 6

  73. 

  74.     pack $w.box -side bottom -fill x

  75.     pack $w.top -side top -fill both -expand yes

  76. }

  77. 

  78. 

  79. # This "if" statement makes it possible to run this script file inside or

  80. # outside of the main demo program "widget".

  81. #

  82. if {![info exists tix_demo_running]} {

  83.     wm withdraw .

  84.     set w .demo

  85.     toplevel $w; wm transient $w ""

  86.     RunSample $w

  87.     bind $w <Destroy> exit

  88. }
上海开阖软件有限公司 沪ICP备12045867号-1