12 lines
354 B
Text
12 lines
354 B
Text
|
# ----------------------------------------------------------------------
|
||
|
|
# 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
|