/[gcl]/gcl/gcl-tk/demos/mkEntry2.tcl
ViewVC logotype

Diff of /gcl/gcl-tk/demos/mkEntry2.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:00 1999 UTC revision 1.2 by camm, Sun May 1 20:17:31 2005 UTC
# Line 18  proc mkEntry2 {{w .e2}} { Line 18  proc mkEntry2 {{w .e2}} {
18      button $w.ok -text OK -command "destroy $w"      button $w.ok -text OK -command "destroy $w"
19      pack $w.msg $w.frame $w.ok -side top -fill both      pack $w.msg $w.frame $w.ok -side top -fill both
20    
21      entry $w.frame.e1 -relief sunken -scroll "$w.frame.s1 set"      entry $w.frame.e1 -relief sunken -xscrollcommand "$w.frame.s1 set"
22      scrollbar $w.frame.s1 -relief sunken -orient horiz -command \      scrollbar $w.frame.s1 -relief sunken -orient horiz -command \
23              "$w.frame.e1 view"              "$w.frame.e1 xview"
24      frame $w.frame.f1      frame $w.frame.f1
25      entry $w.frame.e2 -relief sunken -scroll "$w.frame.s2 set"      entry $w.frame.e2 -relief sunken -xscrollcommand "$w.frame.s2 set"
26      scrollbar $w.frame.s2 -relief sunken -orient horiz -command \      scrollbar $w.frame.s2 -relief sunken -orient horiz -command \
27              "$w.frame.e2 view"              "$w.frame.e2 xview"
28      frame $w.frame.f2      frame $w.frame.f2
29      entry $w.frame.e3 -relief sunken -scroll "$w.frame.s3 set"      entry $w.frame.e3 -relief sunken -xscrollcommand "$w.frame.s3 set"
30      scrollbar $w.frame.s3 -relief sunken -orient horiz -command \      scrollbar $w.frame.s3 -relief sunken -orient horiz -command \
31              "$w.frame.e3 view"              "$w.frame.e3 xview"
32      pack $w.frame.e1 $w.frame.s1 $w.frame.f1 $w.frame.e2 $w.frame.s2 \      pack $w.frame.e1 $w.frame.s1 $w.frame.f1 $w.frame.e2 $w.frame.s2 \
33              $w.frame.f2 $w.frame.e3 $w.frame.s3 -side top -fill x              $w.frame.f2 $w.frame.e3 $w.frame.s3 -side top -fill x
34    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26