diff options
| -rw-r--r-- | library/demos/images/earthmenu.png | bin | 0 -> 8157 bytes | |||
| -rw-r--r-- | library/demos/menu.tcl | 6 |
2 files changed, 4 insertions, 2 deletions
diff --git a/library/demos/images/earthmenu.png b/library/demos/images/earthmenu.png Binary files differnew file mode 100644 index 0000000..c25b667 --- /dev/null +++ b/library/demos/images/earthmenu.png diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index e32b54f..557bf45 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -114,10 +114,12 @@ set m $w.menu.icon $w.menu add cascade -label "Icons" -menu $m -underline 0 menu $m -tearoff 0 # Main widget program sets variable tk_demoDirectory -$m add command -bitmap @[file join $tk_demoDirectory images pattern.xbm] \ +image create photo lilearth -file [file join $tk_demoDirectory \ +images earthmenu.png] +$m add command -image lilearth \ -hidemargin 1 -command [list \ tk_dialog $w.pattern {Bitmap Menu Entry} \ - "The menu entry you invoked displays a bitmap rather than\ + "The menu entry you invoked displays a photoimage rather than\ a text string. Other than this, it is just like any other\ menu entry." {} 0 OK ] foreach i {info questhead error} { |
