diff options
Diffstat (limited to 'iwidgets/demos/messagedialog')
-rw-r--r-- | iwidgets/demos/messagedialog | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/iwidgets/demos/messagedialog b/iwidgets/demos/messagedialog new file mode 100644 index 00000000000..95edf3128a0 --- /dev/null +++ b/iwidgets/demos/messagedialog @@ -0,0 +1,20 @@ +# ---------------------------------------------------------------------- +# DEMO: messagedialog in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +button .b -text "Confirm..." -command { + if {[.md activate]} { + puts "selected: Yes" + } else { + puts "selected: No" + } +} +pack .b + +iwidgets::messagedialog .md -title "Message Dialog" -modality application \ + -bitmap questhead -text "Are you sure?" + +.md hide Help +.md buttonconfigure OK -text "Yes" +.md buttonconfigure Cancel -text "No" |