15 lines
645 B
Text
15 lines
645 B
Text
# ----------------------------------------------------------------------
|
|
# DEMO: extbutton in [incr Widgets]
|
|
# ----------------------------------------------------------------------
|
|
package require Iwidgets 4.0
|
|
|
|
iwidgets::extbutton .eb1 -text "Bitmap example" -bitmap info \
|
|
-background bisque -activeforeground red -bitmapforeground blue \
|
|
-defaultring 1 -command {puts "Bisque is beautiful"}
|
|
|
|
iwidgets::extbutton .eb2 -text "Image example" -bd 3 -image \
|
|
[image create photo -file $iwidgets::library/demos/images/clear.gif] \
|
|
-font 9x15bold -background lightgreen -imagepos e \
|
|
-activebackground lightyellow
|
|
|
|
pack .eb1 .eb2 -pady 8
|