head	1.11;
access;
symbols
	core-8-5-9:1.11
	core-8-5-8:1.11
	macosx-cocoa-merge:1.11
	macosx-cocoa-premerge:1.11
	macosx-carbon-freeze:1.11
	core-8-5-7:1.11
	core-8-5-6:1.11
	core-8-6-b1:1.11
	core-8-6-a3:1.11
	core-8-5-5:1.11
	core-8-6-a2:1.11
	core-8-5-4:1.11
	core-8-5-3:1.11
	core-8-6-a1:1.11
	core-8-4-19:1.6.2.4
	core-8-5-branch:1.11.0.4
	core-8-5-2:1.11
	core-8-4-18:1.6.2.4
	core-8-5-1:1.11
	core-8-4-17:1.6.2.4
	core-8-5-0:1.11
	core-8-5-b3:1.11
	core-8-5-b2:1.11
	core-8-4-16:1.6.2.4
	core-8-5-b1:1.11
	core-stablilizer-merge:1.11
	core-stabilizer-branch:1.11.0.2
	core-stabilizer-merge:1.11
	core-8-4-15:1.6.2.4
	core-8-5-a6:1.11
	core-8-5-a5:1.11
	core-8-4-14:1.6.2.4
	core-8-5-a4:1.11
	core-8-4-13:1.6.2.4
	core-8-4-12:1.6.2.3
	core-8-4-11:1.6.2.3
	core-8-5-a3:1.10
	core-8-4-10:1.6.2.3
	core-8-4-9-branch:1.6.2.2.0.2
	core-8-5-a2:1.9
	core-8-4-9:1.6.2.2
	core-8-4-8:1.6.2.2
	core-8-4-7:1.6.2.2
	core-8-5-a1:1.8
	core-8-4-6:1.6.2.1
	core-8-4-5:1.6.2.1
	mistachkin-dev-branch:1.8.0.2
	core-8-4-4:1.6.2.1
	core-8-4-3:1.6
	core-8-4-branch:1.6.0.2
	core-8-4-2:1.6
	core-8-4-1:1.6
	core-8-4-0:1.6
	macosx-8-4-merge-2002-08-31-trunk:1.6
	macosx-8-4-premerge-2002-08-31-branch:1.5.4.3
	macosx-8-4-premerge-2002-08-31-trunk:1.6
	macosx-8-4-merge-2002-08-30-branch:1.5.4.3
	macosx-8-4-merge-2002-08-30-trunk:1.6
	macosx-8-4-merge-2002-08-20-branch:1.5.4.3
	macosx-8-4-merge-2002-08-20-trunk:1.6
	core-8-4-b2:1.6
	core-8-4-b1:1.5
	macosx-8-4-branch:1.5.0.4
	core-8-4-win-speedup:1.5.0.2
	core-8-4-a4:1.5;
locks; strict;
comment	@# @;


1.11
date	2005.07.25.09.06.00;	author dkf;	state Exp;
branches;
next	1.10;

1.10
date	2005.02.12.00.48.33;	author hobbs;	state Exp;
branches;
next	1.9;

1.9
date	2004.05.03.19.36.20;	author hobbs;	state Exp;
branches;
next	1.8;

1.8
date	2003.07.28.21.31.06;	author patthoyts;	state Exp;
branches;
next	1.7;

1.7
date	2003.07.19.01.24.02;	author hobbs;	state Exp;
branches;
next	1.6;

1.6
date	2002.08.08.01.43.31;	author hobbs;	state Exp;
branches
	1.6.2.1;
next	1.5;

1.5
date	2002.02.26.01.06.55;	author hobbs;	state Exp;
branches
	1.5.2.1
	1.5.4.1;
next	1.4;

1.4
date	2002.02.23.01.36.45;	author hobbs;	state Exp;
branches;
next	1.3;

1.3
date	2002.02.22.21.07.35;	author hobbs;	state Exp;
branches;
next	1.2;

