SystemBrowser.st
changeset 825 42afde0ee738
parent 820 2a412afad51d
child 929 a2275f1b4c94
equal deleted inserted replaced
824:099fa90db8aa 825:42afde0ee738
  1331         |who|
  1331         |who|
  1332 
  1332 
  1333         entry isString ifTrue:[
  1333         entry isString ifTrue:[
  1334             entry
  1334             entry
  1335         ] ifFalse:[
  1335         ] ifFalse:[
  1336             |who|
       
  1337 
       
  1338             who := entry who.
  1336             who := entry who.
  1339             (who at:1) name , ' ' , (entry printStringForBrowserWithSelector:(who at:2))
  1337             (who methodClass) name 
       
  1338             , ' ' 
       
  1339             , (entry printStringForBrowserWithSelector:(who methodSelector))
  1340         ]
  1340         ]
  1341       ].
  1341       ].
  1342         
  1342         
  1343     l sort.
  1343     l sort.
  1344     ^ self 
  1344     ^ self 
  1362         title:'some methods'
  1362         title:'some methods'
  1363 
  1363 
  1364     "
  1364     "
  1365 
  1365 
  1366     "Modified: 17.6.1996 / 17:07:46 / stefan"
  1366     "Modified: 17.6.1996 / 17:07:46 / stefan"
  1367     "Modified: 15.7.1996 / 11:47:11 / cg"
  1367     "Modified: 1.11.1996 / 16:30:17 / cg"
  1368 !
  1368 !
  1369 
  1369 
  1370 browseMethodsFrom:aClass where:aBlock title:title
  1370 browseMethodsFrom:aClass where:aBlock title:title
  1371     "launch a browser for all instance- and classmethods in aClass
  1371     "launch a browser for all instance- and classmethods in aClass
  1372      and all its subclasses where aBlock evaluates to true.
  1372      and all its subclasses where aBlock evaluates to true.
  1510 ! !
  1510 ! !
  1511 
  1511 
  1512 !SystemBrowser class methodsFor:'documentation'!
  1512 !SystemBrowser class methodsFor:'documentation'!
  1513 
  1513 
  1514 version
  1514 version
  1515     ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.69 1996-10-31 13:58:47 cg Exp $'
  1515     ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.70 1996-11-01 16:21:34 cg Exp $'
  1516 ! !
  1516 ! !
  1517 SystemBrowser initialize!
  1517 SystemBrowser initialize!