equal
deleted
inserted
replaced
221 ! |
221 ! |
222 |
222 |
223 button2PressForSelector: selector |
223 button2PressForSelector: selector |
224 | senders | |
224 | senders | |
225 |
225 |
226 senders := codeView sendersOf: selector. |
226 [ |
|
227 senders := codeView sendersOf: selector. |
|
228 ] valueWithTimeout:(500 milliseconds). |
|
229 senders isNil ifTrue:[^ self]. |
|
230 |
227 "/ senders size = 1 ifTrue:[ codeView browseMethod: senders anyOne. ^ self]. |
231 "/ senders size = 1 ifTrue:[ codeView browseMethod: senders anyOne. ^ self]. |
228 [ |
232 [ |
229 menuShown := codeView sendersMenu: senders selector: selector. |
233 menuShown := codeView sendersMenu: senders selector: selector. |
230 "/ cg: why is this done? |
234 "/ cg: why is this done? |
231 "/ self highlightClear. |
235 "/ self highlightClear. |
723 ! ! |
727 ! ! |
724 |
728 |
725 !CodeNavigationService class methodsFor:'documentation'! |
729 !CodeNavigationService class methodsFor:'documentation'! |
726 |
730 |
727 version |
731 version |
728 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.32 2013-08-29 14:38:29 cg Exp $' |
732 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.33 2013-08-30 23:05:12 cg Exp $' |
729 ! |
733 ! |
730 |
734 |
731 version_CVS |
735 version_CVS |
732 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.32 2013-08-29 14:38:29 cg Exp $' |
736 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.33 2013-08-30 23:05:12 cg Exp $' |
733 ! |
737 ! |
734 |
738 |
735 version_SVN |
739 version_SVN |
736 ^ '$Id: Tools__CodeNavigationService.st,v 1.32 2013-08-29 14:38:29 cg Exp $' |
740 ^ '$Id: Tools__CodeNavigationService.st,v 1.33 2013-08-30 23:05:12 cg Exp $' |
737 ! ! |
741 ! ! |
738 |
742 |