59 |
61 |
60 ) |
62 ) |
61 ) |
63 ) |
62 ! ! |
64 ! ! |
63 |
65 |
|
66 !VDBDebuggerApplication class methodsFor:'menu specs'! |
|
67 |
|
68 mainMenu |
|
69 "This resource specification was automatically generated |
|
70 by the MenuEditor of ST/X." |
|
71 |
|
72 "Do not manually edit this!! If it is corrupted, |
|
73 the MenuEditor may not be able to read the specification." |
|
74 |
|
75 |
|
76 " |
|
77 MenuEditor new openOnClass:VDBDebuggerApplication andSelector:#mainMenu |
|
78 (Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication mainMenu)) startUp |
|
79 " |
|
80 |
|
81 <resource: #menu> |
|
82 |
|
83 ^ |
|
84 #(Menu |
|
85 ( |
|
86 (MenuItem |
|
87 label: 'File' |
|
88 submenu: |
|
89 (Menu |
|
90 ( |
|
91 (MenuItem |
|
92 label: 'Open Executable' |
|
93 itemValue: doOpenExecutable |
|
94 ) |
|
95 (MenuItem |
|
96 label: '-' |
|
97 ) |
|
98 (MenuItem |
|
99 label: 'Quit' |
|
100 itemValue: doQuit |
|
101 ) |
|
102 ) |
|
103 nil |
|
104 nil |
|
105 ) |
|
106 ) |
|
107 (MenuItem |
|
108 label: 'Execution' |
|
109 submenu: |
|
110 (Menu |
|
111 ( |
|
112 (MenuItem |
|
113 enabled: canRunOrContinueHolder |
|
114 label: 'Run / Continue' |
|
115 itemValue: doRunOrContinue |
|
116 ) |
|
117 (MenuItem |
|
118 enabled: canStepIntoHolder |
|
119 label: 'Step Into' |
|
120 itemValue: doStepIn |
|
121 ) |
|
122 (MenuItem |
|
123 enabled: canStepOverHolder |
|
124 label: 'Step Over' |
|
125 itemValue: doStepOver |
|
126 ) |
|
127 (MenuItem |
|
128 enabled: canStepOutHolder |
|
129 label: 'Step Out' |
|
130 itemValue: doStepOut |
|
131 ) |
|
132 ) |
|
133 nil |
|
134 nil |
|
135 ) |
|
136 ) |
|
137 ) |
|
138 nil |
|
139 nil |
|
140 ) |
|
141 ! ! |
|
142 |
64 !VDBDebuggerApplication class methodsFor:'plugIn spec'! |
143 !VDBDebuggerApplication class methodsFor:'plugIn spec'! |
65 |
144 |
66 aspectSelectors |
145 aspectSelectors |
67 "This resource specification was automatically generated |
146 "This resource specification was automatically generated |
68 by the UIPainter of ST/X." |
147 by the UIPainter of ST/X." |
92 ^ containerBottom |
171 ^ containerBottom |
93 |
172 |
94 "Created: / 10-06-2014 / 17:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
173 "Created: / 10-06-2014 / 17:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95 ! ! |
174 ! ! |
96 |
175 |
|
176 !VDBDebuggerApplication methodsFor:'menu actions'! |
|
177 |
|
178 doOpenExecutable |
|
179 | file | |
|
180 |
|
181 file := Dialog requestFileName:'Selected executable to debug' pattern:'*'. |
|
182 file isNil ifTrue:[ ^ self ]. |
|
183 file := file asFilename. |
|
184 debugger send: (GDBMI_file_exec_and_symbols arguments: { file asString }) wait: false. |
|
185 |
|
186 "Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
187 ! |
|
188 |
|
189 doQuit |
|
190 "automatically generated by UIEditor ..." |
|
191 |
|
192 "*** the code below performs no action" |
|
193 "*** (except for some feedback on the Transcript)" |
|
194 "*** Please change as required and accept in the browser." |
|
195 "*** (and replace this comment by something more useful ;-)" |
|
196 |
|
197 "action to be added ..." |
|
198 |
|
199 Transcript showCR:self class name, ': action for #doQuit ...'. |
|
200 ! |
|
201 |
|
202 doRunOrContinue |
|
203 "automatically generated by UIEditor ..." |
|
204 |
|
205 "*** the code below performs no action" |
|
206 "*** (except for some feedback on the Transcript)" |
|
207 "*** Please change as required and accept in the browser." |
|
208 "*** (and replace this comment by something more useful ;-)" |
|
209 |
|
210 "action to be added ..." |
|
211 |
|
212 Transcript showCR:self class name, ': action for #doRunOrContinue ...'. |
|
213 ! |
|
214 |
|
215 doStepIn |
|
216 "automatically generated by UIEditor ..." |
|
217 |
|
218 "*** the code below performs no action" |
|
219 "*** (except for some feedback on the Transcript)" |
|
220 "*** Please change as required and accept in the browser." |
|
221 "*** (and replace this comment by something more useful ;-)" |
|
222 |
|
223 "action to be added ..." |
|
224 |
|
225 Transcript showCR:self class name, ': action for #doStepIn ...'. |
|
226 ! |
|
227 |
|
228 doStepOut |
|
229 "automatically generated by UIEditor ..." |
|
230 |
|
231 "*** the code below performs no action" |
|
232 "*** (except for some feedback on the Transcript)" |
|
233 "*** Please change as required and accept in the browser." |
|
234 "*** (and replace this comment by something more useful ;-)" |
|
235 |
|
236 "action to be added ..." |
|
237 |
|
238 Transcript showCR:self class name, ': action for #doStepOut ...'. |
|
239 ! |
|
240 |
|
241 doStepOver |
|
242 "automatically generated by UIEditor ..." |
|
243 |
|
244 "*** the code below performs no action" |
|
245 "*** (except for some feedback on the Transcript)" |
|
246 "*** Please change as required and accept in the browser." |
|
247 "*** (and replace this comment by something more useful ;-)" |
|
248 |
|
249 "action to be added ..." |
|
250 |
|
251 Transcript showCR:self class name, ': action for #doStepOver ...'. |
|
252 ! ! |
|
253 |
|
254 !VDBDebuggerApplication methodsFor:'menu queries'! |
|
255 |
|
256 canRunOrContinueHolder |
|
257 "automatically generated by UIEditor ..." |
|
258 |
|
259 "*** the code below performs no action" |
|
260 "*** (except for some feedback on the Transcript)" |
|
261 "*** Please change as required and accept in the browser." |
|
262 "*** (and replace this comment by something more useful ;-)" |
|
263 |
|
264 "action to be added ..." |
|
265 |
|
266 Transcript showCR:self class name, ': action for #canRunOrContinueHolder ...'. |
|
267 ! |
|
268 |
|
269 canStepIntoHolder |
|
270 "automatically generated by UIEditor ..." |
|
271 |
|
272 "*** the code below performs no action" |
|
273 "*** (except for some feedback on the Transcript)" |
|
274 "*** Please change as required and accept in the browser." |
|
275 "*** (and replace this comment by something more useful ;-)" |
|
276 |
|
277 "action to be added ..." |
|
278 |
|
279 Transcript showCR:self class name, ': action for #canStepIntoHolder ...'. |
|
280 ! |
|
281 |
|
282 canStepOutHolder |
|
283 "automatically generated by UIEditor ..." |
|
284 |
|
285 "*** the code below performs no action" |
|
286 "*** (except for some feedback on the Transcript)" |
|
287 "*** Please change as required and accept in the browser." |
|
288 "*** (and replace this comment by something more useful ;-)" |
|
289 |
|
290 "action to be added ..." |
|
291 |
|
292 Transcript showCR:self class name, ': action for #canStepOutHolder ...'. |
|
293 ! |
|
294 |
|
295 canStepOverHolder |
|
296 "automatically generated by UIEditor ..." |
|
297 |
|
298 "*** the code below performs no action" |
|
299 "*** (except for some feedback on the Transcript)" |
|
300 "*** Please change as required and accept in the browser." |
|
301 "*** (and replace this comment by something more useful ;-)" |
|
302 |
|
303 "action to be added ..." |
|
304 |
|
305 Transcript showCR:self class name, ': action for #canStepOverHolder ...'. |
|
306 ! ! |
|
307 |
|
308 !VDBDebuggerApplication class methodsFor:'documentation'! |
|
309 |
|
310 version_HG |
|
311 |
|
312 ^ '$Changeset: <not expanded> $' |
|
313 ! ! |
|
314 |