extbutton

来自「windows下的GDB insight前端」· 代码 · 共 16 行

# ----------------------------------------------------------------------
#  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