Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use new Method>>who interface
authorClaus Gittinger <cg@exept.de>
Fri, 01 Nov 1996 17:21:34 +0100
changeset 825 42afde0ee738
parent 824 099fa90db8aa
child 826 cdbbf4eb1afb
use new Method>>who interface
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SBrowser.st	Fri Nov 01 17:19:46 1996 +0100
+++ b/SBrowser.st	Fri Nov 01 17:21:34 1996 +0100
@@ -1333,10 +1333,10 @@
         entry isString ifTrue:[
             entry
         ] ifFalse:[
-            |who|
-
             who := entry who.
-            (who at:1) name , ' ' , (entry printStringForBrowserWithSelector:(who at:2))
+            (who methodClass) name 
+            , ' ' 
+            , (entry printStringForBrowserWithSelector:(who methodSelector))
         ]
       ].
         
@@ -1364,7 +1364,7 @@
     "
 
     "Modified: 17.6.1996 / 17:07:46 / stefan"
-    "Modified: 15.7.1996 / 11:47:11 / cg"
+    "Modified: 1.11.1996 / 16:30:17 / cg"
 !
 
 browseMethodsFrom:aClass where:aBlock title:title
@@ -1512,6 +1512,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.69 1996-10-31 13:58:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.70 1996-11-01 16:21:34 cg Exp $'
 ! !
 SystemBrowser initialize!
--- a/SystemBrowser.st	Fri Nov 01 17:19:46 1996 +0100
+++ b/SystemBrowser.st	Fri Nov 01 17:21:34 1996 +0100
@@ -1333,10 +1333,10 @@
         entry isString ifTrue:[
             entry
         ] ifFalse:[
-            |who|
-
             who := entry who.
-            (who at:1) name , ' ' , (entry printStringForBrowserWithSelector:(who at:2))
+            (who methodClass) name 
+            , ' ' 
+            , (entry printStringForBrowserWithSelector:(who methodSelector))
         ]
       ].
         
@@ -1364,7 +1364,7 @@
     "
 
     "Modified: 17.6.1996 / 17:07:46 / stefan"
-    "Modified: 15.7.1996 / 11:47:11 / cg"
+    "Modified: 1.11.1996 / 16:30:17 / cg"
 !
 
 browseMethodsFrom:aClass where:aBlock title:title
@@ -1512,6 +1512,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.69 1996-10-31 13:58:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.70 1996-11-01 16:21:34 cg Exp $'
 ! !
 SystemBrowser initialize!
hg/stx-libtool