--- a/SystemBrowser.st Wed Jun 19 09:47:37 1996 +0200
+++ b/SystemBrowser.st Thu Jun 20 00:30:09 1996 +0200
@@ -10,7 +10,7 @@
hereby transferred.
"
-'From Smalltalk/X, Version:2.10.9 on 11-jun-1996 at 16:32:26' !
+'From Smalltalk/X, Version:2.10.9 on 19-jun-1996 at 14:29:50' !
ApplicationModel subclass:#SystemBrowser
instanceVariableNames:'currentClass currentMethodCategory currentMethod currentSelector
@@ -21,7 +21,7 @@
category:'Interface-Browsers'
!
-!SystemBrowser class methodsFor:'documentation'!
+!SystemBrowser class methodsFor:'documentation'!
copyright
"
@@ -63,7 +63,7 @@
"
! !
-!SystemBrowser class methodsFor:'initialization'!
+!SystemBrowser class methodsFor:'initialization'!
initialize
"Browser configuration;
@@ -88,7 +88,7 @@
"
! !
-!SystemBrowser class methodsFor:'instance creation'!
+!SystemBrowser class methodsFor:'instance creation'!
open
"launch a standard browser"
@@ -162,7 +162,7 @@
"
! !
-!SystemBrowser class methodsFor:'private helpers'!
+!SystemBrowser class methodsFor:'private helpers'!
showNoneFound
super warn:(self classResources string:'None found').
@@ -172,7 +172,7 @@
super warn:(self classResources string:(what , '...\\... none found') withCRs).
! !
-!SystemBrowser class methodsFor:'private instance creation'!
+!SystemBrowser class methodsFor:'private instance creation'!
newWithLabel:aString setupBlock:aBlock
"common helper method for all creation methods"
@@ -211,7 +211,7 @@
^ newBrowser
! !
-!SystemBrowser class methodsFor:'special search startup'!
+!SystemBrowser class methodsFor:'special search startup'!
aproposSearch:aString
"browse all methods, which have aString in their selector or
@@ -604,7 +604,7 @@
aClass isMeta ifFalse:[
aClass class methodDictionary keys do:[:aSelector |
(aSelectorString match:aSelector) ifTrue:[
- list add:(nm , 'class ' , aSelector)
+ list add:(nm , ' class ' , aSelector)
]
]
]
@@ -627,7 +627,7 @@
].
aClass isMeta ifFalse:[
(aClass class implements:sel) ifTrue:[
- list add:(nm , 'class ' , aSelectorString)
+ list add:(nm , ' class ' , aSelectorString)
]
]
]
@@ -644,7 +644,7 @@
"Modified: 4.9.1995 / 17:33:39 / claus"
"Modified: 10.12.1995 / 16:59:03 / cg"
- "Modified: 7.6.1996 / 08:45:17 / stefan"
+ "Modified: 19.6.1996 / 14:19:02 / stefan"
!
browseImplementorsOf:aSelectorString under:aClass
@@ -990,7 +990,7 @@
"Modified: 24.4.1996 / 13:21:12 / cg"
! !
-!SystemBrowser class methodsFor:'startup'!
+!SystemBrowser class methodsFor:'startup'!
browseAllSelect:aBlock
"launch a browser for all methods where aBlock returns true.
@@ -1161,7 +1161,7 @@
"launch a browser for an explicit list of class/selectors.
Each entry in the list can be either a method, or a string
consisting of the classes name and the selector, separated by spaces.
- For class methods, the string 'class' must be appended to the classname."
+ For class methods, the string ' class' must be appended to the classname."
|l|
@@ -1207,6 +1207,7 @@
"
"Modified: 12.12.1995 / 16:34:27 / cg"
+ "Modified: 17.6.1996 / 17:07:46 / stefan"
!
browseMethodsFrom:aClass where:aBlock title:title
@@ -1296,7 +1297,7 @@
^ self browseMethodsIn:(Smalltalk allClasses) where:aBlock title:title
! !
-!SystemBrowser class methodsFor:'startup with query'!
+!SystemBrowser class methodsFor:'startup with query'!
askThenBrowseClass
self getClassThenPerform:#browseClass:
@@ -1351,9 +1352,9 @@
"
! !
-!SystemBrowser class methodsFor:'documentation'!
+!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.62 1996-06-12 22:14:15 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.63 1996-06-19 22:30:09 stefan Exp $'
! !
SystemBrowser initialize!