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