hg/stx-libtool: comparison SystemBrowser.st

equal deleted inserted replaced

-:4630175ed31e
+:24a678f81829
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 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
 		showInstance actualClasslastMethodCategory aspect lockUpdates
 		autoSearch myLabel acceptClass'
 	classVariableNames:'CheckForInstancesWhenRemovingClasses'
 	poolDictionaries:''
 	category:'Interface-Browsers'
 !
-!SystemBrowser class methodsFor:'documentation'!
+!SystemBrowser  class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 Claus Gittinger
 "
 ! !
-!SystemBrowser class methodsFor:'initialization'!
+!SystemBrowser  class methodsFor:'initialization'!
 initialize
 "Browser configuration;
 (values can be changed from your private startup file)"
 SystemBrowser initialize
 "
 ! !
-!SystemBrowser class methodsFor:'instance creation'!
+!SystemBrowser  class methodsFor:'instance creation'!
 open
 "launch a standard browser"
 ^ self openOnDevice:(Screen current)
 d startDispatch.
 SystemBrowser openOnDevice:d
 "
 ! !
-!SystemBrowser class methodsFor:'private helpers'!
+!SystemBrowser  class methodsFor:'private helpers'!
 showNoneFound
 super warn:(self classResources string:'None found').
 !
 showNoneFound:what
 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"
 ^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
 newBrowser perform:aSymbol with:arg.
 newBrowser open.
 ^ 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
 in the methods comment.
 This is relatively slow, since all source must be processed."
 ]
 ].
 aClass isMeta ifFalse:[
 aClass class methodDictionary keys do:[:aSelector |
 (aSelectorString match:aSelector) ifTrue:[
-list add:(nm , 'class ' , aSelector)
+list add:(nm , ' class ' , aSelector)
 ]
 ]
 ]
 ]
 ] ifFalse:[
 (aClass implements:sel) ifTrue:[
 list add:(nm , ' ' , aSelectorString)
 ].
 aClass isMeta ifFalse:[
 (aClass class implements:sel) ifTrue:[
-list add:(nm , 'class ' , aSelectorString)
+list add:(nm , ' class ' , aSelectorString)
 ]
 ]
 ]
 ].
 ^ self browseMethods:list asOrderedCollection title:title
 title:'some implementors of +'
 "
 "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
 "launch a browser for all implementors of aSelector in aClass
 and its subclasses"
 ^ searchBlock
 "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.
 The block is called with 3 arguments, class, method and seelctor."
 browseMethods:aList title:aString
 "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|
 (aList size == 0) ifTrue:[
 self showNoneFound:aString.
 title:'some methods'
 "
 "Modified: 12.12.1995 / 16:34:27 / cg"
+"Modified: 17.6.1996 / 17:07:46 / stefan"
 !
 browseMethodsFrom:aClass where:aBlock title:title
 "launch a browser for all instance- and classmethods in aClass
 and all its subclasses where aBlock evaluates to true.
 The block is called with 3 arguments, class, method and seelctor."
 ^ self browseMethodsIn:(Smalltalk allClasses) where:aBlock title:title
 ! !
-!SystemBrowser class methodsFor:'startup with query'!
+!SystemBrowser  class methodsFor:'startup with query'!
 askThenBrowseClass
 self getClassThenPerform:#browseClass:
 "
 "
 SystemBrowser getClassThenPerform:#browseClass:
 "
 ! !
-!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!

changeset 634	24a678f81829
parent 620	3ce270dbff3b
child 648	6ec086b7972c