--- a/DSVColumnView.st	Fri Mar 19 22:19:17 1999 +0100
+++ b/DSVColumnView.st	Fri Mar 19 22:23:15 1999 +0100
@@ -2824,7 +2824,7 @@
     "change selection without notification
     "
     |editSpec rowNr colNr newCol oldCol oldRow sensor sglSelRow oldSz
-     keyBrdFwd bg filter edValue|
+     keyBrdFwd filter edValue|
 
     rowNr := self validateSelection:aRowNr.
 
@@ -3004,5 +3004,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.70 1999-03-19 11:57:36 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.71 1999-03-19 21:22:33 cg Exp $'
 ! !

--- a/DSVLabelView.st	Fri Mar 19 22:19:17 1999 +0100
+++ b/DSVLabelView.st	Fri Mar 19 22:23:15 1999 +0100
@@ -235,7 +235,7 @@
     "handle a button press event; checks whether the item under the mouse
      is the selected item. If true, the application is informed.
     "
-    |item same layout arg appl|
+    |item same layout|
 
     self itemEntered:nil.
 
@@ -409,5 +409,5 @@
 !DSVLabelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.20 1998-09-25 15:02:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.21 1999-03-19 21:22:34 cg Exp $'
 ! !

--- a/DataSetLabel.st	Fri Mar 19 22:19:17 1999 +0100
+++ b/DataSetLabel.st	Fri Mar 19 22:23:15 1999 +0100
@@ -101,7 +101,7 @@
 redrawLabelOn:aGC hInset:hInset
     "redraw the label; the background is cleared and the paint is set
     "
-    |x y|
+    |y|
 
     label isNil ifTrue:[ ^ self ].
 
@@ -125,7 +125,7 @@
 !DataSetLabel methodsFor:'instance creation'!
 
 columnDescription:aDescription builder:aBuilder on:aGC
-    |img device x y|
+    |device x y|
 
     label    := self resolveLabelFromDescription:aDescription withBuilder:aBuilder.
     selector := aDescription labelActionSelector.
@@ -280,5 +280,5 @@
 !DataSetLabel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.1 1998-09-25 15:05:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.2 1999-03-19 21:22:35 cg Exp $'
 ! !

--- a/FileSelectionItem.st	Fri Mar 19 22:19:17 1999 +0100
+++ b/FileSelectionItem.st	Fri Mar 19 22:23:15 1999 +0100
@@ -275,7 +275,6 @@
      but used only for children (i.e. no need to check for
      being a rootDirectory).
     "
-    |f|
 
     contents    := aFilename.
     name        := aBaseName.
@@ -430,7 +429,7 @@
 releaseCollapsedChildren
     "release collapsed children
     "
-    |canCollapse model|
+    |canCollapse|
 
     children isEmpty ifTrue:[
         ^ true
@@ -518,7 +517,7 @@
 repairObsoleteNodes
     "repair nodes
     "
-    |list chd hasChanged|
+    |list hasChanged|
 
     modificationTime isNil ifTrue:[
         ^ false
@@ -597,7 +596,7 @@
 readInChildren
     "read children from directory
     "
-    |list directory node|
+    |list directory|
 
     list := OrderedCollection new.
     readChildren  := false.
@@ -683,5 +682,5 @@
 !FileSelectionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.15 1998-09-28 09:58:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.16 1999-03-19 21:23:15 cg Exp $'
 ! !

--- a/FileSelectionTree.st	Fri Mar 19 22:19:17 1999 +0100
+++ b/FileSelectionTree.st	Fri Mar 19 22:23:15 1999 +0100
@@ -519,7 +519,7 @@
 rootFromModel
     "update hierarchical list from root model
     "
-    |oldPath newPath|
+    |newPath|
 
     (newPath := rootHolder value) notNil ifTrue:[
         newPath := newPath asString.
@@ -533,7 +533,7 @@
 selectionFromModel
     "set the selection derived from the selectionHolder
     "
-    |selection value shown size coll|
+    |selection value size|
 
     selectionHolder isNil ifTrue:[
         ^ self
@@ -614,7 +614,7 @@
 !FileSelectionTree methodsFor:'private'!
 
 fileName2node:aFile
-    |root file p1 p2 t|
+    |root file p1 p2|
 
     (    (root := model root) isNil
      or:[(file := self makeLegalFilename:aFile) isNil]
@@ -639,41 +639,17 @@
 !
 
 makeLegalFilename:aFile
-    |filename separator sepSize pathName pthSize|
+    |filename|
 
     aFile isNil ifTrue:[ ^ nil ].
 
-"/    (filename := aFile asFilename) exists ifFalse:[
-"/        ^ nil
-"/    ].
-
     (filename := aFile asFilename) exists ifTrue:[
         filename isDirectory ifFalse:[
             ^ filename
         ]
     ].
 
-^ filename makeLegalFilename.
-
-"/    separator := Filename separator.
-"/    pathName  := filename pathName.
-"/
-"/    (pathName endsWith:separator) ifFalse:[
-"/        ^ filename
-"/    ].
-"/    sepSize := (separator size) max:1.
-"/    pthSize := pathName size.
-"/
-"/    pthSize == sepSize ifTrue:[
-"/        ^ filename
-"/    ].
-"/    pathName := pathName copyFrom:1 to:(pthSize - sepSize).
-"/    filename := pathName asFilename.
-"/
-"/    filename isDirectory ifTrue:[
-"/        ^ filename
-"/    ].
-"/    ^ aFile asFilename
+    ^ filename makeLegalFilename.
 
     "Modified: / 24.9.1998 / 12:41:29 / cg"
 !
@@ -759,5 +735,5 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.22 1999-03-07 13:30:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.23 1999-03-19 21:22:36 cg Exp $'
 ! !