1.2
date	2002.02.22.14.07.01;	author dkf;	state Exp;
branches;
next	1.1;

1.1
date	2002.02.22.02.41.17;	author hobbs;	state Exp;
branches;
next	;

1.5.2.1
date	2002.04.06.01.02.01;	author hobbs;	state Exp;
branches;
next	;

1.5.4.1
date	2002.06.10.05.07.59;	author wolfsuit;	state Exp;
branches;
next	1.5.4.2;

1.5.4.2
date	2002.06.10.05.38.24;	author wolfsuit;	state Exp;
branches;
next	1.5.4.3;

1.5.4.3
date	2002.08.20.20.27.09;	author das;	state Exp;
branches;
next	;

1.6.2.1
date	2003.07.19.01.22.15;	author hobbs;	state Exp;
branches;
next	1.6.2.2;

1.6.2.2
date	2004.05.03.19.36.56;	author hobbs;	state Exp;
branches;
next	1.6.2.3;

1.6.2.3
date	2005.02.12.00.48.05;	author hobbs;	state Exp;
branches;
next	1.6.2.4;

1.6.2.4
date	2006.01.25.18.21.41;	author dgp;	state Exp;
branches;
next	;


desc
@@


1.11
log
@Apply some of the changes suggested in [Patch 1237759]
@
text
@# panedwindow.tcl --
#
# This file defines the default bindings for Tk panedwindow widgets and
# provides procedures that help in implementing those bindings.
#
# RCS: @@(#) $Id: panedwindow.tcl,v 1.10 2005/02/12 00:48:33 hobbs Exp $
#

bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }

bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }

bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}

bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y }

bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W }

# Initialize namespace
namespace eval ::tk::panedwindow {}

# ::tk::panedwindow::MarkSash --
#
#   Handle marking the correct sash for possible dragging
#
# Arguments:
#   w		the widget
#   x		widget local x coord
#   y		widget local y coord
#   proxy	whether this should be a proxy sash
# Results:
#   None
#
proc ::tk::panedwindow::MarkSash {w x y proxy} {
    variable ::tk::Priv
    if {[$w cget -opaqueresize]} {
	set proxy 0
    }
    set what [$w identify $x $y]
    if { [llength $what] == 2 } {
	lassign $what index which
	if {!$::tk_strictMotif || $which eq "handle"} {
	    if {!$proxy} {
		$w sash mark $index $x $y
	    }
	    set Priv(sash) $index
	    lassign [$w sash coord $index] sx sy
	    set Priv(dx) [expr {$sx-$x}]
	    set Priv(dy) [expr {$sy-$y}]
	    # Do this to init the proxy location
	    DragSash $w $x $y $proxy
	}
    }
}

# ::tk::panedwindow::DragSash --
#
#   Handle dragging of the correct sash
#
# Arguments:
#   w		the widget
#   x		widget local x coord
#   y		widget local y coord
#   proxy	whether this should be a proxy sash
# Results:
#   Moves sash
#
proc ::tk::panedwindow::DragSash {w x y proxy} {
    variable ::tk::Priv
    if {[$w cget -opaqueresize]} {
	set proxy 0
    }
    if {[info exists Priv(sash)]} {
	if {$proxy} {
	    $w proxy place [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}]
	} else {
	    $w sash place $Priv(sash) \
		    [expr {$x+$Priv(dx)}] [expr {$y+$Priv(dy)}]
	}
    }
}

# ::tk::panedwindow::ReleaseSash --
#
#   Handle releasing of the sash
#
# Arguments:
#   w		the widget
#   proxy	whether this should be a proxy sash
# Results:
#   Returns ...
#
proc ::tk::panedwindow::ReleaseSash {w proxy} {
    variable ::tk::Priv
    if {[$w cget -opaqueresize]} {
	set proxy 0
    }
    if {[info exists Priv(sash)]} {
	if {$proxy} {
	    lassign [$w proxy coord] x y
	    $w sash place $Priv(sash) $x $y
	    $w proxy forget
	}
	unset Priv(sash) Priv(dx) Priv(dy)
    }
}

