home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 26_7.tcl < prev    next >
Text File  |  2003-04-15  |  787b  |  31 lines
  1. #
  2. # Example 26-7
  3. # PaneGeometry updates the layout.
  4. #
  5.  
  6. proc PaneGeometry {master} {
  7.     upvar #0 Pane$master pane
  8.     if {$pane(D) == "X"} {
  9.         place $pane(1) -relwidth $pane(-percent)
  10.         place $pane(2) -relwidth [expr 1.0 - $pane(-percent)]
  11.         place $pane(grip) -relx $pane(-percent)
  12.         set pane(size) [winfo width $master]
  13.     } else {
  14.         place $pane(1) -relheight $pane(-percent)
  15.         place $pane(2) -relheight [expr 1.0 - $pane(-percent)]
  16.         place $pane(grip) -rely $pane(-percent)
  17.         set pane(size) [winfo height $master]
  18.     }
  19. }
  20. proc PaneTest {{p .p} {orient vert}} {
  21.     catch {destroy $p}
  22.     frame $p -width 200 -height 200
  23.     label $p.1 -bg blue -text foo
  24.     label $p.2 -bg green -text bar
  25.     pack $p -expand true -fill both
  26.     pack propagate $p off
  27.     Pane_Create $p.1 $p.2 -in $p -orient $orient -percent 0.3
  28. }
  29.  
  30.  
  31.