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 14:56:11 +0200
changeset 3263 7f23e55310bf
parent 3262 32b8442ea9cf
child 3264 4e4e0b56dadd
removed unused variables
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Oct 05 14:46:09 2001 +0200
+++ b/NewSystemBrowser.st	Fri Oct 05 14:56:11 2001 +0200
@@ -10680,8 +10680,8 @@
 !
 
 delayedUpdateCode
-    |methods mthd selectedClass cls protocol oldSelectedProtocols selectedProtocols
-     codeView code filteredVariables autoSearchString text
+    |methods mthd selectedClass cls protocol  
+     codeView code filteredVariables autoSearchString 
      package project s doShowMethodTemplate codeAspect|
 
     self enqueueDelayedUpdateBufferLabel.
@@ -16138,10 +16138,8 @@
      That is the version on which the class was based upon, not the most recent one."
 
     |currentClass
-     aStream comparedSource currentSource v rev revString thisRevString mgr
-     nm msg rev2 newestRev
-     containerModule containerPackage containerFile rslt
-     lastModule lastPackage pkg brwsr|
+     aStream comparedSource currentSource rev revString thisRevString mgr
+     nm msg newestRev brwsr|
 
     currentClass := self theSingleSelectedClass.
     currentClass isLoaded ifFalse:[
@@ -16446,10 +16444,8 @@
      with the the newest version found in the repository.
      That is the most recent version."
 
-    |classToCompare aStream comparedSource currentSource v rev revString thisRevString mgr
-     nm msg rev2 newestRev
-     containerModule containerPackage containerFile rslt
-     lastModule lastPackage pkg brwsr|
+    |classToCompare aStream comparedSource currentSource rev revString thisRevString mgr
+     nm msg brwsr|
 
     classToCompare := aClass.
     classToCompare isLoaded ifFalse:[
@@ -16539,7 +16535,7 @@
      CAVEAT: that is almost the same code as found in SystemBrowser;
              move to SourceCodeManagerUtilities"
 
-    |codeView aStream info info2 s rv mgr fn msg module|
+    |codeView aStream|
 
     aStream := WriteStream on:(String new:200).
 
@@ -19327,8 +19323,8 @@
 !
 
 projectMenuImport:doLoadClasses
-    |currentProject default pkg dir fromWhere abbrevFile loadAllFile p t matching 
-     toSearch moduleDir packageDir package s numImported numSkipped|
+    |currentProject default pkg fromWhere abbrevFile loadAllFile  
+     moduleDir packageDir package numImported numSkipped|
 
     currentProject := self theSingleSelectedProject.
     currentProject isNil ifTrue:[
@@ -20198,7 +20194,7 @@
 protocolMenuRemove
     "confirm removal of the selected protocols"
 
-    |classes protocols methods numClasses numProtocols numMethods box suggestion last currentMethodCategory msg|
+    |classes protocols methods numClasses numProtocols numMethods msg|
 
     "/ count them ...
     classes := IdentitySet new.
@@ -21924,7 +21920,7 @@
     "change the package-id of the selected methods.
      Will eventually update the Project-object"
 
-    |newProject classes cls classProjects classesProject offered|
+    |newProject classProjects offered|
 
     classProjects := (self selectedMethods value collect:[:eachMethod | eachMethod mclass theNonMetaclass package]) asSet.
     classProjects size == 1 ifTrue:[
@@ -21933,7 +21929,7 @@
         LastProjectMoves size > 0 ifTrue:[
             offered := LastProjectMoves first
         ] ifFalse:[
-            offered := classesProject ? Project current package
+            offered := "classesProject ? "Project current package
         ]
     ].
 
@@ -22118,7 +22114,7 @@
     "confirm removal of the selected methods (but does not search for senders),
      then remove them"
 
-    |classes methods numClasses numMethods box suggestion last currentMethodCategory msg|
+    |classes methods numClasses numMethods msg|
 
     "/ count them ...
     classes := IdentitySet new.
@@ -23322,7 +23318,7 @@
 browseVarRefsToAny:varNameList classes:classesIn variables:varType access:accessType all:browseAll title:browserTitle in:openHow
     "Open a new browser or add a buffer showing methods referring/modifying to any var in varNames"
 
-    |box b varNames brwsr t classes theSingleVariable searchBlock methods|
+    |varNames brwsr classes theSingleVariable searchBlock methods|
 
     varNameList size == 0 ifTrue:[^ self].
     varNames := varNameList asStringWith:'|'.
@@ -25318,7 +25314,7 @@
 !
 
 switchToSelector:aSelector
-    |mthd cls newProtocols orgMode pkg holder|
+    |mthd cls orgMode pkg holder|
 
     aSelector notNil ifTrue:[
         (cls := self theSingleSelectedClass) notNil ifTrue:[
@@ -25592,8 +25588,7 @@
 createApplicationCodeFor:aClass
     "create an empty application framework"
 
-    |nonMetaClass metaClass className fn txt isDialog
-     nm names source|
+    |nonMetaClass metaClass className txt isDialog|
 
     nonMetaClass := aClass theNonMetaclass.
     metaClass := aClass theMetaclass.
@@ -28490,7 +28485,7 @@
 !
 
 selectedClassVariableInCodeViewOrNil
-    |node mthd src selection cls|
+    |node mthd cls|
 
     (mthd := self theSingleSelectedMethod) notNil ifTrue:[
         cls := mthd mclass.
@@ -28679,7 +28674,7 @@
 !
 
 selectedTemporaryVariableInCodeViewOrNil
-    |node name definingNode mthd src selection cls|
+    |node name definingNode|
 
     node := self findNode.
     (node isNil or:[node isVariable not]) ifTrue:[^ nil].
@@ -29194,8 +29189,7 @@
 normalLabel
     "set the normal (inactive) window- and icon labels"
 
-    |window l il currentClass currentCategory currentNamespace currentProject
-     orgMode|
+    |window l il|
 
     builder isNil ifTrue:[^ self].   "/ if invoked during setup
 
@@ -30158,7 +30152,7 @@
 !
 
 methodDoubleClicked:aMethod
-    |resources editorClass brwsr mSelector mClass|
+    |resources editorClass "brwsr" mSelector mClass|
 
     mSelector := aMethod selector.
     mClass := aMethod mclass.
@@ -33363,7 +33357,7 @@
 !
 
 listOfCategories
-    |categories hideUnloadedClasses generator|
+    |categories hideUnloadedClasses|
 
     inGeneratorHolder notNil ifTrue:[
         ^ self listFromInGenerator
@@ -50150,6 +50144,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.197 2001-10-05 12:46:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.198 2001-10-05 12:56:11 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Oct 05 14:46:09 2001 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Oct 05 14:56:11 2001 +0200
@@ -10680,8 +10680,8 @@
 !
 
 delayedUpdateCode
-    |methods mthd selectedClass cls protocol oldSelectedProtocols selectedProtocols
-     codeView code filteredVariables autoSearchString text
+    |methods mthd selectedClass cls protocol  
+     codeView code filteredVariables autoSearchString 
      package project s doShowMethodTemplate codeAspect|
 
     self enqueueDelayedUpdateBufferLabel.
@@ -16138,10 +16138,8 @@
      That is the version on which the class was based upon, not the most recent one."
 
     |currentClass
-     aStream comparedSource currentSource v rev revString thisRevString mgr
-     nm msg rev2 newestRev
-     containerModule containerPackage containerFile rslt
-     lastModule lastPackage pkg brwsr|
+     aStream comparedSource currentSource rev revString thisRevString mgr
+     nm msg newestRev brwsr|
 
     currentClass := self theSingleSelectedClass.
     currentClass isLoaded ifFalse:[
@@ -16446,10 +16444,8 @@
      with the the newest version found in the repository.
      That is the most recent version."
 
-    |classToCompare aStream comparedSource currentSource v rev revString thisRevString mgr
-     nm msg rev2 newestRev
-     containerModule containerPackage containerFile rslt
-     lastModule lastPackage pkg brwsr|
+    |classToCompare aStream comparedSource currentSource rev revString thisRevString mgr
+     nm msg brwsr|
 
     classToCompare := aClass.
     classToCompare isLoaded ifFalse:[
@@ -16539,7 +16535,7 @@
      CAVEAT: that is almost the same code as found in SystemBrowser;
              move to SourceCodeManagerUtilities"
 
-    |codeView aStream info info2 s rv mgr fn msg module|
+    |codeView aStream|
 
     aStream := WriteStream on:(String new:200).
 
@@ -19327,8 +19323,8 @@
 !
 
 projectMenuImport:doLoadClasses
-    |currentProject default pkg dir fromWhere abbrevFile loadAllFile p t matching 
-     toSearch moduleDir packageDir package s numImported numSkipped|
+    |currentProject default pkg fromWhere abbrevFile loadAllFile  
+     moduleDir packageDir package numImported numSkipped|
 
     currentProject := self theSingleSelectedProject.
     currentProject isNil ifTrue:[
@@ -20198,7 +20194,7 @@
 protocolMenuRemove
     "confirm removal of the selected protocols"
 
-    |classes protocols methods numClasses numProtocols numMethods box suggestion last currentMethodCategory msg|
+    |classes protocols methods numClasses numProtocols numMethods msg|
 
     "/ count them ...
     classes := IdentitySet new.
@@ -21924,7 +21920,7 @@
     "change the package-id of the selected methods.
      Will eventually update the Project-object"
 
-    |newProject classes cls classProjects classesProject offered|
+    |newProject classProjects offered|
 
     classProjects := (self selectedMethods value collect:[:eachMethod | eachMethod mclass theNonMetaclass package]) asSet.
     classProjects size == 1 ifTrue:[
@@ -21933,7 +21929,7 @@
         LastProjectMoves size > 0 ifTrue:[
             offered := LastProjectMoves first
         ] ifFalse:[
-            offered := classesProject ? Project current package
+            offered := "classesProject ? "Project current package
         ]
     ].
 
@@ -22118,7 +22114,7 @@
     "confirm removal of the selected methods (but does not search for senders),
      then remove them"
 
-    |classes methods numClasses numMethods box suggestion last currentMethodCategory msg|
+    |classes methods numClasses numMethods msg|
 
     "/ count them ...
     classes := IdentitySet new.
@@ -23322,7 +23318,7 @@
 browseVarRefsToAny:varNameList classes:classesIn variables:varType access:accessType all:browseAll title:browserTitle in:openHow
     "Open a new browser or add a buffer showing methods referring/modifying to any var in varNames"
 
-    |box b varNames brwsr t classes theSingleVariable searchBlock methods|
+    |varNames brwsr classes theSingleVariable searchBlock methods|
 
     varNameList size == 0 ifTrue:[^ self].
     varNames := varNameList asStringWith:'|'.
@@ -25318,7 +25314,7 @@
 !
 
 switchToSelector:aSelector
-    |mthd cls newProtocols orgMode pkg holder|
+    |mthd cls orgMode pkg holder|
 
     aSelector notNil ifTrue:[
         (cls := self theSingleSelectedClass) notNil ifTrue:[
@@ -25592,8 +25588,7 @@
 createApplicationCodeFor:aClass
     "create an empty application framework"
 
-    |nonMetaClass metaClass className fn txt isDialog
-     nm names source|
+    |nonMetaClass metaClass className txt isDialog|
 
     nonMetaClass := aClass theNonMetaclass.
     metaClass := aClass theMetaclass.
@@ -28490,7 +28485,7 @@
 !
 
 selectedClassVariableInCodeViewOrNil
-    |node mthd src selection cls|
+    |node mthd cls|
 
     (mthd := self theSingleSelectedMethod) notNil ifTrue:[
         cls := mthd mclass.
@@ -28679,7 +28674,7 @@
 !
 
 selectedTemporaryVariableInCodeViewOrNil
-    |node name definingNode mthd src selection cls|
+    |node name definingNode|
 
     node := self findNode.
     (node isNil or:[node isVariable not]) ifTrue:[^ nil].
@@ -29194,8 +29189,7 @@
 normalLabel
     "set the normal (inactive) window- and icon labels"
 
-    |window l il currentClass currentCategory currentNamespace currentProject
-     orgMode|
+    |window l il|
 
     builder isNil ifTrue:[^ self].   "/ if invoked during setup
 
@@ -30158,7 +30152,7 @@
 !
 
 methodDoubleClicked:aMethod
-    |resources editorClass brwsr mSelector mClass|
+    |resources editorClass "brwsr" mSelector mClass|
 
     mSelector := aMethod selector.
     mClass := aMethod mclass.
@@ -33363,7 +33357,7 @@
 !
 
 listOfCategories
-    |categories hideUnloadedClasses generator|
+    |categories hideUnloadedClasses|
 
     inGeneratorHolder notNil ifTrue:[
         ^ self listFromInGenerator
@@ -50150,6 +50144,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.197 2001-10-05 12:46:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.198 2001-10-05 12:56:11 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool