--- a/DataSetColumn.st Fri Mar 19 22:15:50 1999 +0100
+++ b/DataSetColumn.st Fri Mar 19 22:19:17 1999 +0100
@@ -517,7 +517,7 @@
!DataSetColumn methodsFor:'editing'!
editorAt:aRowNr
- |val row index|
+ |val row|
row := (dataSet at:aRowNr).
val := self extractColFromRow:row.
@@ -573,7 +573,7 @@
on:aDSVColumnView description:aDescription columnNumber:aNumber label:aLabel
"instance creation; set attributes dependent on the description
"
- |device selector format idx type oldFont newFont args|
+ |device selector format idx type args|
columnNumber := aNumber.
dataSet := aDSVColumnView.
@@ -866,5 +866,5 @@
!DataSetColumn class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.40 1999-03-06 00:19:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.41 1999-03-19 21:19:17 cg Exp $'
! !
--- a/SelInTree.st Fri Mar 19 22:15:50 1999 +0100
+++ b/SelInTree.st Fri Mar 19 22:19:17 1999 +0100
@@ -400,7 +400,7 @@
remove:something
"remove a node or collection of nodes
"
- |node coll index loNums loItem start size parent stop|
+ |node index loNums loItem start size parent stop|
something isNil ifTrue:[
^ something
@@ -893,5 +893,5 @@
!SelectionInTree class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.25 1999-03-07 13:34:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.26 1999-03-19 21:18:32 cg Exp $'
! !
--- a/SelTreeV.st Fri Mar 19 22:15:50 1999 +0100
+++ b/SelTreeV.st Fri Mar 19 22:19:17 1999 +0100
@@ -246,7 +246,6 @@
itemClass:anItemClass
"set itemClass to be used
"
- |directory|
(anItemClass notNil and:[anItemClass ~~ itemClass]) ifTrue:[
itemClass := anItemClass.
@@ -922,7 +921,6 @@
drawVisibleLineSelected:visLineNr with:fg and:bg
"redraw a single line as selected."
- |y|
(self visibleLineToListLine:visLineNr) isNil ifTrue:[
^ super drawVisibleLine:visLineNr with:fg and:bg
@@ -1017,8 +1015,6 @@
"
|node prevNode parent icon showIndc showIcon showText nxtPrnt
- x "{ Class:SmallInteger }"
- y "{ Class:SmallInteger }"
end "{ Class:SmallInteger }"
yBot "{ Class:SmallInteger }"
@@ -1028,8 +1024,6 @@
xIcon "{ Class:SmallInteger }"
xText "{ Class:SmallInteger }"
- soVDt "{ Class:SmallInteger }"
-
widthLvl "{ Class:SmallInteger }"
insetTxt "{ Class:SmallInteger }"
@@ -1256,7 +1250,7 @@
buttonPress:button x:x y:y
"handle button press event
"
- |node menu d|
+ |node menu|
((button == 2) or:[button == #menu]) ifTrue:[
( (node := self selectedNode) notNil
@@ -1322,7 +1316,7 @@
handleSelectButtonAtX:x y:y
"handle a select button click
"
- |expand node lineNr sensor isExpd|
+ |node lineNr sensor isExpd|
lineNr := self indicatiorLineForButton:#select atX:x y:y.
@@ -1361,7 +1355,7 @@
indicatiorLineForButton:aButton atX:x y:y
"returns linenumber assigned to indicator at x/y or 0
"
- |sensor nr x0 node|
+ |nr x0 node|
( enabled
and:[showDirectoryIndicator
@@ -1806,7 +1800,7 @@
"setup new list; keep selection dependent on the boolean state
keepSelection
"
- |list time|
+ |list|
list := (aList size == 0) ifTrue:[#()] ifFalse:[aList].
super list:list keepSelection:keepSelection.
@@ -2341,5 +2335,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.76 1999-03-07 13:30:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.77 1999-03-19 21:18:05 cg Exp $'
! !
--- a/SelectionInTree.st Fri Mar 19 22:15:50 1999 +0100
+++ b/SelectionInTree.st Fri Mar 19 22:19:17 1999 +0100
@@ -400,7 +400,7 @@
remove:something
"remove a node or collection of nodes
"
- |node coll index loNums loItem start size parent stop|
+ |node index loNums loItem start size parent stop|
something isNil ifTrue:[
^ something
@@ -893,5 +893,5 @@
!SelectionInTree class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.25 1999-03-07 13:34:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.26 1999-03-19 21:18:32 cg Exp $'
! !
--- a/SelectionInTreeView.st Fri Mar 19 22:15:50 1999 +0100
+++ b/SelectionInTreeView.st Fri Mar 19 22:19:17 1999 +0100
@@ -246,7 +246,6 @@
itemClass:anItemClass
"set itemClass to be used
"
- |directory|
(anItemClass notNil and:[anItemClass ~~ itemClass]) ifTrue:[
itemClass := anItemClass.
@@ -922,7 +921,6 @@
drawVisibleLineSelected:visLineNr with:fg and:bg
"redraw a single line as selected."
- |y|
(self visibleLineToListLine:visLineNr) isNil ifTrue:[
^ super drawVisibleLine:visLineNr with:fg and:bg
@@ -1017,8 +1015,6 @@
"
|node prevNode parent icon showIndc showIcon showText nxtPrnt
- x "{ Class:SmallInteger }"
- y "{ Class:SmallInteger }"
end "{ Class:SmallInteger }"
yBot "{ Class:SmallInteger }"
@@ -1028,8 +1024,6 @@
xIcon "{ Class:SmallInteger }"
xText "{ Class:SmallInteger }"
- soVDt "{ Class:SmallInteger }"
-
widthLvl "{ Class:SmallInteger }"
insetTxt "{ Class:SmallInteger }"
@@ -1256,7 +1250,7 @@
buttonPress:button x:x y:y
"handle button press event
"
- |node menu d|
+ |node menu|
((button == 2) or:[button == #menu]) ifTrue:[
( (node := self selectedNode) notNil
@@ -1322,7 +1316,7 @@
handleSelectButtonAtX:x y:y
"handle a select button click
"
- |expand node lineNr sensor isExpd|
+ |node lineNr sensor isExpd|
lineNr := self indicatiorLineForButton:#select atX:x y:y.
@@ -1361,7 +1355,7 @@
indicatiorLineForButton:aButton atX:x y:y
"returns linenumber assigned to indicator at x/y or 0
"
- |sensor nr x0 node|
+ |nr x0 node|
( enabled
and:[showDirectoryIndicator
@@ -1806,7 +1800,7 @@
"setup new list; keep selection dependent on the boolean state
keepSelection
"
- |list time|
+ |list|
list := (aList size == 0) ifTrue:[#()] ifFalse:[aList].
super list:list keepSelection:keepSelection.
@@ -2341,5 +2335,5 @@
!SelectionInTreeView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.76 1999-03-07 13:30:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.77 1999-03-19 21:18:05 cg Exp $'
! !