--- a/DSVColumnView.st Fri Oct 10 19:49:20 1997 +0200
+++ b/DSVColumnView.st Fri Oct 10 21:47:32 1997 +0200
@@ -408,7 +408,7 @@
"add a new row before slot aRowNr and redisplay; returns nil in case
of an invalid index index or the row added to the list
"
- |selRow y0 y1 h dH|
+ |y0 y1 h dH|
list isNil ifTrue:[
list := OrderedCollection new.
@@ -469,7 +469,7 @@
removeIndex:aRowNr
"remove row at an index; returns the removed row
"
- |selRow y0 y1 h dY oY yB noRedraw row|
+ |y0 y1 h dY oY yB noRedraw row|
row := list at:aRowNr ifAbsent:[^ self subscriptBoundsError:aRowNr].
@@ -1563,8 +1563,6 @@
selectionChanged
"selection has changed
"
- |row|
-
self changed:#selection.
actionBlock notNil ifTrue:[
@@ -1575,7 +1573,7 @@
setSelectColIndex:aColNr rowIndex:aRowNr
"change selection without notification
"
- |rowNr colNr newCol oldCol oldRow oldOrg level sensor|
+ |rowNr colNr newCol oldCol oldRow level sensor|
(aRowNr between:0 and:(self numberOfRows)) ifTrue:[rowNr := aRowNr]
ifFalse:[rowNr := 0].
@@ -1664,5 +1662,5 @@
!DSVColumnView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.1 1997-10-10 13:39:32 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.2 1997-10-10 19:47:04 cg Exp $'
! !
--- a/DataSetColumn.st Fri Oct 10 19:49:20 1997 +0200
+++ b/DataSetColumn.st Fri Oct 10 21:47:32 1997 +0200
@@ -363,8 +363,8 @@
"
|w|
- description width ~~ 0 ifTrue:[ "/ fixed size
- width := minWidth := description width
+ (w := description width) ~~ 0 ifTrue:[ "/ fixed size
+ width := minWidth := w
] ifFalse:[
width := aWidth max:minWidth
].
@@ -800,5 +800,5 @@
!DataSetColumn class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.1 1997-10-10 13:39:05 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.2 1997-10-10 19:47:06 cg Exp $'
! !
--- a/MenuPanel.st Fri Oct 10 19:49:20 1997 +0200
+++ b/MenuPanel.st Fri Oct 10 21:47:32 1997 +0200
@@ -362,7 +362,7 @@
accept:anItem index:anIndex toggle:aState receiver:aReceiver
"accept an item
"
- |recv value argument numArgs isKindOfValueModel|
+ |value argument numArgs isKindOfValueModel|
anItem isNil ifTrue:[
self menuAdornmentAt:#hasPerformed put:true.
@@ -672,7 +672,7 @@
enabled:aState
"change enabled state of menu
"
- |idx state|
+ |state|
state := aState ? true.
@@ -3606,6 +3606,6 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.29 1997-09-10 08:29:21 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.30 1997-10-10 19:47:13 cg Exp $'
! !
MenuPanel initialize!
--- a/SelTreeV.st Fri Oct 10 19:49:20 1997 +0200
+++ b/SelTreeV.st Fri Oct 10 21:47:32 1997 +0200
@@ -734,7 +734,7 @@
selectionFromModel
"set the selection derived from the selectionHolder
"
- |coll value size|
+ |coll value sz|
(value := selectionHolder value) isNil ifTrue:[
^ self deselect
@@ -743,8 +743,8 @@
multipleSelectOk ifFalse:[
self selectNode:value
] ifTrue:[
- value size ~~ 0 ifTrue:[
- coll := OrderedCollection new:(value size).
+ (sz := value size) ~~ 0 ifTrue:[
+ coll := OrderedCollection new:sz.
value do:[:aNode||i|
(i := self indexOfNode:aNode) notNil ifTrue:[
@@ -1168,5 +1168,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.23 1997-10-06 12:32:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.24 1997-10-10 19:47:22 cg Exp $'
! !
--- a/SelectionInTreeView.st Fri Oct 10 19:49:20 1997 +0200
+++ b/SelectionInTreeView.st Fri Oct 10 21:47:32 1997 +0200
@@ -734,7 +734,7 @@
selectionFromModel
"set the selection derived from the selectionHolder
"
- |coll value size|
+ |coll value sz|
(value := selectionHolder value) isNil ifTrue:[
^ self deselect
@@ -743,8 +743,8 @@
multipleSelectOk ifFalse:[
self selectNode:value
] ifTrue:[
- value size ~~ 0 ifTrue:[
- coll := OrderedCollection new:(value size).
+ (sz := value size) ~~ 0 ifTrue:[
+ coll := OrderedCollection new:sz.
value do:[:aNode||i|
(i := self indexOfNode:aNode) notNil ifTrue:[
@@ -1168,5 +1168,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.23 1997-10-06 12:32:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.24 1997-10-10 19:47:22 cg Exp $'
! !
--- a/TabView.st Fri Oct 10 19:49:20 1997 +0200
+++ b/TabView.st Fri Oct 10 21:47:32 1997 +0200
@@ -250,7 +250,7 @@
list:aList
"set the list
"
- |widget hasChanged newSel|
+ |hasChanged newSel|
aList size == list size ifTrue:[
list notNil ifTrue:[
@@ -679,7 +679,7 @@
"calculate extent of selection and evaluate the block which will
perform a redraw action
"
- |tab size oldAnc newAnc oldExt newExt expSel expDlt x y|
+ |tab oldAnc newAnc oldExt newExt expSel expDlt x y|
tab := list at:selection.
oldAnc := tab anchor.
@@ -896,7 +896,7 @@
recomputeList
"recompute list
"
- |tab maxY x y maxSz ovl|
+ |maxY x y maxSz ovl|
list size == 0 ifTrue:[
^ self
@@ -1162,5 +1162,5 @@
!TabView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.22 1997-09-02 12:22:05 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.23 1997-10-10 19:47:28 cg Exp $'
! !
--- a/TreeItem.st Fri Oct 10 19:49:20 1997 +0200
+++ b/TreeItem.st Fri Oct 10 21:47:32 1997 +0200
@@ -389,7 +389,7 @@
literalArrayEncoding
- |array childs size value|
+ |array childs size|
contents isString ifTrue:[size := 2]
ifFalse:[size := 1].
@@ -544,5 +544,5 @@
!TreeItem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.5 1997-09-02 12:20:06 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.6 1997-10-10 19:47:32 cg Exp $'
! !