Subversion Repositories or1k

#!/bin/sh

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

#  DEMO: labeledframe in [incr Widgets]

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

#\

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

package require Iwidgets 3.0

#

# Demo script for the Labeledframe class

#

set tk_strictMotif 1

iwidgets::Labeledframe .pr -labelpos ne -labeltext "Print range"

set cs [.pr childsite]

radiobutton $cs.all \

        -highlightthickness 0 \

        -anchor w \

        -justify left \

        -text "All" \

        -underline 0 \

        -value 1

radiobutton $cs.range \

        -highlightthickness 0 \

        -anchor w \

        -justify left \

        -text "Pages" \

        -underline 2 \

        -value 0

iwidgets::entryfield $cs.from \

      -highlightthickness 0 \

      -labelpos w \

      -labeltext "from:" \

      -width 10

[$cs.from component label] configure -justify left -underline 0

iwidgets::entryfield $cs.to \

      -highlightthickness 0 \

      -labelpos w \

      -labeltext "to:" \

      -width 10

[$cs.to component label] configure -justify left -underline 0

pack $cs.all -side top -fill x -anchor w

pack $cs.range -side left -fill x -anchor w

pack $cs.from -side left -fill x -anchor w

pack $cs.to -side left -fill x -anchor w

pack .pr -fill both