equal
deleted
inserted
replaced
23 " |
23 " |
24 |
24 |
25 <resource: #tableColumns> |
25 <resource: #tableColumns> |
26 |
26 |
27 ^#( |
27 ^#( |
28 (DataSetColumnSpec |
28 (DataSetColumnSpec |
29 label: 'Value' |
29 label: 'Value' |
30 labelAlignment: left |
30 labelAlignment: left |
31 labelButtonType: Button |
31 labelButtonType: Button |
|
32 width: 1.0 |
32 height: heightOfFirstRow |
33 height: heightOfFirstRow |
33 menuFromApplication: false |
34 menuFromApplication: false |
34 printSelector: value |
35 printSelector: value |
|
36 backgroundSelector: backgroundColor |
35 showRowSeparator: false |
37 showRowSeparator: false |
36 showColSeparator: false |
38 showColSeparator: false |
37 ) |
39 ) |
38 ) |
40 ) |
39 |
41 |
40 "Created: / 02-06-2017 / 07:25:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
42 ! ! |
|
43 |
|
44 !VDBFrameApplication class methodsFor:'menu specs'! |
|
45 |
|
46 contextMenu |
|
47 "This resource specification was automatically generated |
|
48 by the MenuEditor of ST/X." |
|
49 |
|
50 "Do not manually edit this!! If it is corrupted, |
|
51 the MenuEditor may not be able to read the specification." |
|
52 |
|
53 |
|
54 " |
|
55 MenuEditor new openOnClass:VDBFrameApplication andSelector:#contextMenu |
|
56 (Menu new fromLiteralArrayEncoding:(VDBFrameApplication contextMenu)) startUp |
|
57 " |
|
58 |
|
59 <resource: #menu> |
|
60 |
|
61 ^ |
|
62 #(Menu |
|
63 ( |
|
64 (MenuItem |
|
65 label: 'Copy Value' |
|
66 itemValue: doCopyValue |
|
67 ) |
|
68 (MenuItem |
|
69 label: '-' |
|
70 ) |
|
71 (MenuItem |
|
72 label: 'Menu Slice' |
|
73 submenuChannel: contextMenuInspectSlice |
|
74 isMenuSlice: true |
|
75 ) |
|
76 ) |
|
77 nil |
|
78 nil |
|
79 ) |
41 ! ! |
80 ! ! |
42 |
81 |
43 !VDBFrameApplication class methodsFor:'plugIn spec'! |
82 !VDBFrameApplication class methodsFor:'plugIn spec'! |
44 |
83 |
45 aspectSelectors |
84 aspectSelectors |
72 |
111 |
73 pageSpecs |
112 pageSpecs |
74 "this is only required for web-applications" |
113 "this is only required for web-applications" |
75 |
114 |
76 ^ self shouldImplement |
115 ^ self shouldImplement |
|
116 ! ! |
|
117 |
|
118 !VDBFrameApplication methodsFor:'actions'! |
|
119 |
|
120 doDoubleClick |
|
121 "Invoked when user double-clicks to list item." |
|
122 |
|
123 self doCopyValue |
|
124 |
|
125 "Created: / 13-06-2017 / 17:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
77 ! ! |
126 ! ! |
78 |
127 |
79 !VDBFrameApplication methodsFor:'aspects'! |
128 !VDBFrameApplication methodsFor:'aspects'! |
80 |
129 |
81 frameHolder |
130 frameHolder |
196 Must be redefined in order for drop to work." |
245 Must be redefined in order for drop to work." |
197 |
246 |
198 ^ self shouldImplement |
247 ^ self shouldImplement |
199 ! ! |
248 ! ! |
200 |
249 |
|
250 !VDBFrameApplication methodsFor:'menu actions'! |
|
251 |
|
252 doCopyValue |
|
253 internalListView setClipboardText: (self selectedVariableHolder value varobj value) |
|
254 |
|
255 "Modified: / 13-06-2017 / 14:58:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
256 ! ! |
|
257 |