blob: 7b76e9a583cf3bdc70e7536c72c54e52faf8ef11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
# ----------------------------------------------------------------------
# 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
|