Mercurial Mercurial > hg > stx-libtool / 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.
removed unused variables
authorClaus Gittinger <cg@exept.de>
Fri, 05 Oct 2001 15:45:24 +0200
changeset 3265 4d2d487f684d
parent 3264 4e4e0b56dadd
child 3266 0418f554361a
removed unused variables
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Oct 05 15:43:17 2001 +0200
+++ b/NewSystemBrowser.st	Fri Oct 05 15:45:24 2001 +0200
@@ -16780,7 +16780,7 @@
 codeMenuFormat
     "format (prettyPrint) the selected methods"
 
-    |tree oldText newText mthd codeView|
+    |tree newText mthd codeView|
 
     codeView := self codeView.
     mthd := self theSingleSelectedMethod.
@@ -17016,7 +17016,7 @@
     "replace all accesses to selected instvar by setter/getter method sends;
      add accessors if not yet present."
 
-    |varName cls|
+    |varName|
 
     varName := self selectedInstanceVariableOrNil.
     varName notNil ifTrue:[
@@ -17118,8 +17118,6 @@
 codeMenuPullUpClassVariable:oldName inClass:aClass
     "pull a class variable up to its superclass"
 
-    |newName|
-
     (self askIfModified) ifFalse:[ 
         ^ self
     ].
@@ -17295,7 +17293,7 @@
 codeMenuPushDownClassVariable:oldName inClass:aClass
     "push a class variable down to its subclasses"
 
-    |newName cls|
+    |cls|
 
     (self askIfModified) ifFalse:[ 
         ^ self
@@ -50144,6 +50142,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.199 2001-10-05 13:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.200 2001-10-05 13:45:24 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Oct 05 15:43:17 2001 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Oct 05 15:45:24 2001 +0200
@@ -16780,7 +16780,7 @@
 codeMenuFormat
     "format (prettyPrint) the selected methods"
 
-    |tree oldText newText mthd codeView|
+    |tree newText mthd codeView|
 
     codeView := self codeView.
     mthd := self theSingleSelectedMethod.
@@ -17016,7 +17016,7 @@
     "replace all accesses to selected instvar by setter/getter method sends;
      add accessors if not yet present."
 
-    |varName cls|
+    |varName|
 
     varName := self selectedInstanceVariableOrNil.
     varName notNil ifTrue:[
@@ -17118,8 +17118,6 @@
 codeMenuPullUpClassVariable:oldName inClass:aClass
     "pull a class variable up to its superclass"
 
-    |newName|
-
     (self askIfModified) ifFalse:[ 
         ^ self
     ].
@@ -17295,7 +17293,7 @@
 codeMenuPushDownClassVariable:oldName inClass:aClass
     "push a class variable down to its subclasses"
 
-    |newName cls|
+    |cls|
 
     (self askIfModified) ifFalse:[ 
         ^ self
@@ -50144,6 +50142,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.199 2001-10-05 13:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.200 2001-10-05 13:45:24 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool