1 " |
1 " |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
3 COPYRIGHT (c) 2015-2018 Jan Vrany |
3 COPYRIGHT (c) 2015-2018 Jan Vrany |
4 COPYRIGHT (c) 2021 LabWare |
4 COPYRIGHT (c) 2021-2022 LabWare |
5 All Rights Reserved |
5 All Rights Reserved |
6 |
6 |
7 Permission is hereby granted, free of charge, to any person |
7 Permission is hereby granted, free of charge, to any person |
8 obtaining a copy of this software and associated documentation |
8 obtaining a copy of this software and associated documentation |
9 files (the 'Software'), to deal in the Software without |
9 files (the 'Software'), to deal in the Software without |
72 |
72 |
73 copyright |
73 copyright |
74 " |
74 " |
75 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
75 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
76 COPYRIGHT (c) 2015-2018 Jan Vrany |
76 COPYRIGHT (c) 2015-2018 Jan Vrany |
77 COPYRIGHT (c) 2021 LabWare |
77 COPYRIGHT (c) 2021-2022 LabWare |
78 All Rights Reserved |
78 All Rights Reserved |
79 |
79 |
80 Permission is hereby granted, free of charge, to any person |
80 Permission is hereby granted, free of charge, to any person |
81 obtaining a copy of this software and associated documentation |
81 obtaining a copy of this software and associated documentation |
82 files (the 'Software'), to deal in the Software without |
82 files (the 'Software'), to deal in the Software without |
2015 "Modified: / 07-03-2012 / 12:56:56 / cg" |
2015 "Modified: / 07-03-2012 / 12:56:56 / cg" |
2016 "Modified: / 14-10-2013 / 10:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2016 "Modified: / 14-10-2013 / 10:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2017 ! |
2017 ! |
2018 |
2018 |
2019 sendersMenu |
2019 sendersMenu |
2020 |
2020 | selectorAndSelectedText selector selectedText senders | |
2021 | selectorAndSelectedText selector selectedText senders | |
|
2022 |
2021 |
2023 selectorAndSelectedText := self extractSelectorAndSelectedText. |
2022 selectorAndSelectedText := self extractSelectorAndSelectedText. |
2024 selectorAndSelectedText notNil ifTrue:[ |
2023 selectorAndSelectedText notNil ifTrue:[ |
2025 "/ self windowGroup withWaitCursorDo:[ |
2024 "/ self windowGroup withWaitCursorDo:[ |
2026 selectorAndSelectedText := self extractSelectorAndSelectedTextFrom: selectedText. |
2025 |
2027 selector := selectorAndSelectedText first. |
2026 selector := selectorAndSelectedText first. |
2028 selectedText := selectorAndSelectedText second. |
2027 selectedText := selectorAndSelectedText second. |
2029 |
2028 |
2030 (selector notNil and:[selector = selectedText]) ifTrue:[ |
2029 (selector notNil and:[selector = selectedText]) ifTrue:[ |
2031 senders := (SystemBrowser |
2030 senders := (SystemBrowser |
2032 findSendersOf:selectedText "Any:(Array with:selectedText)" |
2031 findSendersOf:selectedText "Any: (Array with:selectedText)" |
2033 in:(Smalltalk allClasses) |
2032 in:(Smalltalk allClasses) |
2034 ignoreCase:false) |
2033 ignoreCase:false) |
2035 |
2034 |
2036 ] ifFalse:[ |
2035 ] ifFalse:[ |
2037 senders := (SystemBrowser |
2036 senders := (SystemBrowser |
2038 findSendersOfAny:(Array with:selectedText with: selector) |
2037 findSendersOfAny:(Array with:selectedText with: selector) |
2039 in:(Smalltalk allClasses) |
2038 in:(Smalltalk allClasses) |
2040 ignoreCase:false) |
2039 ignoreCase:false) |
2041 ]. |
2040 ]. |
2042 "/ ] |
2041 "/ ] |
2043 ] ifFalse:[ |
2042 ] ifFalse:[ |
2044 senders := #(). |
2043 senders := #(). |
2045 ]. |
2044 ]. |
2046 |
|
2047 ^self sendersMenu: senders selector: (selector ? selectedText) |
2045 ^self sendersMenu: senders selector: (selector ? selectedText) |
2048 |
2046 |
2049 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
2047 "Modified: / 19-10-2008 / 08:16:50 / Jan Vrany <vranyj1@fel.cvut.cz>" |
2050 "Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2048 "Created: / 30-06-2011 / 19:28:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2051 "Modified: / 05-03-2012 / 09:02:56 / cg" |
2049 "Modified: / 05-03-2012 / 09:02:56 / cg" |
2052 "Modified: / 13-11-2017 / 21:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2050 "Modified: / 13-11-2017 / 21:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2051 "Modified: / 23-08-2022 / 05:15:34 / Jan Vrany <jan.vrany@labware.com>" |
2053 ! |
2052 ! |
2054 |
2053 |
2055 sendersMenu: senders selector: selector |
2054 sendersMenu: senders selector: selector |
2056 | menu shownSenderItems numCut sendersSorted| |
2055 | menu shownSenderItems numCut sendersSorted| |
2057 |
2056 |