--- a/SBrowser.st Fri Oct 09 16:15:46 1998 +0200
+++ b/SBrowser.st Fri Oct 09 16:16:45 1998 +0200
@@ -1747,6 +1747,38 @@
consisting of the classes name and the selector, separated by spaces.
For class methods, the string ' class' must be appended to the classname."
+ ^ self
+ browseMethods:aList
+ title:aString
+ sort:true
+
+
+ "
+ SystemBrowser
+ browseMethods:#('Object printOn:' 'Collection add:')
+ title:'some methods'
+
+ SystemBrowser
+ browseMethods:#('Behavior new:' 'Setclass new:')
+ title:'some new: methods'
+
+ SystemBrowser
+ browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
+ with:(Collection compiledMethodAt:#add:)
+ with:(Object class compiledMethodAt:#initialize))
+ title:'some methods'
+
+ "
+
+ "Modified: 1.11.1996 / 16:30:17 / cg"
+!
+
+browseMethods:aList title:aString sort:doSort
+ "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."
+
|l|
(aList size == 0) ifTrue:[
@@ -1771,7 +1803,7 @@
]
].
- l sort.
+ doSort ifTrue:[l sort].
^ self
newWithLabel:aString
setupSelector:#setupForList:
@@ -1961,6 +1993,6 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.87 1998-06-18 14:52:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.88 1998-10-09 14:16:45 cg Exp $'
! !
SystemBrowser initialize!
--- a/SystemBrowser.st Fri Oct 09 16:15:46 1998 +0200
+++ b/SystemBrowser.st Fri Oct 09 16:16:45 1998 +0200
@@ -1747,6 +1747,38 @@
consisting of the classes name and the selector, separated by spaces.
For class methods, the string ' class' must be appended to the classname."
+ ^ self
+ browseMethods:aList
+ title:aString
+ sort:true
+
+
+ "
+ SystemBrowser
+ browseMethods:#('Object printOn:' 'Collection add:')
+ title:'some methods'
+
+ SystemBrowser
+ browseMethods:#('Behavior new:' 'Setclass new:')
+ title:'some new: methods'
+
+ SystemBrowser
+ browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
+ with:(Collection compiledMethodAt:#add:)
+ with:(Object class compiledMethodAt:#initialize))
+ title:'some methods'
+
+ "
+
+ "Modified: 1.11.1996 / 16:30:17 / cg"
+!
+
+browseMethods:aList title:aString sort:doSort
+ "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."
+
|l|
(aList size == 0) ifTrue:[
@@ -1771,7 +1803,7 @@
]
].
- l sort.
+ doSort ifTrue:[l sort].
^ self
newWithLabel:aString
setupSelector:#setupForList:
@@ -1961,6 +1993,6 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.87 1998-06-18 14:52:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.88 1998-10-09 14:16:45 cg Exp $'
! !
SystemBrowser initialize!