# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 907942605 -7200
# Node ID 0652e55065f991edf6815950c0a17a40f163a7a9
# Parent  9beb5abaa3a53aabe3b199aedc16cc0c41312a03
added sort option to #browserMethods:

diff -r 9beb5abaa3a5 -r 0652e55065f9 SBrowser.st
--- 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!
diff -r 9beb5abaa3a5 -r 0652e55065f9 SystemBrowser.st
--- 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!