diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-21 20:06:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-21 20:06:34 (GMT) |
| commit | a80e603c517d2682ef25067ac6daf1d2692d5864 (patch) | |
| tree | cd7aaee28e7876e8bfdd77e835c534b13cbe5f98 /library/demos | |
| parent | 682d30ed7f59d3c732d08cf6ccc715e738784453 (diff) | |
| parent | 2aa945d6a8109c74d9ff3331fb99a093635e0cd7 (diff) | |
| download | tk-a80e603c517d2682ef25067ac6daf1d2692d5864.zip tk-a80e603c517d2682ef25067ac6daf1d2692d5864.tar.gz tk-a80e603c517d2682ef25067ac6daf1d2692d5864.tar.bz2 | |
merge 8.6bug_450bb0ecad
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/ixset | 1 | ||||
| -rw-r--r-- | library/demos/rmt | 1 | ||||
| -rw-r--r-- | library/demos/states.tcl | 11 | ||||
| -rw-r--r-- | library/demos/timer | 1 | ||||
| -rw-r--r-- | library/demos/widget | 1 |
5 files changed, 11 insertions, 4 deletions
diff --git a/library/demos/ixset b/library/demos/ixset index ee6e072..13235de 100644 --- a/library/demos/ixset +++ b/library/demos/ixset @@ -9,7 +9,6 @@ exec wish "$0" ${1+"$@"} # 91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design # 92/08/01 : pda@masi.ibp.fr : cleaning -package require Tcl 8.4 package require Tk # diff --git a/library/demos/rmt b/library/demos/rmt index 51886de..00bdc9d 100644 --- a/library/demos/rmt +++ b/library/demos/rmt @@ -7,7 +7,6 @@ exec wish "$0" ${1+"$@"} # Tk applications. It allows you to select an application and # then type commands to that application. -package require Tcl 8.4 package require Tk wm title . "Tk Remote Controller" diff --git a/library/demos/states.tcl b/library/demos/states.tcl index 92b1f1e..aeb3d5b 100644 --- a/library/demos/states.tcl +++ b/library/demos/states.tcl @@ -19,6 +19,17 @@ positionWindow $w label $w.msg -font $font -wraplength 4i -justify left -text "A listbox containing the 50 states is displayed below, along with a scrollbar. You can scan the list either using the scrollbar or by scanning. To scan, press button 2 in the widget and drag up or down." pack $w.msg -side top +labelframe $w.justif -text Justification +foreach c {Left Center Right} { + set lower [string tolower $c] + radiobutton $w.justif.$lower -text $c -variable just \ + -relief flat -value $lower -anchor w \ + -command "$w.frame.list configure -justify \$just" \ + -tristatevalue "multi" + pack $w.justif.$lower -side left -pady 2 -fill x +} +pack $w.justif + ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x diff --git a/library/demos/timer b/library/demos/timer index e10b840..6b61ca4 100644 --- a/library/demos/timer +++ b/library/demos/timer @@ -5,7 +5,6 @@ exec wish "$0" ${1+"$@"} # timer -- # This script generates a counter with start and stop buttons. -package require Tcl 8.4 package require Tk label .counter -text 0.00 -relief raised -width 10 -padx 2m -pady 1m diff --git a/library/demos/widget b/library/demos/widget index 7604341..1d838ad 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -10,7 +10,6 @@ exec wish "$0" ${1+"$@"} # separate ".tcl" files is this directory, which are sourced by this script as # needed. -package require Tcl 8.5 package require Tk 8.5 package require msgcat |