Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 15 Aug 1997 11:32:57 +0200
changeset 497 9b5503aa6f57
parent 496 d511fde77222
child 498 b4c341497621
*** empty log message ***
SelTreeV.st file | annotate | diff | comparison | revisions
SelectionInTreeView.st file | annotate | diff | comparison | revisions 
--- a/SelTreeV.st	Fri Aug 15 11:26:23 1997 +0200
+++ b/SelTreeV.st	Fri Aug 15 11:32:57 1997 +0200
@@ -213,8 +213,6 @@
 textInset:anInset
     "set the left inset of the text label
     "
-    |inset|
-
     anInset ~~ textInset ifTrue:[
         anInset >= 0 ifTrue:[
             textInset := anInset.
@@ -660,8 +658,6 @@
     "return the width of the contents in pixels
      - used for scrollbar interface"
 
-    |max|
-
     list isNil ifTrue:[^ 0].
 
     (widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
@@ -817,7 +813,7 @@
 selectFromListOfNames:aListOfNames
     "set selection from a list of names
     "
-    |node comp rdwNd|
+    |node rdwNd|
 
     aListOfNames size < 1 ifTrue:[
         ^ self selection:nil
@@ -880,5 +876,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.14 1997-08-15 09:24:57 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.15 1997-08-15 09:32:57 cg Exp $'
 ! !
--- a/SelectionInTreeView.st	Fri Aug 15 11:26:23 1997 +0200
+++ b/SelectionInTreeView.st	Fri Aug 15 11:32:57 1997 +0200
@@ -213,8 +213,6 @@
 textInset:anInset
     "set the left inset of the text label
     "
-    |inset|
-
     anInset ~~ textInset ifTrue:[
         anInset >= 0 ifTrue:[
             textInset := anInset.
@@ -660,8 +658,6 @@
     "return the width of the contents in pixels
      - used for scrollbar interface"
 
-    |max|
-
     list isNil ifTrue:[^ 0].
 
     (widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
@@ -817,7 +813,7 @@
 selectFromListOfNames:aListOfNames
     "set selection from a list of names
     "
-    |node comp rdwNd|
+    |node rdwNd|
 
     aListOfNames size < 1 ifTrue:[
         ^ self selection:nil
@@ -880,5 +876,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.14 1997-08-15 09:24:57 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.15 1997-08-15 09:32:57 cg Exp $'
 ! !
hg/stx-libwidg2