DANGER WILL ROBINSON. Something's not right with the following code. It defines a proc named set (ring any bells, anyone?), and exports it. When I cut and paste the following code it fails with too many nested calls to "set" (gee, that's a surprise, since the proc set uses the set command).
namespace eval pane { namespace export create set proc create {f1 f2 args} { ### Map optional arguments into array values ### set t(-orient) horizontal rray values ### set t(-percent) 0.5 set t(-in) [winfo parent $f1] array set t $args ### Keep state in an array associated with the master frame ### set master $t(-in) pack $master -expand true -fill both pack propagate $master off upvar #0 [namespace current]::Pane$master pane array set pane [array get t] set pane(1) $f1 set pane(2) $f2 set pane(grip) $master.grip frame $pane(grip) -background gray75 -width 10 -height 10 -bd 1 -relief raised if {[string match vert* $pane(-orient)]} { ### Adjust boundary in Y direction ### set pane(D) Y place $pane(1) -in $master -x 0 -rely 0.0 -anchor nw -relwidth 1.0 -height -1 place $pane(2) -in $master -x 0 -rely 1.0 -anchor sw -relwidth 1.0 -height -1 place $pane(grip) -in $master -anchor c -relx 0.8 $pane(grip) configure -cursor sb_v_double_arrow } else { ### Adjust boundary in X direction ### set pane(D) X place $pane(1) -in $master -relx 0.0 -y 0 -anchor nw -relheight 1.0 -width -1 place $pane(2) -in $master -relx 1.0 -y 0 -anchor ne -relheight 1.0 -width -1 place $pane(grip) -in $master -anchor c -rely 0.2 $pane(grip) configure -cursor sb_h_double_arrow } $master configure -background grey75 ### bindings for resize AKA <Configure>, and dragging the grip. ### bind $master <Configure> [namespace code [list Geometry $master]] bind $pane(grip) <B1-Motion> [namespace code [list Drag $master %$pane(D)]] bind $pane(grip) <ButtonRelease-1> [namespace code [list Stop $master]] ### Do the initial layout ### Geometry $master } proc set {master value} { set [namespace current]::Pane${master}(-percent) $value Geometry $master } proc Drag {master D} { upvar #0 [namespace current]::Pane$master pane if [info exists pane(lastD)] { set delta [expr {double($pane(lastD)-$D)/$pane(size)}] set pane(-percent) [expr {$pane(-percent) - $delta}] if {$pane(-percent) < 0.0} { set pane(-percent) 0.0 } elseif {$pane(-percent) > 1.0} { set pane(-percent) 1.0 } Geometry $master } set pane(lastD) $D } proc Stop {master} { upvar #0 [namespace current]::Pane$master pane catch {unset pane(lastD)} } proc Geometry {master} { upvar #0 [namespace current]::Pane$master pane if {$pane(D) == "X"} { place $pane(1) -relwidth $pane(-percent) place $pane(2) -relwidth [expr {1.0 - $pane(-percent)}] place $pane(grip) -relx $pane(-percent) set pane(size) [winfo width $master] } else { # $pane(D) == "Y" place $pane(1) -relheight $pane(-percent) place $pane(2) -relheight [expr {1.0 - $pane(-percent)}] place $pane(grip) -rely $pane(-percent) set pane(size) [winfo height $master] } } }Here's a usage example with horiz and vertical panes:
proc pane::test {{p .p} {orient hori}} { catch {destroy $p} frame $p -width 200 -height 200 ;# needed: no propagation message $p.1 -bg bisque -text [info procs] -relief ridge frame $p.2 label $p.2.foo -bg pink -text foo -relief ridge label $p.2.bar -bg grey75 -text bar -relief ridge pack $p -expand true -fill both pack propagate $p off pane::create $p.2.foo $p.2.bar -orient vert pane::create $p.1 $p.2 -orient $orient -percent 0.7 raise . }
Wow - that's a lot of code up there. Here's a simpler example written by Stephen Uhler. - DL
# 2 panes, one on top of the other (>= Tk4.0) frame .top frame .bottom frame .handle -borderwidth 2 -relief raised -bg orange -cursor sb_v_double_arrow . configure -bg black # fixed placement parameters place .top -relwidth 1 -height -1 place .bottom -relwidth 1 -rely 1 -anchor sw -height -1 place .handle -relx 0.9 -anchor e -width 10 -height 10 bind . <Configure> {set H [winfo height .]; set Y0 [winfo rooty .]} bind .handle <B1-Motion> {Place [expr {(%Y-$Y0)/double($H)}]} proc Place {fract} { place .top -relheight $fract place .handle -rely $fract place .bottom -relheight [expr {1.0 - $fract}] } Place .5 ;# initialization # now "pack" whatever you like in ".top" and ".bottom"
I like the simpler one but I kept losing the pane when I dragged it off of the window. Change the "Place" proc to be
proc Place {fract} { if { ($fract>=0.01) && ($fract<=0.99) } { place .top -relheight $fract place .handle -rely $fract place .bottom -relheight [expr {1.0 - $fract}] } }Notice the if statement. Once this was added I could not drag the panes off of the window.
EKB April 9, 2005A simple change to the simpler version lets you grab the divider line at any point. Replace:
place .handle -relx 0.9 -anchor e -width 10 -height 10with
place .handle -relwidth 1 -x 0 -anchor w -height 5Then if you turn off "-bg orange" when creating .handle, it looks a lot like pane dividers in most programs.