hg/stx-libtool: comparison BrowserView.st

equal deleted inserted replaced

-:1e0d17feec69
+:abf84bdbfdb2
 !
 classNewApplication
 "create a class-definition prototype for an application in codeview"
-|theClass cls|
 self
-	classClassDefinitionTemplateFor:ApplicationModel
+classClassDefinitionTemplateFor:ApplicationModel
-	in:currentClassCategory
+in:currentClassCategory
-	namespace:false
+namespace:false
-	private:false.
+private:false.
 aspect := nil.
 "Modified: 4.1.1997 / 14:52:16 / cg"
 !
 !
 classNewDialog
 "create a class-definition prototype for a dialog in codeview"
-|theClass cls|
 self
-	classClassDefinitionTemplateFor:SimpleDialog
+classClassDefinitionTemplateFor:SimpleDialog
-	in:currentClassCategory
+in:currentClassCategory
-	namespace:false
+namespace:false
-	private:false.
+private:false.
 aspect := nil.
 !
 classNewPrivateClass
 "create a class-definition prototype in codeview"
 classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate
 "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
 or:[aSuperClass notNil and:[aSuperClass isJavaClass]])
 ifTrue:[
 !
 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
+|name i className s superPackage|
-className ownerName s superPackage|
 self setAcceptActionForNewJavaClass.
 s := TextStream on:''.
 s nextPutAll:('package ' , categoryString , ';').
 !
 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:[
 s := s copyTo:(s indexOf:${ ) - 1.
 s := s withoutSpaces.
 !
 methodCategoryCreateApplicationMethods
 "create an empty application framework"
-|cls fn txt isDialog|
+|cls txt isDialog|
 self checkClassSelected ifFalse:[^ self].
 isDialog := (currentClass isSubclassOf:SimpleDialog).
 !
 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].
 classAndMethod := Dialog
 !
 methodCompareSourceAgainstCurrent
 "compare with some other methods source"
-|prev v classAndMethod words className methodName
+|v class codeHere codeRemote selector|
-meta class method codeHere codeRemote selector|
 self checkMethodSelected ifFalse:[^ self].
 class := currentMethod mclass.
 selector := currentMethod selector.
 methodCopy
 "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].
 lastMethodMoveClass ~= currentClass name ifTrue:[
 initial := lastMethodMoveClass.
 methodMove
 "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].
 lastMethodMoveClass ~= currentClass name ifTrue:[
 initial := lastMethodMoveClass.
 listEntryForMethod:aMethod selector:selector
 "answer a method list entry
 (gimmic: adding a little image to breakPointed methods)"
-|s icn resources|
+|s icn|
 s := aMethod printStringForBrowserWithSelector:selector.
 "/
 "/ wrap icons (i.e. break- or trace points)
 "Created: 16.12.1995 / 18:41:37 / cg"
 "Modified: 23.4.1996 / 21:39:24 / cg"
 !
 updateCodeView
-|code sourceLineNumber doStartSyntax invalidate highlighter|
+|code sourceLineNumber doStartSyntax highlighter|
 codeView modifiedChannel retractInterestsFor:self.
 aspect == #hierarchy ifTrue:[
 ^ self classHierarchy
 #classWithPrivateClasses,
 #classHierarchy or
 #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.
 isSelector ifTrue:[
 sel := self selectorToSearchFor.
 "Modified: 18.8.1997 / 15:19:36 / cg"
 !
 refetchMethod
-|sel cls stillSearching ignoredClasses|
+|sel|
 sel := currentSelector.
 self releaseMethod.
 currentSelector := sel.
 sel notNil ifTrue:[
-	currentMethod := (acceptClass ? actualClass) compiledMethodAt:sel.
+currentMethod := (acceptClass ? actualClass) compiledMethodAt:sel.
-	(currentMethod notNil
+(currentMethod notNil
-	and:[currentMethod isWrapped]) ifTrue:[
+and:[currentMethod isWrapped]) ifTrue:[
-	    currentMethod originalMethod  addDependent:self.
+currentMethod originalMethod  addDependent:self.
-	    currentMethod addDependent:self.
+currentMethod addDependent:self.
-	]
+]
 ]
 "Created: / 27.7.1998 / 11:09:35 / cg"
 "Modified: / 4.8.1998 / 20:04:47 / cg"
 !
 text.
 (This is done as a event to synchronize the coloring with modifications
 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.
 coloringProcess := nil.
 ].
 listOfAllMethodCategoriesInHierarchy:aClass
 "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 |
 newList addAll:(c categories).
 ].
 ! !
 !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!

changeset 3626	abf84bdbfdb2
parent 3625	1e0d17feec69
child 3649	3d9a810c628a