384 browseClassesMenu: classes |
384 browseClassesMenu: classes |
385 | menu| |
385 | menu| |
386 |
386 |
387 menu := Menu new. |
387 menu := Menu new. |
388 classes do: [:cls| |
388 classes do: [:cls| |
389 menu addItem:(MenuItem |
389 menu addItemLabel: ('Browse ' , cls fullName allBold) |
390 label: ('Browse ' , cls fullName allBold) |
390 value:[self browseClass: cls] |
391 itemValue:[self browseClass: cls])]. |
391 ]. |
392 |
392 |
393 ^ menu |
393 ^ menu |
394 |
394 |
395 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
395 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
396 "Created: / 01-09-2009 / 09:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
396 "Created: / 01-09-2009 / 09:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
441 implementors := self implementorsOf:selector. |
441 implementors := self implementorsOf:selector. |
442 implementors isEmptyOrNil ifTrue:[ |
442 implementors isEmptyOrNil ifTrue:[ |
443 menu addItem:(MenuItem label:'No implementors found') disable |
443 menu addItem:(MenuItem label:'No implementors found') disable |
444 ] ifFalse:[ |
444 ] ifFalse:[ |
445 selectorString := selector storeString. |
445 selectorString := selector storeString. |
446 menu addItem:(MenuItem |
446 menu addItemLabel:(selectorString , (' (all implementors) ') allItalic) |
447 label:(selectorString , (' (all implementors) ') allItalic) |
447 value:[ |
448 itemValue:[ |
448 self browseMethods:implementors label:'Implementors of ' , selectorString |
449 self browseMethods:implementors label:'Implementors of ' , selectorString |
449 ]. |
450 ]). |
|
451 menu addSeparator. |
450 menu addSeparator. |
452 implementors do:[:mth | |
451 implementors do:[:mth | |
453 menu |
452 menu |
454 addItem:(MenuItem |
453 addItemLabel:(selectorString , (' in ' , mth containingClass name allBold)) |
455 label:(selectorString |
454 value:[ self browseMethod:mth label: 'Implementor of ' , selectorString ]. |
456 , (' in ' , mth containingClass name allBold)) |
|
457 itemValue:[ self browseMethod:mth label: 'Implementor of ' , selectorString ]) |
|
458 ] |
455 ] |
459 ]. |
456 ]. |
460 ^ menu |
457 ^ menu |
461 |
458 |
462 "Created: / 18-02-2008 / 21:05:47 / janfrog" |
459 "Created: / 18-02-2008 / 21:05:47 / janfrog" |
474 implementors := self sendersOf:selector. |
471 implementors := self sendersOf:selector. |
475 implementors isEmptyOrNil ifTrue:[ |
472 implementors isEmptyOrNil ifTrue:[ |
476 menu addItem:(MenuItem label:'No senders found') disable |
473 menu addItem:(MenuItem label:'No senders found') disable |
477 ] ifFalse:[ |
474 ] ifFalse:[ |
478 selectorString := selector storeString. |
475 selectorString := selector storeString. |
479 menu addItem:(MenuItem |
476 menu addItemLabel:(selectorString , (' (all senders)') allItalic) |
480 label:(selectorString , (' (all senders)') allItalic) |
477 value:[ |
481 itemValue:[ |
478 self browseMethods:implementors label:'Senders of ' , selectorString |
482 self browseMethods:implementors label:'Senders of ' , selectorString |
479 ]. |
483 ]). |
|
484 menu addSeparator. |
480 menu addSeparator. |
485 implementors do:[:mth | |
481 implementors do:[:mth | |
486 menu |
482 menu |
487 addItem:(MenuItem |
483 addItemLabel:(mth selector storeString , (' in ' , mth containingClass name allBold)) |
488 label:(mth selector storeString |
484 value:[ self browseMethod:mth label: 'Sender of ' , selectorString ] |
489 , (' in ' , mth containingClass name allBold)) |
|
490 itemValue:[ self browseMethod:mth label: 'Sender of ' , selectorString ]) |
|
491 ] |
485 ] |
492 ]. |
486 ]. |
493 ^ menu |
487 ^ menu |
494 |
488 |
495 "Created: / 18-02-2008 / 21:05:56 / janfrog" |
489 "Created: / 18-02-2008 / 21:05:56 / janfrog" |