You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
645 B
Plaintext
16 lines
645 B
Plaintext
15 years ago
|
# ----------------------------------------------------------------------
|
||
|
|
# 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
|