diff options
Diffstat (limited to 'iwidgets/demos/promptdialog')
| -rw-r--r-- | iwidgets/demos/promptdialog | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/iwidgets/demos/promptdialog b/iwidgets/demos/promptdialog new file mode 100644 index 00000000000..a1702b895e2 --- /dev/null +++ b/iwidgets/demos/promptdialog @@ -0,0 +1,21 @@ +# ---------------------------------------------------------------------- +# DEMO: promptdialog in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +option add *textBackground seashell + +button .b -text "Get Password..." -command { + if {[.pd activate]} { + puts "password: [.pd get]" + } else { + puts "cancelled" + } +} +pack .b + +iwidgets::promptdialog .pd -title "Prompt Dialog" -modality application \ + -labeltext "Password:" -show "*" + +.pd hide Apply +.pd hide Help |