diff options
Diffstat (limited to 'iwidgets/demos/labeledframe')
| -rw-r--r-- | iwidgets/demos/labeledframe | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/iwidgets/demos/labeledframe b/iwidgets/demos/labeledframe new file mode 100644 index 00000000000..bfb9a81bdc4 --- /dev/null +++ b/iwidgets/demos/labeledframe @@ -0,0 +1,47 @@ +# ---------------------------------------------------------------------- +# DEMO: labeledframe in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +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 |