equal
deleted
inserted
replaced
68 ) |
68 ) |
69 ) |
69 ) |
70 |
70 |
71 ! ! |
71 ! ! |
72 |
72 |
73 !VDBFrameApplication class methodsFor:'menu specs'! |
|
74 |
|
75 contextMenu |
|
76 "This resource specification was automatically generated |
|
77 by the MenuEditor of ST/X." |
|
78 |
|
79 "Do not manually edit this!! If it is corrupted, |
|
80 the MenuEditor may not be able to read the specification." |
|
81 |
|
82 |
|
83 " |
|
84 MenuEditor new openOnClass:VDBFrameApplication andSelector:#contextMenu |
|
85 (Menu new fromLiteralArrayEncoding:(VDBFrameApplication contextMenu)) startUp |
|
86 " |
|
87 |
|
88 <resource: #menu> |
|
89 |
|
90 ^ |
|
91 #(Menu |
|
92 ( |
|
93 (MenuItem |
|
94 label: 'Copy Value' |
|
95 itemValue: doCopyValue |
|
96 ) |
|
97 (MenuItem |
|
98 label: '-' |
|
99 ) |
|
100 (MenuItem |
|
101 label: 'Menu Slice' |
|
102 submenuChannel: contextMenuInspectSlice |
|
103 isMenuSlice: true |
|
104 ) |
|
105 ) |
|
106 nil |
|
107 nil |
|
108 ) |
|
109 ! ! |
|
110 |
|
111 !VDBFrameApplication class methodsFor:'plugIn spec'! |
73 !VDBFrameApplication class methodsFor:'plugIn spec'! |
112 |
74 |
113 aspectSelectors |
75 aspectSelectors |
114 "This resource specification was automatically generated |
76 "This resource specification was automatically generated |
115 by the UIPainter of ST/X." |
77 by the UIPainter of ST/X." |
146 |
108 |
147 !VDBFrameApplication methodsFor:'actions'! |
109 !VDBFrameApplication methodsFor:'actions'! |
148 |
110 |
149 doDoubleClick |
111 doDoubleClick |
150 "Invoked when user double-clicks to list item." |
112 "Invoked when user double-clicks to list item." |
|
113 |
|
114 | selectedVariablePresenter | |
151 |
115 |
152 self doCopyValue |
116 selectedVariablePresenter := self internalSelectionHolder value. |
|
117 selectedVariablePresenter notNil ifTrue:[ |
|
118 selectedVariablePresenter doCopyValue |
|
119 ]. |
153 |
120 |
154 "Created: / 13-06-2017 / 17:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
121 "Created: / 13-06-2017 / 17:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
122 "Modified: / 16-01-2018 / 23:33:12 / jv" |
155 ! ! |
123 ! ! |
156 |
124 |
157 !VDBFrameApplication methodsFor:'aspects'! |
125 !VDBFrameApplication methodsFor:'aspects'! |
158 |
126 |
159 frameHolder |
127 frameHolder |
274 Must be redefined in order for drop to work." |
242 Must be redefined in order for drop to work." |
275 |
243 |
276 ^ self shouldImplement |
244 ^ self shouldImplement |
277 ! ! |
245 ! ! |
278 |
246 |
279 !VDBFrameApplication methodsFor:'menu actions'! |
|
280 |
|
281 doCopyValue |
|
282 internalListView setClipboardText: (self selectedVariableHolder value varobj value) |
|
283 |
|
284 "Modified: / 13-06-2017 / 14:58:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
285 ! ! |
|
286 |
|
287 !VDBFrameApplication class methodsFor:'documentation'! |
247 !VDBFrameApplication class methodsFor:'documentation'! |
288 |
248 |
289 version_HG |
249 version_HG |
290 |
250 |
291 ^ '$Changeset: <not expanded> $' |
251 ^ '$Changeset: <not expanded> $' |