equal
deleted
inserted
replaced
28 |
28 |
29 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
29 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
30 " |
30 " |
31 ! ! |
31 ! ! |
32 |
32 |
|
33 !VDBModelPresenter class methodsFor:'menu specs'! |
|
34 |
|
35 contextMenu |
|
36 "This resource specification was automatically generated |
|
37 by the MenuEditor of ST/X." |
|
38 |
|
39 "Do not manually edit this!! If it is corrupted, |
|
40 the MenuEditor may not be able to read the specification." |
|
41 |
|
42 |
|
43 " |
|
44 MenuEditor new openOnClass:VDBModelPresenter andSelector:#contextMenu |
|
45 (Menu new fromLiteralArrayEncoding:(VDBModelPresenter contextMenu)) startUp |
|
46 " |
|
47 |
|
48 <resource: #menu> |
|
49 |
|
50 ^ |
|
51 #(Menu |
|
52 nil nil |
|
53 nil |
|
54 ) |
|
55 ! ! |
|
56 |
33 !VDBModelPresenter methodsFor:'accessing'! |
57 !VDBModelPresenter methodsFor:'accessing'! |
34 |
58 |
35 backgroundColor |
59 backgroundColor |
36 | app | |
60 | app | |
37 |
61 |
58 |
82 |
59 displayString |
83 displayString |
60 ^ self label |
84 ^ self label |
61 |
85 |
62 "Created: / 10-06-2017 / 12:24:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
86 "Created: / 10-06-2017 / 12:24:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
87 ! ! |
|
88 |
|
89 !VDBModelPresenter methodsFor:'menu'! |
|
90 |
|
91 contextMenu |
|
92 | menu | |
|
93 |
|
94 menu := Menu decodeFromLiteralArray: self class contextMenu. |
|
95 menu hasItems ifFalse:[ ^ menu ]. |
|
96 menu findGuiResourcesIn:self. |
|
97 menu itemsDo:[:item| |
|
98 | itemSelector | |
|
99 |
|
100 (itemSelector := item itemValue) isSymbol ifTrue:[ |
|
101 item itemValue: [ self perform: itemSelector ] |
|
102 ]. |
|
103 ]. |
|
104 menu addSeparator. |
|
105 ^ menu |
|
106 |
|
107 "Created: / 16-01-2018 / 22:03:53 / jv" |
|
108 ! ! |
|
109 |
|
110 !VDBModelPresenter methodsFor:'menu actions'! |
|
111 |
|
112 doCopy: aString |
|
113 <resource: #uiCallback> |
|
114 |
|
115 self application window setClipboardText: aString |
|
116 |
|
117 "Created: / 16-01-2018 / 22:36:30 / jv" |
63 ! ! |
118 ! ! |
64 |
119 |
65 !VDBModelPresenter methodsFor:'testing'! |
120 !VDBModelPresenter methodsFor:'testing'! |
66 |
121 |
67 isBreakpointPresenter |
122 isBreakpointPresenter |