# ::tk::panedwindow::Motion --
#
#   Handle motion on the widget.  This is used to change the cursor
#   when the user moves over the sash area.
#
# Arguments:
#   w		the widget
#   x		widget local x coord
#   y		widget local y coord
# Results:
#   May change the cursor.  Sets up a timer to verify that we are still
#   over the widget.
#
proc ::tk::panedwindow::Motion {w x y} {
    variable ::tk::Priv
    set id [$w identify $x $y]
    if {([llength $id] == 2) && \
	    (!$::tk_strictMotif || [lindex $id 1] eq "handle")} {
	if {![info exists Priv($w,panecursor)]} {
	    set Priv($w,panecursor) [$w cget -cursor]
	    if {[$w cget -sashcursor] ne ""} {
		$w configure -cursor [$w cget -sashcursor]
	    } elseif {[$w cget -orient] eq "horizontal"} {
		$w configure -cursor sb_h_double_arrow
	    } else {
		$w configure -cursor sb_v_double_arrow
	    }
	    if {[info exists Priv($w,pwAfterId)]} {
		after cancel $Priv($w,pwAfterId)
	    }
	    set Priv($w,pwAfterId) [after 150 \
		    [list ::tk::panedwindow::Cursor $w]]
	}
	return
    }
    if {[info exists Priv($w,panecursor)]} {
	$w configure -cursor $Priv($w,panecursor)
	unset Priv($w,panecursor)
    }
}

# ::tk::panedwindow::Cursor --
#
#   Handles returning the normal cursor when we are no longer over the
#   sash area.  This needs to be done this way, because the panedwindow
#   won't see Leave events when the mouse moves from the sash to a
#   paned child, although the child does receive an Enter event.
#
# Arguments:
#   w		the widget
# Results:
#   May restore the default cursor, or schedule a timer to do it.
#
proc ::tk::panedwindow::Cursor {w} {
    variable ::tk::Priv
    # Make sure to check window existence in case it is destroyed.
    if {[info exists Priv($w,panecursor)] && [winfo exists $w]} {
	if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] eq $w} {
	    set Priv($w,pwAfterId) [after 150 \
		    [list ::tk::panedwindow::Cursor $w]]
	} else {
	    $w configure -cursor $Priv($w,panecursor)
	    unset Priv($w,panecursor)
	    if {[info exists Priv($w,pwAfterId)]} {
		after cancel $Priv($w,pwAfterId)
		unset Priv($w,pwAfterId)
	    }
	}
    }
}

# ::tk::panedwindow::Leave --
#
#   Return to default cursor when leaving the pw widget.
#
# Arguments:
#   w		the widget
# Results:
#   Restores the default cursor
#
proc ::tk::panedwindow::Leave {w} {
    variable ::tk::Priv
    if {[info exists Priv($w,panecursor)]} {
        $w configure -cursor $Priv($w,panecursor)
        unset Priv($w,panecursor)
    }
}
@


1.10
log
@	* library/panedwindow.tcl (::tk::panedwindow::Cursor): check
	window existence on delayed call. [Bug 949792]
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.6.2.2 2004/05/03 19:36:56 hobbs Exp $
d38 4
a41 1
    if {[$w cget -opaqueresize]} { set proxy 0 }
