Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch scriptics-sc-2-0-beta-branch Excluding Merge-Ins
This is equivalent to a diff from 03371c78c0 to b4dff7da83
|
2000-03-29
| ||
| 20:57 | * 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: b1d0ba62c9 user: sven tags: trunk | |
|
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 | |
| 22:22 |
* BWman/SpinBox.html: Removed references to -label* options.
* demo/select.tcl: Removed use of -label* options on ComboBox and SpinBox. [Bug: 4394]. check-in: 04caf798b9 user: ericm tags: trunk | |
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2000-03-20 Eric Melski <[email protected]> * progressbar.tcl: (configure) Added test for change to -maximum value, so that bar is redrawn if maximum changes. [Bug: 4399]. * BWman/SpinBox.html: Removed references to -label* options. | > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | 2000-03-27 Sven Delmas <[email protected]> * 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). 2000-03-20 Eric Melski <[email protected]> * progressbar.tcl: (configure) Added test for change to -maximum value, so that bar is redrawn if maximum changes. [Bug: 4399]. * BWman/SpinBox.html: Removed references to -label* options. |
| ︙ | ︙ |
Changes to tree.tcl.
1 2 3 | # ------------------------------------------------------------------------------ # tree.tcl # This file is part of Unifix BWidget Toolkit | | | 1 2 3 4 5 6 7 8 9 10 11 | # ------------------------------------------------------------------------------ # 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 |
| ︙ | ︙ | |||
1729 1730 1731 1732 1733 1734 1735 |
}
set open [$win itemcget $node -open]
if { $open } {
$win itemconfigure $node -open 0
return
} else {
set parent [$win parent $node]
| > > > | | | | | | > | 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 |
}
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
}
}
|
| ︙ | ︙ |