equal
deleted
inserted
replaced
1368 |
1368 |
1369 aMethod isAssociation ifTrue:[ |
1369 aMethod isAssociation ifTrue:[ |
1370 self halt:'should not happen'. |
1370 self halt:'should not happen'. |
1371 ]. |
1371 ]. |
1372 |
1372 |
1373 s := aMethod printStringForBrowserWithSelector:selector inClass:cls. |
1373 selector isNil ifTrue:[ |
|
1374 s := '???' |
|
1375 ] ifFalse:[ |
|
1376 s := aMethod printStringForBrowserWithSelector:selector inClass:cls. |
|
1377 ]. |
1374 showClassFirst ifTrue:[ |
1378 showClassFirst ifTrue:[ |
1375 clsName := cls nameInBrowser. |
1379 clsName := cls nameInBrowser. |
1376 s := clsName , ' ' , s allBold |
1380 s := clsName , ' ' , s allBold |
1377 ]. |
1381 ]. |
1378 |
1382 |
1573 ! ! |
1577 ! ! |
1574 |
1578 |
1575 !MethodList class methodsFor:'documentation'! |
1579 !MethodList class methodsFor:'documentation'! |
1576 |
1580 |
1577 version |
1581 version |
1578 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.35 2009-05-28 05:14:19 cg Exp $' |
1582 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.36 2009-05-28 19:19:42 cg Exp $' |
1579 ! ! |
1583 ! ! |