# HG changeset patch # User Stefan Vogel # Date 1017320409 -3600 # Node ID abf84bdbfdb2b334b3070bdd669ed51a589991f1 # Parent 1e0d17feec69abfded0d7240e942a6ac973845f1 Remove unused method vars diff -r 1e0d17feec69 -r abf84bdbfdb2 BrowserView.st --- a/BrowserView.st Tue Mar 26 20:08:40 2002 +0100 +++ b/BrowserView.st Thu Mar 28 14:00:09 2002 +0100 @@ -4705,13 +4705,11 @@ classNewApplication "create a class-definition prototype for an application in codeview" - |theClass cls| - self - classClassDefinitionTemplateFor:ApplicationModel - in:currentClassCategory - namespace:false - private:false. + classClassDefinitionTemplateFor:ApplicationModel + in:currentClassCategory + namespace:false + private:false. aspect := nil. @@ -4747,16 +4745,13 @@ classNewDialog "create a class-definition prototype for a dialog in codeview" - |theClass cls| - self - classClassDefinitionTemplateFor:SimpleDialog - in:currentClassCategory - namespace:false - private:false. + classClassDefinitionTemplateFor:SimpleDialog + in:currentClassCategory + namespace:false + private:false. aspect := nil. - ! classNewPrivateClass @@ -6163,7 +6158,7 @@ "return a class definition template - be smart in what is offered initially" |cat name nameProto namePrefix i existingNames withNameSpaceDirective - className ownerName s isJava| + className ownerName s| (aSuperClass notNil and:[aSuperClass isJavaClass not]) ifFalse:[ (currentNamespace == JAVA @@ -6294,8 +6289,7 @@ javaClassTemplateFor:aSuperClass in:categoryString private:isPrivate "return a java class definition template - be smart in what is offered initially" - |cat name nameProto namePrefix i existingNames withNameSpaceDirective - className ownerName s superPackage| + |name i className s superPackage| self setAcceptActionForNewJavaClass. @@ -7254,7 +7248,7 @@ classNameFromClassMethodString:aString "helper for classMethod-list - extract the class name from the string" - |pos s words clsName| + |s words clsName| s := aString string withoutSpaces. (s includes:${ ) ifTrue:[ @@ -8389,7 +8383,7 @@ methodCategoryCreateApplicationMethods "create an empty application framework" - |cls fn txt isDialog| + |cls txt isDialog| self checkClassSelected ifFalse:[^ self]. @@ -9688,7 +9682,7 @@ methodCompareSource "compare with some other methods source" - |prev v classAndMethod words className methodName + |v classAndMethod words className methodName meta class method| self checkMethodSelected ifFalse:[^ self]. @@ -9744,8 +9738,7 @@ methodCompareSourceAgainstCurrent "compare with some other methods source" - |prev v classAndMethod words className methodName - meta class method codeHere codeRemote selector| + |v class codeHere codeRemote selector| self checkMethodSelected ifFalse:[^ self]. class := currentMethod mclass. @@ -9791,7 +9784,7 @@ "copy the current method into another class; typically a brother-sister class" |newClass newClassName sup initial copiedMethod - supers subs list holders| + supers subs list| self checkMethodSelected ifFalse:[^ self]. @@ -10423,7 +10416,7 @@ "move the current method into another class; typically a superclass" |newClass newClassName sup initial movedMethod - supers subs list holders| + supers subs list| self checkMethodSelected ifFalse:[^ self]. @@ -10963,7 +10956,7 @@ "answer a method list entry (gimmic: adding a little image to breakPointed methods)" - |s icn resources| + |s icn| s := aMethod printStringForBrowserWithSelector:selector. @@ -11680,7 +11673,7 @@ ! updateCodeView - |code sourceLineNumber doStartSyntax invalidate highlighter| + |code sourceLineNumber doStartSyntax highlighter| codeView modifiedChannel retractInterestsFor:self. @@ -12271,7 +12264,7 @@ #classHierarchyWithPrivateClasses" |box panel selectorHolder where whereChannel caseHolder - b sel classes areas toSearch cls privates inputField ns| + b sel classes areas toSearch cls inputField ns| areas := OrderedCollection new. @@ -13198,19 +13191,19 @@ ! refetchMethod - |sel cls stillSearching ignoredClasses| + |sel| sel := currentSelector. self releaseMethod. currentSelector := sel. sel notNil ifTrue:[ - currentMethod := (acceptClass ? actualClass) compiledMethodAt:sel. - - (currentMethod notNil - and:[currentMethod isWrapped]) ifTrue:[ - currentMethod originalMethod addDependent:self. - currentMethod addDependent:self. - ] + currentMethod := (acceptClass ? actualClass) compiledMethodAt:sel. + + (currentMethod notNil + and:[currentMethod isWrapped]) ifTrue:[ + currentMethod originalMethod addDependent:self. + currentMethod addDependent:self. + ] ] "Created: / 27.7.1998 / 11:09:35 / cg" @@ -13975,7 +13968,7 @@ done to the text - the colored text will discarded, if there were any modifications in the meanwhile)" - |oldCodeList highlighter t prio| + |oldCodeList highlighter prio| coloringProcess notNil ifTrue:[ coloringProcess terminate. @@ -14157,7 +14150,7 @@ "answer a list of all method categories of the argument, aClass, and all of its superclasses" - |newList cat| + |newList| newList := Set new. self classesInHierarchy:aClass do:[:c | @@ -15027,6 +15020,6 @@ !BrowserView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.722 2002-03-26 19:08:40 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.723 2002-03-28 13:00:09 stefan Exp $' ! ! BrowserView initialize! diff -r 1e0d17feec69 -r abf84bdbfdb2 NewLauncher.st --- a/NewLauncher.st Tue Mar 26 20:08:40 2002 +0100 +++ b/NewLauncher.st Thu Mar 28 14:00:09 2002 +0100 @@ -936,7 +936,7 @@ to remove its item from the toolbar or menu. " - |info space menuIndex removeInMenuBlock whichMenu before menuItemToRemove| + |info space menuIndex whichMenu before menuItemToRemove| addedToolsCollection size == 0 ifTrue: [^nil]. @@ -985,9 +985,6 @@ Transcript topView application removeUserTool:'Foo' " - - - ! ! !NewLauncher class methodsFor:'menu specs'! @@ -4154,5 +4151,5 @@ !NewLauncher class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.248 2002-03-26 14:19:16 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.249 2002-03-28 12:59:01 stefan Exp $' ! ! diff -r 1e0d17feec69 -r abf84bdbfdb2 SystemBrowser.st --- a/SystemBrowser.st Tue Mar 26 20:08:40 2002 +0100 +++ b/SystemBrowser.st Thu Mar 28 14:00:09 2002 +0100 @@ -14,7 +14,7 @@ ApplicationModel subclass:#SystemBrowser instanceVariableNames:'' - classVariableNames:'CheckForInstancesWhenRemovingClasses Icons ClassHistory + classVariableNames:'CheckForInstancesWhenRemovingClasses ClassHistory EmphasisForDifferentPackage EmphasisForModifiedBuffer EmphasisForObsoleteCode EmphasisForReadVariable EmphasisForWrittenVariable EmphasisForChangedCode' @@ -129,7 +129,7 @@ "launch a standard browser which immediately switches to aClass>>aSelector." - |brwsr classesName cls| + |brwsr classesName| brwsr := self openOnDevice:(Screen current). brwsr waitUntilVisible. @@ -1180,7 +1180,7 @@ !SystemBrowser class methodsFor:'private helpers'! askForPackageChangeFrom:oldPkg to:newPkg - |answer oldVsNew box notAgain chk| + |answer box notAgain chk| box := OptionBox title: @@ -3103,7 +3103,7 @@ containing a string in their source. This may be slow, since source-code has to be scanned." - |browser searchBlock title s| + |searchBlock s| (aString includesMatchCharacters or:[ignoreCase]) ifTrue:[ @@ -3147,7 +3147,7 @@ containing a string in their source. This may be slow, since source-code has to be scanned." - |browser searchBlock title s| + |searchBlock s| (aString includesMatchCharacters or:[ignoreCase]) ifTrue:[ @@ -3811,6 +3811,6 @@ !SystemBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.151 2002-03-26 14:18:16 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.152 2002-03-28 12:59:49 stefan Exp $' ! ! SystemBrowser initialize!