Subversion Repositories or1k_old

#!/bin/sh

# ----------------------------------------------------------------------

#  DEMO: dialogshell in [incr Widgets]

# ----------------------------------------------------------------------

#\

exec itkwish "$0" ${1+"$@"}

package require Iwidgets 3.0

# itkwish interprets the rest...

# ----------------------------------------------------------------------

iwidgets::radiobox .rb -labeltext "Use modality to\nlock up your\napplication:"

pack .rb -padx 4 -pady 4

.rb add none -text "none"

.rb add application -text "application"

.rb add global -text "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