--- a/BrowserView.st Fri Mar 19 21:21:16 1999 +0100
+++ b/BrowserView.st Fri Mar 19 21:32:22 1999 +0100
@@ -25,7 +25,8 @@
classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon
TabListIcon HierarchicalListIcon TableColumnsIcon HelpIcon
- ShowResourceIcons ClassHistory LastSearchPatterns'
+ ShowResourceIcons ClassHistory LastSearchPatterns
+ ShowMethodCategoryInClassMethodList'
poolDictionaries:''
category:'Interface-Browsers'
!
@@ -77,10 +78,22 @@
"Browser configuration;
(values can be changed from your private startup file)"
+
+ "
+ setting 'ShowMethodCategoryInClassMethodList' to false will suppress the display
+ of a methods category in the search-result browsers..
+ "
+ ShowMethodCategoryInClassMethodList := true.
+
+ "
+ setting 'ShowResourceIcons' to false will suppress the display
+ of image-, menu-, canvas- etc. icons beside the method name in
+ the method list.
+ "
ShowResourceIcons := true.
"
- setting this to false, the removeClass function will remove
+ setting 'CheckForInstancesWhenRemovingClasses' to false, the removeClass function will remove
classes WITHOUT checking for instances. Otherwise,
it will check and let you confirm in case there are instances.
Checking for instances may be a bit time consuming, though.
@@ -89,7 +102,7 @@
CheckForInstancesWhenRemovingClasses := true.
"
- setting this to true makes the browser remember the aspect shown
+ setting 'RememberAspect' to true makes the browser remember the aspect shown
in the classList and show this aspect when a new class is selected.
If false, it always switches to the classes definition
"
@@ -6062,7 +6075,7 @@
|pos s|
- s := aString withoutSpaces.
+ s := aString string withoutSpaces.
(s endsWith:'}') ifTrue:[
s := s copyTo:(s lastIndexOf:${) - 1.
s := s withoutSpaces.
@@ -6103,10 +6116,9 @@
(s endsWith:'???') ifFalse:[
s := s , ' ???'.
].
- newList add:s
] ifFalse:[
cls isJavaClass ifTrue:[
- newList add:entry.
+ s := entry.
"/ cls methodDictionary keysAndValuesDo:[:sel :mthd |
"/ mthd name = sel ifTrue:[
"/ newList add:(self listEntryForMethod:mthd selector:(cls name , ' ' , sel))
@@ -6114,13 +6126,20 @@
"/ ]
] ifFalse:[
mthd := cls compiledMethodAt:(sel asSymbol).
+ s := cls name , ' ' , sel asText allBold.
mthd isNil ifTrue:[
- newList add:cls name , ' ' , sel , ' ???'
+ s := s , ' ???'
] ifFalse:[
- newList add:(self listEntryForMethod:mthd selector:(cls name , ' ' , sel , ' {' , mthd category , '}'))
+ ShowMethodCategoryInClassMethodList == true ifTrue:[
+ s := s , ' {' , mthd category asText allItalic, '}'
+ ].
+ s := (self
+ listEntryForMethod:mthd
+ selector:s)
]
].
].
+ newList add:s.
].
classMethodListView setList:newList.
classMethodListView setSelection:selection.
@@ -13102,6 +13121,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.483 1999-03-19 20:21:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.484 1999-03-19 20:32:22 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Fri Mar 19 21:21:16 1999 +0100
+++ b/BrwsrView.st Fri Mar 19 21:32:22 1999 +0100
@@ -25,7 +25,8 @@
classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
StopIcon TraceIcon TimeIcon CanvasIcon MenuIcon ImageIcon
TabListIcon HierarchicalListIcon TableColumnsIcon HelpIcon
- ShowResourceIcons ClassHistory LastSearchPatterns'
+ ShowResourceIcons ClassHistory LastSearchPatterns
+ ShowMethodCategoryInClassMethodList'
poolDictionaries:''
category:'Interface-Browsers'
!
@@ -77,10 +78,22 @@
"Browser configuration;
(values can be changed from your private startup file)"
+
+ "
+ setting 'ShowMethodCategoryInClassMethodList' to false will suppress the display
+ of a methods category in the search-result browsers..
+ "
+ ShowMethodCategoryInClassMethodList := true.
+
+ "
+ setting 'ShowResourceIcons' to false will suppress the display
+ of image-, menu-, canvas- etc. icons beside the method name in
+ the method list.
+ "
ShowResourceIcons := true.
"
- setting this to false, the removeClass function will remove
+ setting 'CheckForInstancesWhenRemovingClasses' to false, the removeClass function will remove
classes WITHOUT checking for instances. Otherwise,
it will check and let you confirm in case there are instances.
Checking for instances may be a bit time consuming, though.
@@ -89,7 +102,7 @@
CheckForInstancesWhenRemovingClasses := true.
"
- setting this to true makes the browser remember the aspect shown
+ setting 'RememberAspect' to true makes the browser remember the aspect shown
in the classList and show this aspect when a new class is selected.
If false, it always switches to the classes definition
"
@@ -6062,7 +6075,7 @@
|pos s|
- s := aString withoutSpaces.
+ s := aString string withoutSpaces.
(s endsWith:'}') ifTrue:[
s := s copyTo:(s lastIndexOf:${) - 1.
s := s withoutSpaces.
@@ -6103,10 +6116,9 @@
(s endsWith:'???') ifFalse:[
s := s , ' ???'.
].
- newList add:s
] ifFalse:[
cls isJavaClass ifTrue:[
- newList add:entry.
+ s := entry.
"/ cls methodDictionary keysAndValuesDo:[:sel :mthd |
"/ mthd name = sel ifTrue:[
"/ newList add:(self listEntryForMethod:mthd selector:(cls name , ' ' , sel))
@@ -6114,13 +6126,20 @@
"/ ]
] ifFalse:[
mthd := cls compiledMethodAt:(sel asSymbol).
+ s := cls name , ' ' , sel asText allBold.
mthd isNil ifTrue:[
- newList add:cls name , ' ' , sel , ' ???'
+ s := s , ' ???'
] ifFalse:[
- newList add:(self listEntryForMethod:mthd selector:(cls name , ' ' , sel , ' {' , mthd category , '}'))
+ ShowMethodCategoryInClassMethodList == true ifTrue:[
+ s := s , ' {' , mthd category asText allItalic, '}'
+ ].
+ s := (self
+ listEntryForMethod:mthd
+ selector:s)
]
].
].
+ newList add:s.
].
classMethodListView setList:newList.
classMethodListView setSelection:selection.
@@ -13102,6 +13121,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.483 1999-03-19 20:21:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.484 1999-03-19 20:32:22 cg Exp $'
! !
BrowserView initialize!