Bwidget Source Code
Check-in [9e54948e6a]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:* tree.tcl: Added protection for the left arrow key click in case we are already at the root node. This used to throw a Tcl error (fixes bug # 4619).
Timelines: family | ancestors | descendants | both | scriptics-sc-2-0-beta-branch
Files: files | file ages | folders
SHA1:9e54948e6a542c00b35c792a2965909ef28146df
User & Date: sven 2000-03-27 21:51:58
Context
2000-03-27
21:52
*** empty log message *** Leaf check-in: b4dff7da83 user: sven tags: scriptics-sc-2-0-beta-branch
21:51
* tree.tcl: Added protection for the left arrow key click in case we are already at the root node. This used to throw a Tcl error (fixes bug # 4619). check-in: 9e54948e6a user: sven tags: scriptics-sc-2-0-beta-branch
2000-03-20
22:35
* progressbar.tcl: (configure) Added test for change to -maximum value, so that bar is redrawn if maximum changes. [Bug: 4399]. check-in: 03371c78c0 user: ericm tags: trunk, scriptics-sc-2-0-beta-base, scriptics-sc-2-0-b1, scriptics-sc-2-0-b2
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tree.tcl.

1
2
3
4
5
6
7
8
9
10
11
....
1729
1730
1731
1732
1733
1734
1735



1736
1737
1738
1739
1740
1741

1742
1743
1744
1745
1746
1747
1748
# ------------------------------------------------------------------------------
#  tree.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: tree.tcl,v 1.24 2000/03/14 20:20:14 ericm Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - Tree::create
#     - Tree::configure
#     - Tree::cget
#     - Tree::insert
#     - Tree::itemconfigure
................................................................................
	    }
	    set open [$win itemcget $node -open]
	    if { $open } {
		$win itemconfigure $node -open 0
		return
	    } else {
		set parent [$win parent $node]



		while { ![$win itemcget $parent -selectable] } {
		    set parent [$win parent $parent]
		    if { [string equal $parent "root"] } {
			set parent $node
			break
		    }

		}
		$win selection set $parent
		_set_current_node $win $parent
		$win see $parent
		return
	    }
	}



|







 







>
>
>
|
|
|
|
|
|
>







1
2
3
4
5
6
7
8
9
10
11
....
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
# ------------------------------------------------------------------------------
#  tree.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: tree.tcl,v 1.24.2.1 2000/03/27 21:51:58 sven Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - Tree::create
#     - Tree::configure
#     - Tree::cget
#     - Tree::insert
#     - Tree::itemconfigure
................................................................................
	    }
	    set open [$win itemcget $node -open]
	    if { $open } {
		$win itemconfigure $node -open 0
		return
	    } else {
		set parent [$win parent $node]
	    if { [string equal $parent "root"] } {
		    set parent $node
        } else {
            while { ![$win itemcget $parent -selectable] } {
		        set parent [$win parent $parent]
		        if { [string equal $parent "root"] } {
			    set parent $node
			    break
		        }
            }
		}
		$win selection set $parent
		_set_current_node $win $parent
		$win see $parent
		return
	    }
	}