d44 9
a52 7
	foreach {index which} $what break
	if { !$::tk_strictMotif || [string equal $which "handle"] } {
	    if {!$proxy} { $w sash mark $index $x $y }
	    set ::tk::Priv(sash) $index
	    foreach {sx sy} [$w sash coord $index] break
	    set ::tk::Priv(dx) [expr {$sx-$x}]
	    set ::tk::Priv(dy) [expr {$sy-$y}]
d72 5
a76 2
    if {[$w cget -opaqueresize]} { set proxy 0 }
    if { [info exists ::tk::Priv(sash)] } {
d78 1
a78 2
	    $w proxy place \
		    [expr {$x+$::tk::Priv(dx)}] [expr {$y+$::tk::Priv(dy)}]
d80 2
a81 2
	    $w sash place $::tk::Priv(sash) \
		    [expr {$x+$::tk::Priv(dx)}] [expr {$y+$::tk::Priv(dy)}]
d97 5
a101 2
    if {[$w cget -opaqueresize]} { set proxy 0 }
    if { [info exists ::tk::Priv(sash)] } {
d103 2
a104 2
	    foreach {x y} [$w proxy coord] break
	    $w sash place $::tk::Priv(sash) $x $y
d107 1
a107 1
	unset ::tk::Priv(sash) ::tk::Priv(dx) ::tk::Priv(dy)
d128 2
a129 2
	    (!$::tk_strictMotif || [string equal [lindex $id 1] "handle"])} {
	if { ![info exists Priv($w,panecursor)] } {
d131 4
a134 6
	    if { [string equal [$w cget -sashcursor] ""] } {
		if { [string equal [$w cget -orient] "horizontal"] } {
		    $w configure -cursor sb_h_double_arrow
		} else {
		    $w configure -cursor sb_v_double_arrow
		}
d136 1
a136 1
		$w configure -cursor [$w cget -sashcursor]
d146 1
a146 1
    if { [info exists Priv($w,panecursor)] } {
d192 4
a195 3
    if {[info exists ::tk::Priv($w,panecursor)]} {
        $w configure -cursor $::tk::Priv($w,panecursor)
        unset ::tk::Priv($w,panecursor)
@


1.9
log
@	* library/panedwindow.tcl (MarkSash): call DragSash to stop sash
	jump when B1 is pressed and released without moving. [Bug #932155]
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.8 2003/07/28 21:31:06 patthoyts Exp $
d158 2
a159 1
    if {[info exists Priv($w,panecursor)]} {
@


1.8
log
@	* library/panedwindow.tcl: Apply patch from bug #778893 to make
	the panedwindow -opaqueresize option work as per the docs.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.7 2003/07/19 01:24:02 hobbs Exp $
d48 2
@


1.7
log
@	* library/panedwindow.tcl: use widget-specific Priv slots for
	pwAfterId and panecursor items to correctly handle cursor changes
	with adjacant panedwindows.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.6.2.1 2003/07/19 01:22:15 hobbs Exp $
d38 1
d65 1
d88 1
@


1.6
log
@	* generic/tkPanedWindow.c (Tk_PanedWindowObjCmd):
	* library/panedwindow.tcl: changed class from PanedWindow to
	Panedwindow to not conflict with existing bwidgets, but also to be
	more regular with other names used in the core.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.5 2002/02/26 01:06:55 hobbs Exp $
d114 2
a115 2
	if { ![info exists Priv(panecursor)] } {
	    set Priv(panecursor) [$w cget -cursor]
d125 2
a126 2
	    if {[info exists Priv(pwAfterId)]} {
		after cancel $Priv(pwAfterId)
d128 1
a128 1
	    set Priv(pwAfterId) [after 150 \
d133 3
a135 3
    if { [info exists Priv(panecursor)] } {
	$w configure -cursor $Priv(panecursor)
	unset Priv(panecursor)
d153 4
a156 3
    if {[info exists Priv(panecursor)]} {
	if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] == $w} {
	    set Priv(pwAfterId) [after 150 [list ::tk::panedwindow::Cursor $w]]
d158 5
a162 5
	    $w configure -cursor $Priv(panecursor)
	    unset Priv(panecursor)
	    if {[info exists Priv(pwAfterId)]} {
		after cancel $Priv(pwAfterId)
		unset Priv(pwAfterId)
d178 3
a180 3
    if {[info exists ::tk::Priv(panecursor)]} {
        $w configure -cursor $::tk::Priv(panecursor)
        unset ::tk::Priv(panecursor)
@


1.6.2.1
log
@	* library/panedwindow.tcl: use widget-specific Priv slots for
	pwAfterId and panecursor items to correctly handle cursor changes
	with adjacant panedwindows.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.6 2002/08/08 01:43:31 hobbs Exp $
d114 2
a115 2
	if { ![info exists Priv($w,panecursor)] } {
	    set Priv($w,panecursor) [$w cget -cursor]
d125 2
a126 2
	    if {[info exists Priv($w,pwAfterId)]} {
		after cancel $Priv($w,pwAfterId)
d128 1
a128 1
	    set Priv($w,pwAfterId) [after 150 \
d133 3
a135 3
    if { [info exists Priv($w,panecursor)] } {
	$w configure -cursor $Priv($w,panecursor)
	unset Priv($w,panecursor)
d153 3
a155 4
    if {[info exists Priv($w,panecursor)]} {
	if {[winfo containing [winfo pointerx $w] [winfo pointery $w]] eq $w} {
	    set Priv($w,pwAfterId) [after 150 \
		    [list ::tk::panedwindow::Cursor $w]]
d157 5
a161 5
	    $w configure -cursor $Priv($w,panecursor)
	    unset Priv($w,panecursor)
	    if {[info exists Priv($w,pwAfterId)]} {
		after cancel $Priv($w,pwAfterId)
		unset Priv($w,pwAfterId)
d177 3
a179 3
    if {[info exists ::tk::Priv($w,panecursor)]} {
        $w configure -cursor $::tk::Priv($w,panecursor)
        unset ::tk::Priv($w,panecursor)
@


1.6.2.2
log
@	* library/panedwindow.tcl (MarkSash): call DragSash to stop sash
	jump when B1 is pressed and released without moving. [Bug #932155]
	Make the panedwindow -opaqueresize option work as per the docs.
	[Bug #778893]
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.6.2.1 2003/07/19 01:22:15 hobbs Exp $
a37 1
    if {[$w cget -opaqueresize]} { set proxy 0 }
a46 2
	    # Do this to init the proxy location
	    DragSash $w $x $y $proxy
a63 1
    if {[$w cget -opaqueresize]} { set proxy 0 }
a85 1
    if {[$w cget -opaqueresize]} { set proxy 0 }
@


1.6.2.3
log
@	* library/panedwindow.tcl (::tk::panedwindow::Cursor): check
	window existence on delayed call. [Bug 949792]
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.6.2.2 2004/05/03 19:36:56 hobbs Exp $
d158 1
a158 2
    # Make sure to check window existence in case it is destroyed.
    if {[info exists Priv($w,panecursor)] && [winfo exists $w]} {
@


1.6.2.4
log
@        * library/bgerror.tcl:  Updates to use Tcl 8.4 features. [Patch 1237759]        * library/button.tcl:
        * library/choosedir.tcl:
        * library/clrpick.tcl:
        * library/comdlg.tcl:
        * library/console.tcl:
        * library/dialog.tcl:
        * library/entry.tcl:
        * library/focus.tcl:
        * library/listbox.tcl:
        * library/menu.tcl:
        * library/msgbox.tcl:
        * library/palette.tcl:
        * library/panedwindow.tcl:
        * library/safetk.tcl:
        * library/scale.tcl:
        * library/scrlbar.tcl:
        * library/spinbox.tcl:
        * library/tearoff.tcl:
        * library/text.tcl:
        * library/tk.tcl:
        * library/tkfbox.tcl:
        * library/xmfbox.tcl:
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.6.2.3 2005/02/12 00:48:05 hobbs Exp $
d42 1
a42 1
	if { !$::tk_strictMotif || $which eq "handle" } {
d118 1
a118 1
	    (!$::tk_strictMotif || [lindex $id 1] eq "handle")} {
d121 2
a122 2
	    if { [$w cget -sashcursor] eq "" } {
		if { [$w cget -orient] eq "horizontal" } {
@


1.5
log
@improved proxy sash handling. (boudaillier)
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.4 2002/02/23 01:36:45 hobbs Exp $
d9 2
a10 2
bind PanedWindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
bind PanedWindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }
d12 2
a13 2
bind PanedWindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
bind PanedWindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }
d15 2
a16 2
bind PanedWindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
bind PanedWindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}
d18 1
a18 1
bind PanedWindow <Motion> { ::tk::panedwindow::Motion %W %x %y }
d20 1
a20 1
bind PanedWindow <Leave> { ::tk::panedwindow::Leave %W }
d142 1
a142 1
#   sash area.  This needs to be done this way, because the PanedWindow
@


1.5.4.1
log
@Adding missing files from TOT merge.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id$
@


1.5.4.2
log
@Merging with TOT as of 06/09/2002.
@
text
@@


1.5.4.3
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d9 2
a10 2
bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }
d12 2
a13 2
bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }
d15 2
a16 2
bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}
d18 1
a18 1
bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y }
d20 1
a20 1
bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W }
d142 1
a142 1
#   sash area.  This needs to be done this way, because the panedwindow
@


1.5.2.1
log
@update to head
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.5 2002/02/26 01:06:55 hobbs Exp $
@


1.4
log
@	Added proc comments.  Made configuring sash cursor more efficient.
	Added Cursor timer that restores the default cursor when pointer
	is no longer over the sash.  This is necessary because Leave
	events won't be seen when moving into a paned child.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.3 2002/02/22 21:07:35 hobbs Exp $
d44 3
d66 2
a67 1
	    $w proxy place $x $y
d69 2
a70 2
	    $w sash dragto $::tk::Priv(sash) $x $y
	    $w sash mark $::tk::Priv(sash) $x $y
a89 1
	    unset ::tk::Priv(sash)
a90 2
	} else {
	    unset ::tk::Priv(sash)
d92 1
@


1.3
log
@	* library/panedwindow.tcl (ReleaseSash): changed to not pass x and
	y args at all (they aren't used).
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.2 2002/02/22 14:07:01 dkf Exp $
d27 1
a27 1
#   ADD COMMENTS HERE
d30 4
a33 1
#   args	comments
d35 1
a35 1
#   Returns ...
d50 1
a50 1
#   ADD COMMENTS HERE
d53 4
a56 1
#   args	comments
d58 1
a58 1
#   Returns ...
d73 1
a73 1
#   ADD COMMENTS HERE
d76 2
a77 1
#   args	comments
d96 2
a97 1
#   ADD COMMENTS HERE
d100 3
a102 1
#   args	comments
d104 2
a105 1
#   Returns ...
d110 4
a113 5
    if { [llength $id] == 2 } {
	if { !$::tk_strictMotif || [string equal [lindex $id 1] "handle"] } {
	    if { ![info exists Priv(panecursor)] } {
		set Priv(panecursor) [$w cget -cursor]
	    }
d123 5
a127 1
	    return
d129 1
d137 28
d167 1
a167 1
#   ADD COMMENTS HERE
d170 1
a170 1
#   args	comments
d172 1
a172 1
#   Returns ...
d175 1
a175 1
    if { [info exists ::tk::Priv(panecursor)] } {
@


1.2
log
@Fixed panedwindow binding bugs and added demos for it too.
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.1 2002/02/22 02:41:17 hobbs Exp $
d15 2
a16 2
bind PanedWindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W %x %y 1}
bind PanedWindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W %x %y 0}
d74 1
a74 1
proc ::tk::panedwindow::ReleaseSash {w x y proxy} {
@


1.1
log
@TIP #41 implementation, panedwindow [Patch #512503] (melski)
@
text
@d6 1
a6 1
# RCS: @@(#) $Id: panedwindow.tcl,v 1.5 2001/08/28 22:25:10 hobbs Exp $
d74 1
a74 1
proc ::tk::panedwindow::ReleaseSash {w proxy} {
@

