| # ---------------------------------------------------------------------- | |
| # DEMO: selectiondialog in [incr Widgets] | |
| # ---------------------------------------------------------------------- | |
| package require Iwidgets 4.0 | |
| iwidgets::shell .sh -modality none -padx 20 -pady 20 -title Shell | |
| pack [label [.sh childsite].l -text SHELL] | |
| .sh center | |
| .sh activate |