--- a/BrowserView.st Fri Mar 22 09:22:38 2013 +0000
+++ b/BrowserView.st Wed Mar 27 12:24:47 2013 +0000
@@ -79,6 +79,7 @@
"
! !
+
!BrowserView class methodsFor:'initialization'!
initialize
@@ -128,6 +129,7 @@
"Modified: / 27.10.1997 / 17:34:25 / cg"
! !
+
!BrowserView class methodsFor:'class history'!
addToClassHistory:aClass selector:aSelector
@@ -140,6 +142,7 @@
SystemBrowser checkClassHistory
! !
+
!BrowserView class methodsFor:'cleanup'!
lowSpaceCleanup
@@ -156,6 +159,7 @@
Icons := DefaultIcon := nil.
! !
+
!BrowserView class methodsFor:'defaults'!
changeHistoryMaxSize
@@ -229,6 +233,7 @@
"Created: / 29.10.1997 / 03:32:43 / cg"
! !
+
!BrowserView class methodsFor:'interface specs'!
methodFilterSpec
@@ -611,6 +616,7 @@
)
! !
+
!BrowserView class methodsFor:'menu specs'!
menuSpec
@@ -1669,12 +1675,14 @@
)
! !
+
!BrowserView class methodsFor:'resources'!
classResources
^ SystemBrowser classResources
! !
+
!BrowserView methodsFor:'change & update'!
delayedUpdate:something with:someArgument from:changedObject
@@ -2086,6 +2094,7 @@
"Modified: 26.3.1997 / 18:29:51 / cg"
! !
+
!BrowserView methodsFor:'class category list menu'!
browserClone
@@ -2960,6 +2969,7 @@
"Modified: / 10.4.1998 / 12:25:38 / cg"
! !
+
!BrowserView methodsFor:'class category source administration'!
classCategoryCheckinEach
@@ -3416,6 +3426,7 @@
"Modified (format): / 29-09-2011 / 16:09:52 / cg"
! !
+
!BrowserView methodsFor:'class category stuff'!
checkClassCategorySelected
@@ -3700,6 +3711,7 @@
"Modified: / 27.7.1998 / 10:56:50 / cg"
! !
+
!BrowserView methodsFor:'class history'!
changeHistoryMenu
@@ -3897,6 +3909,7 @@
self class classHistory:savedHistory.
! !
+
!BrowserView methodsFor:'class list menu'!
classClassInstVars
@@ -5207,6 +5220,7 @@
"Modified: 17.6.1997 / 13:32:40 / cg"
! !
+
!BrowserView methodsFor:'class list source administration'!
classCheckin
@@ -5756,6 +5770,7 @@
"Modified: / 10.2.2000 / 14:14:09 / cg"
! !
+
!BrowserView methodsFor:'class stuff'!
allClasses
@@ -6931,6 +6946,7 @@
"Modified: 10.1.1997 / 14:01:20 / cg"
! !
+
!BrowserView methodsFor:'class-method list menu'!
classMethodBrowse
@@ -7144,6 +7160,7 @@
"Modified: / 7.8.1998 / 17:13:47 / cg"
! !
+
!BrowserView methodsFor:'class-method stuff'!
classFromClassMethodString:aString
@@ -7432,6 +7449,7 @@
"Modified: / 17.10.1998 / 11:30:35 / cg"
! !
+
!BrowserView methodsFor:'event handling'!
handlesKeyPress:key inView:view
@@ -7534,6 +7552,7 @@
"Modified: / 18.4.1998 / 15:56:36 / cg"
! !
+
!BrowserView methodsFor:'help'!
helpTextFor:aComponent
@@ -7555,6 +7574,7 @@
"Modified: 28.6.1997 / 15:00:18 / cg"
! !
+
!BrowserView methodsFor:'initialization & release'!
autoSearch:aString
@@ -7741,6 +7761,7 @@
"Modified: 18.8.1997 / 15:19:50 / cg"
! !
+
!BrowserView methodsFor:'initialize subviews'!
createClassListViewIn:frame
@@ -8311,6 +8332,7 @@
"Modified: / 25.10.1997 / 19:27:40 / cg"
! !
+
!BrowserView methodsFor:'method category list menu'!
createAccessMethodsFor:aCollectionOfInstVarNames withChange:withChange
@@ -8852,6 +8874,7 @@
]
! !
+
!BrowserView methodsFor:'method category stuff'!
asBrowserList:aList
@@ -9098,6 +9121,7 @@
"Modified: 18.8.1997 / 15:44:38 / cg"
! !
+
!BrowserView methodsFor:'method list menu'!
commonTraceHelperWith:aSelector
@@ -10523,6 +10547,7 @@
"Modified: / 12.1.1998 / 19:16:22 / cg"
! !
+
!BrowserView methodsFor:'method stuff'!
checkMethodSelected
@@ -11066,6 +11091,7 @@
"Modified: 30.7.1997 / 15:55:06 / cg"
! !
+
!BrowserView methodsFor:'misc'!
beep
@@ -11362,6 +11388,7 @@
"Modified: / 10.2.2000 / 14:15:03 / cg"
! !
+
!BrowserView methodsFor:'namespace menu'!
nameSpaceCheckInEach
@@ -11514,6 +11541,7 @@
"Modified: / 3.2.1999 / 20:18:13 / cg"
! !
+
!BrowserView methodsFor:'namespace stuff'!
changeNameSpaceTo:nsName
@@ -11699,6 +11727,7 @@
"Created: 8.1.1997 / 10:54:03 / cg"
! !
+
!BrowserView methodsFor:'private'!
askAndBrowseMethodCategory:title action:aBlock
@@ -13253,8 +13282,15 @@
"Created: 18.8.1997 / 15:41:52 / cg"
! !
+
!BrowserView methodsFor:'private-defaults'!
+breakPointedIcon
+ "answer an icon to mark breakPointed methods"
+
+ ^ self fetchIcon:#breakPointed selector:#breakPointedIcon
+!
+
canvasIcon
"answer an icon to mark canvas (windowSpec) methods"
@@ -13265,13 +13301,14 @@
"answer an icon"
icons isNil ifTrue:[icons := IdentityDictionary new].
- Icons isNil ifTrue:[Icons := IdentityDictionary new].
+ "/ Icons isNil ifTrue:[Icons := IdentityDictionary new].
^ icons at:name ifAbsentPut:[
|fh icn h|
- (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [
- Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display).
+ true "(icn := Icons at:name ifAbsent:nil) isNil" ifTrue: [
+ icn := (SystemBrowser perform:fetchSelector) onDevice:Display.
+ "/ Icons at:name put:icn.
icn clearMaskedPixels.
].
h := icn height.
@@ -13370,6 +13407,7 @@
^ self fetchIcon:#trace selector:#traceIcon
! !
+
!BrowserView methodsFor:'private-queries'!
hasClassCategorySelected
@@ -13493,6 +13531,7 @@
and:[ variableListView selectionValue notNil ]]
! !
+
!BrowserView methodsFor:'syntax coloring'!
startSyntaxHighlightProcess
@@ -13680,6 +13719,7 @@
"Modified: / 20.11.2001 / 00:38:09 / cg"
! !
+
!BrowserView methodsFor:'unused'!
listOfAllMethodCategoriesInHierarchy:aClass
@@ -13726,6 +13766,7 @@
"Modified: 5.6.1996 / 11:42:12 / stefan"
! !
+
!BrowserView methodsFor:'variable list menu'!
allClassInstVarMods
@@ -14238,6 +14279,7 @@
"Modified: 25.5.1996 / 12:26:07 / cg"
! !
+
!BrowserView methodsFor:'variable stuff'!
hilightEntryFor:entry
@@ -14549,10 +14591,11 @@
"Modified: / 17.9.1998 / 13:45:02 / cg"
! !
+
!BrowserView class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.839 2012-09-09 12:58:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.840 2013-03-22 11:36:31 cg Exp $'
!
version_HG