--- a/BrowserView.st Thu Apr 04 01:43:18 2013 +0100
+++ b/BrowserView.st Thu Apr 04 19:06:16 2013 +0100
@@ -79,7 +79,6 @@
"
! !
-
!BrowserView class methodsFor:'initialization'!
initialize
@@ -129,7 +128,6 @@
"Modified: / 27.10.1997 / 17:34:25 / cg"
! !
-
!BrowserView class methodsFor:'class history'!
addToClassHistory:aClass selector:aSelector
@@ -142,7 +140,6 @@
SystemBrowser checkClassHistory
! !
-
!BrowserView class methodsFor:'cleanup'!
lowSpaceCleanup
@@ -159,7 +156,6 @@
Icons := DefaultIcon := nil.
! !
-
!BrowserView class methodsFor:'defaults'!
changeHistoryMaxSize
@@ -233,7 +229,6 @@
"Created: / 29.10.1997 / 03:32:43 / cg"
! !
-
!BrowserView class methodsFor:'interface specs'!
methodFilterSpec
@@ -616,7 +611,6 @@
)
! !
-
!BrowserView class methodsFor:'menu specs'!
menuSpec
@@ -1675,14 +1669,12 @@
)
! !
-
!BrowserView class methodsFor:'resources'!
classResources
^ SystemBrowser classResources
! !
-
!BrowserView methodsFor:'change & update'!
delayedUpdate:something with:someArgument from:changedObject
@@ -2094,7 +2086,6 @@
"Modified: 26.3.1997 / 18:29:51 / cg"
! !
-
!BrowserView methodsFor:'class category list menu'!
browserClone
@@ -2140,17 +2131,8 @@
self withWaitCursorDo:[
|brwsr methods|
- methods := IdentitySet new.
- environment allClassesDo:[:eachClass |
- |classPackage|
-
- classPackage := eachClass package.
- eachClass instAndClassMethodsDo:[:mthd |
- mthd package ~= classPackage ifTrue:[ methods add:mthd ].
- ].
- ].
-
- brwsr := SystemBrowser browseMethods:methods title:'All Class extensions'.
+ methods := Smalltalk allExtensions.
+ brwsr := SystemBrowser browseMethods:methods title:'All Class Extensions'.
brwsr notNil ifTrue:[brwsr environment:environment].
]
@@ -2969,7 +2951,6 @@
"Modified: / 10.4.1998 / 12:25:38 / cg"
! !
-
!BrowserView methodsFor:'class category source administration'!
classCategoryCheckinEach
@@ -3426,7 +3407,6 @@
"Modified (format): / 29-09-2011 / 16:09:52 / cg"
! !
-
!BrowserView methodsFor:'class category stuff'!
checkClassCategorySelected
@@ -3711,7 +3691,6 @@
"Modified: / 27.7.1998 / 10:56:50 / cg"
! !
-
!BrowserView methodsFor:'class history'!
changeHistoryMenu
@@ -3909,7 +3888,6 @@
self class classHistory:savedHistory.
! !
-
!BrowserView methodsFor:'class list menu'!
classClassInstVars
@@ -5220,7 +5198,6 @@
"Modified: 17.6.1997 / 13:32:40 / cg"
! !
-
!BrowserView methodsFor:'class list source administration'!
classCheckin
@@ -5770,7 +5747,6 @@
"Modified: / 10.2.2000 / 14:14:09 / cg"
! !
-
!BrowserView methodsFor:'class stuff'!
allClasses
@@ -6946,7 +6922,6 @@
"Modified: 10.1.1997 / 14:01:20 / cg"
! !
-
!BrowserView methodsFor:'class-method list menu'!
classMethodBrowse
@@ -7160,7 +7135,6 @@
"Modified: / 7.8.1998 / 17:13:47 / cg"
! !
-
!BrowserView methodsFor:'class-method stuff'!
classFromClassMethodString:aString
@@ -7449,7 +7423,6 @@
"Modified: / 17.10.1998 / 11:30:35 / cg"
! !
-
!BrowserView methodsFor:'event handling'!
handlesKeyPress:key inView:view
@@ -7552,7 +7525,6 @@
"Modified: / 18.4.1998 / 15:56:36 / cg"
! !
-
!BrowserView methodsFor:'help'!
helpTextFor:aComponent
@@ -7574,7 +7546,6 @@
"Modified: 28.6.1997 / 15:00:18 / cg"
! !
-
!BrowserView methodsFor:'initialization & release'!
autoSearch:aString
@@ -7761,7 +7732,6 @@
"Modified: 18.8.1997 / 15:19:50 / cg"
! !
-
!BrowserView methodsFor:'initialize subviews'!
createClassListViewIn:frame
@@ -8332,7 +8302,6 @@
"Modified: / 25.10.1997 / 19:27:40 / cg"
! !
-
!BrowserView methodsFor:'method category list menu'!
createAccessMethodsFor:aCollectionOfInstVarNames withChange:withChange
@@ -8699,7 +8668,7 @@
|someCategories existingCategories box superclass|
actualClass notNil ifTrue:[
- someCategories := actualClass allCategories asSet.
+ someCategories := actualClass allCategories asNewSet.
(superclass := actualClass superclass) notNil ifTrue:[
superclass allSubclasses do:[:cls |
someCategories addAll:cls categories
@@ -8874,7 +8843,6 @@
]
! !
-
!BrowserView methodsFor:'method category stuff'!
asBrowserList:aList
@@ -9121,7 +9089,6 @@
"Modified: 18.8.1997 / 15:44:38 / cg"
! !
-
!BrowserView methodsFor:'method list menu'!
commonTraceHelperWith:aSelector
@@ -10547,7 +10514,6 @@
"Modified: / 12.1.1998 / 19:16:22 / cg"
! !
-
!BrowserView methodsFor:'method stuff'!
checkMethodSelected
@@ -11091,7 +11057,6 @@
"Modified: 30.7.1997 / 15:55:06 / cg"
! !
-
!BrowserView methodsFor:'misc'!
beep
@@ -11388,7 +11353,6 @@
"Modified: / 10.2.2000 / 14:15:03 / cg"
! !
-
!BrowserView methodsFor:'namespace menu'!
nameSpaceCheckInEach
@@ -11541,7 +11505,6 @@
"Modified: / 3.2.1999 / 20:18:13 / cg"
! !
-
!BrowserView methodsFor:'namespace stuff'!
changeNameSpaceTo:nsName
@@ -11727,7 +11690,6 @@
"Created: 8.1.1997 / 10:54:03 / cg"
! !
-
!BrowserView methodsFor:'private'!
askAndBrowseMethodCategory:title action:aBlock
@@ -13282,7 +13244,6 @@
"Created: 18.8.1997 / 15:41:52 / cg"
! !
-
!BrowserView methodsFor:'private-defaults'!
breakPointedIcon
@@ -13407,7 +13368,6 @@
^ self fetchIcon:#trace selector:#traceIcon
! !
-
!BrowserView methodsFor:'private-queries'!
hasClassCategorySelected
@@ -13531,7 +13491,6 @@
and:[ variableListView selectionValue notNil ]]
! !
-
!BrowserView methodsFor:'syntax coloring'!
startSyntaxHighlightProcess
@@ -13719,7 +13678,6 @@
"Modified: / 20.11.2001 / 00:38:09 / cg"
! !
-
!BrowserView methodsFor:'unused'!
listOfAllMethodCategoriesInHierarchy:aClass
@@ -13766,7 +13724,6 @@
"Modified: 5.6.1996 / 11:42:12 / stefan"
! !
-
!BrowserView methodsFor:'variable list menu'!
allClassInstVarMods
@@ -14279,7 +14236,6 @@
"Modified: 25.5.1996 / 12:26:07 / cg"
! !
-
!BrowserView methodsFor:'variable stuff'!
hilightEntryFor:entry
@@ -14591,11 +14547,10 @@
"Modified: / 17.9.1998 / 13:45:02 / cg"
! !
-
!BrowserView class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.840 2013-03-22 11:36:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.841 2013-04-02 09:32:19 stefan Exp $'
!
version_HG