wm title . "Promptdialog Example"

##=========================================================
##	Create a promptdialog iwidget
##=========================================================
##
iwidgets::promptdialog .pd \
	-labeltext "Enter your security key" \
	-title "Accessing Security Site" \
	-modality application

##
##	Hide Apply; don't need it. Bring
##	back Help though; it is hidden by
##	default
##
.pd show Help
.pd hide Apply

.pd buttonconfigure Help \
	-command {puts "this is the help system"}

##
##	Give focus to the entry widget
##
focus [.pd component prompt component entry]

##
##	Center and activate
##
.pd center
if {[.pd activate]} {

	puts "You have entered your security key"
} else {
	puts "Good-bye!"
}