# ---------------------------------------------------------------------- | |
# 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 |