equal
deleted
inserted
replaced
10 |
10 |
11 "{ NameSpace: Smalltalk }" |
11 "{ NameSpace: Smalltalk }" |
12 |
12 |
13 AbstractSettingsApplication subclass:#VDBSettingsApplication |
13 AbstractSettingsApplication subclass:#VDBSettingsApplication |
14 instanceVariableNames:'infoPanel vdbPrettyPrintingEnabled vdbFrameFiltersEnabled |
14 instanceVariableNames:'infoPanel vdbPrettyPrintingEnabled vdbFrameFiltersEnabled |
15 gdbExecutable vdbDebuggerLayout' |
15 gdbCommand vdbDebuggerLayout' |
16 classVariableNames:'' |
16 classVariableNames:'' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'VDB-UI-Others' |
18 category:'VDB-UI-Others' |
19 ! |
19 ! |
20 |
20 |
161 name: 'Separator1' |
161 name: 'Separator1' |
162 uuid: 'b31b7a70-c7e9-11e8-8f9c-0021ccd5e3d3' |
162 uuid: 'b31b7a70-c7e9-11e8-8f9c-0021ccd5e3d3' |
163 extent: (Point 685 10) |
163 extent: (Point 685 10) |
164 ) |
164 ) |
165 (ViewSpec |
165 (ViewSpec |
166 name: 'ExecutablePane' |
166 name: 'CommandPane' |
167 uuid: '7628c0d0-c755-11e8-8f9c-0021ccd5e3d3' |
167 uuid: '7628c0d0-c755-11e8-8f9c-0021ccd5e3d3' |
168 component: |
168 component: |
169 (SpecCollection |
169 (SpecCollection |
170 collection: ( |
170 collection: ( |
171 (FilenameInputFieldSpec |
171 (FilenameInputFieldSpec |
172 name: 'Executable' |
172 name: 'Command' |
173 layout: (LayoutFrame 0 0 0 0 -100 1 0 1) |
173 layout: (LayoutFrame 0 0 0 0 -100 1 0 1) |
174 uuid: '7628c0d2-c755-11e8-8f9c-0021ccd5e3d3' |
174 uuid: '7628c0d2-c755-11e8-8f9c-0021ccd5e3d3' |
175 model: gdbExecutable |
175 model: gdbCommand |
176 immediateAccept: true |
176 immediateAccept: true |
177 acceptOnPointerLeave: true |
177 acceptOnPointerLeave: true |
178 emptyFieldReplacementText: 'Autodetect' |
178 emptyFieldReplacementText: 'Autodetect' |
179 ) |
179 ) |
180 (ActionButtonSpec |
180 (ActionButtonSpec |
302 ) |
302 ) |
303 ) |
303 ) |
304 |
304 |
305 ) |
305 ) |
306 ) |
306 ) |
|
307 |
|
308 "Modified: / 13-12-2018 / 11:31:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
307 ! ! |
309 ! ! |
308 |
310 |
309 !VDBSettingsApplication methodsFor:'actions'! |
311 !VDBSettingsApplication methodsFor:'actions'! |
310 |
312 |
311 doSelectExecutable |
313 doSelectExecutable |
338 ! ! |
340 ! ! |
339 |
341 |
340 !VDBSettingsApplication methodsFor:'aspects'! |
342 !VDBSettingsApplication methodsFor:'aspects'! |
341 |
343 |
342 aspects |
344 aspects |
343 ^ #(gdbExecutable vdbPrettyPrintingEnabled vdbFrameFiltersEnabled vdbDebuggerLayout) |
345 ^ #(gdbCommand vdbPrettyPrintingEnabled vdbFrameFiltersEnabled vdbDebuggerLayout) |
344 |
346 |
345 "Created: / 10-04-2018 / 16:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
347 "Created: / 10-04-2018 / 16:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
346 "Modified: / 05-10-2018 / 08:00:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
348 "Modified: / 13-12-2018 / 11:30:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
347 ! |
349 ! |
348 |
350 |
349 gdbExecutable |
351 gdbCommand |
350 <resource: #uiAspect> |
352 <resource: #uiAspect> |
351 |
353 |
352 gdbExecutable isNil ifTrue:[ |
354 gdbCommand isNil ifTrue:[ |
353 gdbExecutable := ValueHolder new. |
355 gdbCommand := ValueHolder new. |
354 vdbDebuggerLayout onChangeSend:#updateModifiedChannel to:self. |
356 vdbDebuggerLayout onChangeSend:#updateModifiedChannel to:self. |
355 ]. |
357 ]. |
356 ^ gdbExecutable. |
358 ^ gdbCommand. |
357 |
359 |
358 "Modified: / 05-10-2018 / 08:25:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
360 "Created: / 13-12-2018 / 11:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
359 ! |
361 ! |
360 |
362 |
361 infoPanel |
363 infoPanel |
362 infoPanel isNil ifTrue:[ |
364 infoPanel isNil ifTrue:[ |
363 infoPanel := Tools::InlineMessageDialog new. |
365 infoPanel := Tools::InlineMessageDialog new. |