wm title . "Messagedialog Example"
##=========================================================
## Create a messagedialog iwidget
##=========================================================
##
iwidgets::messagedialog .md -title Copyright \
-text "Using iwidgets can be fun!"
##
## get rid of 2 buttons
##
.md hide Apply
.md hide Help
##
## Configure image
##
set img [image create photo -file tcl_logo.gif]
.md configure \
-image $img
##
## change the relief of the image
##
.md component image configure \
-relief groove
##
## Change the text of the first button
##
.md buttonconfigure 0 \
-text "Continue"
.md activate
update
|