#!/bin/sh
# \
	exec itkwish -f "$0" ${1+"$@"}

#
# Demo script for the Promptdialog class
#
option add *textBackground white

wm withdraw .

promptdialog .pd -modality application -title Password \
	-labeltext Password: -show *
.pd buttonconfigure OK -command {.pd deactivate 1}
.pd hide Apply
.pd buttonconfigure Cancel -command {.pd deactivate 0}
.pd hide Help

if {[.pd activate]} {
    puts "Password entered: [.pd get]"
} else {
    puts "Password prompt cancelled"
}



