You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
971 B
35 lines
971 B
# ---------------------------------------------------------------------- |
|
# DEMO: dialogshell in [incr Widgets] |
|
# ---------------------------------------------------------------------- |
|
package require Iwidgets 4.0 |
|
|
|
iwidgets::radiobox .rb -labeltext "Use modality to\nlock up your\napplication:" |
|
pack .rb -padx 4 -pady 4 |
|
|
|
.rb add none -text "-modality none" |
|
.rb add application -text "-modality application" |
|
.rb add global -text "-modality global" |
|
.rb select none |
|
|
|
button .activate -text "Push Me" -command { |
|
.ds configure -modality [.rb get] |
|
.ds activate |
|
} |
|
pack .activate |
|
|
|
# |
|
# Build a generic dialog |
|
# |
|
iwidgets::dialogshell .ds |
|
|
|
.ds add dismiss -text "Dismiss" -command {.ds deactivate} |
|
.ds default dismiss |
|
|
|
# |
|
# Add something to the top of the dialog... |
|
# |
|
set win [.ds childsite] |
|
label $win.ex -text "Minimal Dialog\n(put your widgets here)" \ |
|
-background black -foreground white \ |
|
-width 40 -height 5 |
|
pack $win.ex -expand yes -fill both -padx 4 -pady 4
|
|
|