equal
deleted
inserted
replaced
6877 |
6877 |
6878 |app| |
6878 |app| |
6879 |
6879 |
6880 app := menuPanel application. |
6880 app := menuPanel application. |
6881 |
6881 |
|
6882 "/ JV@2016-04-15: Fix for https://swing.fit.cvut.cz/projects/stx-jv/ticket/78 |
|
6883 "/ The isKinfOf: below is a super ugly, whip me hard, |
|
6884 "/ but a correct fix, i.e., adding isUIPainter to UISelectionPanel |
|
6885 "/ would require to fork stx:libtool2 which I'd like to avoid for now. |
|
6886 "/ If more fixes would go to stx:libtool2 then I will fork, and |
|
6887 "/ remove this code. |
6882 (menuPanel receiver isNil |
6888 (menuPanel receiver isNil |
6883 and:[ app notNil |
6889 and:[ app notNil |
6884 and:[ app askFor:#isUIPainter]]) |
6890 and:[ (app askFor:#isUIPainter) or:[app isKindOf: (Smalltalk at:#UISelectionPanel)]]]) |
6885 ifTrue:[ |
6891 ifTrue:[ |
6886 ^ self "/ suppressed |
6892 ^ self "/ suppressed |
6887 ]. |
6893 ]. |
6888 aMessage infoPrint. |
6894 aMessage infoPrint. |
6889 "/ app notNil ifTrue:[ |
6895 "/ app notNil ifTrue:[ |
6890 "/ ' Application: ' infoPrint. app infoPrint |
6896 "/ ' Application: ' infoPrint. app infoPrint |
6891 "/ ]. |
6897 "/ ]. |
6892 '' infoPrintCR. |
6898 '' infoPrintCR. |
|
6899 |
|
6900 "Modified: / 15-04-2016 / 18:24:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6893 ! |
6901 ! |
6894 |
6902 |
6895 indication |
6903 indication |
6896 "get on/off indication" |
6904 "get on/off indication" |
6897 |
6905 |
9264 ^ '$Header$' |
9272 ^ '$Header$' |
9265 ! |
9273 ! |
9266 |
9274 |
9267 version_CVS |
9275 version_CVS |
9268 ^ '$Header$' |
9276 ^ '$Header$' |
|
9277 ! |
|
9278 |
|
9279 version_HG |
|
9280 |
|
9281 ^ '$Changeset: <not expanded> $' |
9269 ! ! |
9282 ! ! |
9270 |
9283 |
9271 |
9284 |
9272 MenuPanel initialize! |
9285 MenuPanel initialize! |