![]() |
ActiveTcl User Guide
|
![]() |
iwidgets::extbutton - Extends the behavior of the Tk button by allowing a bitmap or image to coexist with text.
iwidgets::extbutton pathName ?options?
itk::Widget <- iwidgets::Extbutton
options.
-command option. Invoked by either <1> events or by
explicitly calling the public invoke() method.
ring given in any of the forms acceptable to
Tcl_GetBoolean. The default is false.
of the default ring ring given in any of the forms acceptable to
option is set to false. The default is 4 pixels.
nw, s, se, sw, w, wn, ws, e, en, or es. The default is w.
-defaultring is set to boolean true).
_________________________________________________________________
allowing text and an image or bitmap to coexist. The user may use the -image or -bitmap options to specify an image as well as the -imagepos option to specify image position relative to the text.
image/bitmap. There will be an emtpy space next to the text if no image/bitmap is specified.
name is pathName. This command may be used to invoke various operations on the widget. It has the following general form:
pathName cget
pathName component
pathName config
pathName configure
pathName invoke
option.
pathName flash
package require Iwidgets 4.0
iwidgets::extbutton .eb -text «Bitmap example» -bitmap
info \ -background bisque -activeforeground red -bitmapforeground
blue \ -defaultring 1 -command {puts «Bisque is beautiful"}
pack .eb -expand 1
iwidgets::extbutton .eb -text «Image example»
-relief ridge -image \ [image create photo -file
$itk::library/../iwidgets/demos/images/clear.gif] \ -font 9x15bold
-background lightgreen -imagepos e \ -activebackground
lightyellow
pack .eb -expand 1
button, pushbutton