--- 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!
--- 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 $'
! !
--- 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!