14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 AbstractSettingsApplication subclass:#CodeView2SettingsAppl |
16 AbstractSettingsApplication subclass:#CodeView2SettingsAppl |
17 instanceVariableNames:'useCodeView2InTools useCodeView2InDebugger useCodeView2InBrowser |
17 instanceVariableNames:'useCodeView2InTools useCodeView2InDebugger useCodeView2InBrowser |
18 useCodeView2InToolEnabled useCodeView2InWorkspace |
18 useCodeView2InToolEnabled useCodeView2InWorkspace |
19 codeView2AutoIndent codeView2ShowAcceptCancel |
19 codeView2AutoPrettyPrint codeView2ShowAcceptCancel |
20 codeView2QuickSendersAndImplementorsOnControl' |
20 codeView2QuickSendersAndImplementorsOnControl' |
21 classVariableNames:'' |
21 classVariableNames:'' |
22 poolDictionaries:'' |
22 poolDictionaries:'' |
23 category:'Interface-CodeView' |
23 category:'Interface-CodeView' |
24 ! |
24 ! |
69 'Use the new editor in the Debugger (disabled if the global use of Code Editor2 is disabled in the tools settings)' |
69 'Use the new editor in the Debugger (disabled if the global use of Code Editor2 is disabled in the tools settings)' |
70 |
70 |
71 #codeView2QuickSendersAndImplementorsOnControl |
71 #codeView2QuickSendersAndImplementorsOnControl |
72 'If on, the CTRL (Control) key is used to get the quick implementors/senders menus via left/right mouse click. If off, the ALT key is used.' |
72 'If on, the CTRL (Control) key is used to get the quick implementors/senders menus via left/right mouse click. If off, the ALT key is used.' |
73 |
73 |
74 #codeView2AutoIndent |
74 #codeView2AutoPrettyPrint |
75 'Automatically indent (prettyprint) code. This is experimental and not yet enabled by default, |
75 'Automatically indent (prettyprint) code. This is experimental and not yet enabled by default, |
76 as it uses the refactory browser''s prettyprint function, which is known to loose comments and generate |
76 as it uses the refactory browser''s prettyprint function, which is known to loose comments and generate |
77 ugly layout occasionally. For now, it is recommended to manually prettyprint code (using the format button), |
77 ugly layout occasionally. For now, it is recommended to manually prettyprint code (using the format button), |
78 and check if it looks good enough to be accepted.' |
78 and check if it looks good enough to be accepted.' |
79 |
79 |
169 name: 'CheckBox2' |
169 name: 'CheckBox2' |
170 activeHelpKey: useCodeView2InBrowser |
170 activeHelpKey: useCodeView2InBrowser |
171 enableChannel: useCodeView2InToolEnabled |
171 enableChannel: useCodeView2InToolEnabled |
172 model: useCodeView2InBrowser |
172 model: useCodeView2InBrowser |
173 translateLabel: true |
173 translateLabel: true |
174 extent: (Point 543 25) |
174 extent: (Point 551 25) |
175 ) |
175 ) |
176 (CheckBoxSpec |
176 (CheckBoxSpec |
177 label: 'Use Advanced Code Editor in Debugger (experimental)' |
177 label: 'Use Advanced Code Editor in Debugger (experimental)' |
178 name: 'CheckBox3' |
178 name: 'CheckBox3' |
179 activeHelpKey: useCodeView2InDebugger |
179 activeHelpKey: useCodeView2InDebugger |
180 enableChannel: useCodeView2InToolEnabled |
180 enableChannel: useCodeView2InToolEnabled |
181 model: useCodeView2InDebugger |
181 model: useCodeView2InDebugger |
182 translateLabel: true |
182 translateLabel: true |
183 extent: (Point 543 25) |
183 extent: (Point 551 25) |
184 ) |
184 ) |
185 (CheckBoxSpec |
185 (CheckBoxSpec |
186 label: 'Use Advanced Code Editor in Workspace' |
186 label: 'Use Advanced Code Editor in Workspace' |
187 name: 'CheckBox4' |
187 name: 'CheckBox4' |
188 activeHelpKey: useCodeView2InWorkspace |
188 activeHelpKey: useCodeView2InWorkspace |
189 enableChannel: useCodeView2InToolEnabled |
189 enableChannel: useCodeView2InToolEnabled |
190 model: useCodeView2InWorkspace |
190 model: useCodeView2InWorkspace |
191 translateLabel: true |
191 translateLabel: true |
192 extent: (Point 543 25) |
192 extent: (Point 551 25) |
193 ) |
193 ) |
194 ) |
194 ) |
195 |
195 |
196 ) |
196 ) |
197 usePreferredHeight: true |
197 usePreferredHeight: true |
225 name: 'CheckBox6' |
225 name: 'CheckBox6' |
226 activeHelpKey: showAcceptCancelBarInGutter |
226 activeHelpKey: showAcceptCancelBarInGutter |
227 enableChannel: acceptCancelInGutterEnabledHolder |
227 enableChannel: acceptCancelInGutterEnabledHolder |
228 model: codeView2ShowAcceptCancel |
228 model: codeView2ShowAcceptCancel |
229 translateLabel: true |
229 translateLabel: true |
230 extent: (Point 543 25) |
230 extent: (Point 551 25) |
231 ) |
231 ) |
232 (CheckBoxSpec |
232 (CheckBoxSpec |
233 label: 'Auto Indent (experimental, not yet recommended)' |
233 label: 'Auto Pretty Print (experimental, not yet recommended)' |
234 name: 'CheckBox5' |
234 name: 'CheckBox5' |
235 model: codeView2AutoIndent |
235 activeHelpKey: codeView2AutoPrettyPrint |
236 translateLabel: true |
236 enableChannel: false |
237 extent: (Point 543 25) |
237 model: codeView2AutoPrettyPrint |
|
238 translateLabel: true |
|
239 extent: (Point 551 25) |
238 ) |
240 ) |
239 ) |
241 ) |
240 |
242 |
241 ) |
243 ) |
242 ) |
244 ) |
294 |
296 |
295 acceptCancelInGutterEnabledHolder |
297 acceptCancelInGutterEnabledHolder |
296 ^ [UserPreferences current showAcceptCancelBar not] |
298 ^ [UserPreferences current showAcceptCancelBar not] |
297 ! |
299 ! |
298 |
300 |
299 codeView2AutoIndent |
301 codeView2AutoPrettyPrint |
300 "return/create the 'useCodeView2InTools' value holder (automatically generated)" |
302 |
301 |
303 codeView2AutoPrettyPrint isNil ifTrue:[ |
302 codeView2AutoIndent isNil ifTrue:[ |
304 codeView2AutoPrettyPrint := ValueHolder new. |
303 codeView2AutoIndent := ValueHolder new. |
305 codeView2AutoPrettyPrint onChangeSend:#updateModifiedChannel to:self |
304 codeView2AutoIndent onChangeSend:#updateModifiedChannel to:self |
306 ]. |
305 ]. |
307 ^ codeView2AutoPrettyPrint |
306 ^ codeView2AutoIndent |
|
307 |
308 |
308 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
309 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
309 "Created: / 07-08-2011 / 12:52:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
310 "Created: / 07-08-2011 / 12:52:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
310 ! |
311 ! |
311 |
312 |
318 |
319 |
319 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
320 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
320 ! |
321 ! |
321 |
322 |
322 codeView2ShowAcceptCancel |
323 codeView2ShowAcceptCancel |
323 "return/create the 'codeView2ShowAcceptCancel' value holder (automatically generated)" |
|
324 |
324 |
325 codeView2ShowAcceptCancel isNil ifTrue:[ |
325 codeView2ShowAcceptCancel isNil ifTrue:[ |
326 codeView2ShowAcceptCancel := ValueHolder new. |
326 codeView2ShowAcceptCancel := ValueHolder new. |
327 codeView2ShowAcceptCancel onChangeSend:#updateModifiedChannel to:self |
327 codeView2ShowAcceptCancel onChangeSend:#updateModifiedChannel to:self |
328 ]. |
328 ]. |
330 |
330 |
331 "Modified: / 10-10-2011 / 16:43:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
331 "Modified: / 10-10-2011 / 16:43:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
332 ! |
332 ! |
333 |
333 |
334 useCodeView2InBrowser |
334 useCodeView2InBrowser |
335 "return/create the 'useCodeView2InTools' value holder (automatically generated)" |
|
336 |
335 |
337 useCodeView2InBrowser isNil ifTrue:[ |
336 useCodeView2InBrowser isNil ifTrue:[ |
338 useCodeView2InBrowser := ValueHolder new. |
337 useCodeView2InBrowser := ValueHolder new. |
339 useCodeView2InBrowser onChangeSend:#updateModifiedChannel to:self |
338 useCodeView2InBrowser onChangeSend:#updateModifiedChannel to:self |
340 ]. |
339 ]. |
343 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
342 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
344 "Created: / 26-07-2011 / 10:30:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
343 "Created: / 26-07-2011 / 10:30:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
345 ! |
344 ! |
346 |
345 |
347 useCodeView2InDebugger |
346 useCodeView2InDebugger |
348 "return/create the 'useCodeView2InTools' value holder (automatically generated)" |
|
349 |
347 |
350 useCodeView2InDebugger isNil ifTrue:[ |
348 useCodeView2InDebugger isNil ifTrue:[ |
351 useCodeView2InDebugger := ValueHolder new. |
349 useCodeView2InDebugger := ValueHolder new. |
352 useCodeView2InDebugger onChangeSend:#updateModifiedChannel to:self |
350 useCodeView2InDebugger onChangeSend:#updateModifiedChannel to:self |
353 ]. |
351 ]. |
356 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
354 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
357 "Created: / 26-07-2011 / 10:30:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
355 "Created: / 26-07-2011 / 10:30:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
358 ! |
356 ! |
359 |
357 |
360 useCodeView2InTools |
358 useCodeView2InTools |
361 "return/create the 'useCodeView2InTools' value holder (automatically generated)" |
|
362 |
359 |
363 useCodeView2InTools isNil ifTrue:[ |
360 useCodeView2InTools isNil ifTrue:[ |
364 useCodeView2InTools := ValueHolder new. |
361 useCodeView2InTools := ValueHolder new. |
365 useCodeView2InTools onChangeSend:#updateModifiedChannel to:self |
362 useCodeView2InTools onChangeSend:#updateModifiedChannel to:self |
366 ]. |
363 ]. |
368 |
365 |
369 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
366 "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
370 ! |
367 ! |
371 |
368 |
372 useCodeView2InWorkspace |
369 useCodeView2InWorkspace |
373 "return/create the 'useCodeView2InTools' value holder (automatically generated)" |
|
374 |
370 |
375 useCodeView2InWorkspace isNil ifTrue:[ |
371 useCodeView2InWorkspace isNil ifTrue:[ |
376 useCodeView2InWorkspace := ValueHolder new. |
372 useCodeView2InWorkspace := ValueHolder new. |
377 useCodeView2InWorkspace onChangeSend:#updateModifiedChannel to:self |
373 useCodeView2InWorkspace onChangeSend:#updateModifiedChannel to:self |
378 ]. |
374 ]. |
406 "/#useCodeView2InTools |
402 "/#useCodeView2InTools |
407 #useCodeView2InBrowser |
403 #useCodeView2InBrowser |
408 #useCodeView2InDebugger |
404 #useCodeView2InDebugger |
409 #useCodeView2InWorkspace |
405 #useCodeView2InWorkspace |
410 "/Editing support |
406 "/Editing support |
411 #codeView2AutoIndent |
407 #codeView2AutoPrettyPrint |
412 "/ #codeView2ShowAcceptCancel |
408 "/ #codeView2ShowAcceptCancel |
413 #codeView2QuickSendersAndImplementorsOnControl |
409 #codeView2QuickSendersAndImplementorsOnControl |
414 ) |
410 ) |
415 |
411 |
416 "Modified: / 10-10-2011 / 16:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
412 "Modified: / 10-10-2011 / 16:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
451 ! ! |
447 ! ! |
452 |
448 |
453 !CodeView2SettingsAppl class methodsFor:'documentation'! |
449 !CodeView2SettingsAppl class methodsFor:'documentation'! |
454 |
450 |
455 version |
451 version |
456 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.8 2013-02-22 09:13:43 cg Exp $' |
452 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.9 2013-05-29 11:11:05 cg Exp $' |
457 ! |
453 ! |
458 |
454 |
459 version_CVS |
455 version_CVS |
460 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.8 2013-02-22 09:13:43 cg Exp $' |
456 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.9 2013-05-29 11:11:05 cg Exp $' |
461 ! |
457 ! |
462 |
458 |
463 version_HG |
459 version_HG |
464 |
460 |
465 ^ '$Changeset: <not expanded> $' |
461 ^ '$Changeset: <not expanded> $' |
466 ! |
462 ! |
467 |
463 |
468 version_SVN |
464 version_SVN |
469 ^ '§Id§' |
465 ^ '$Id: Tools__CodeView2SettingsAppl.st,v 1.9 2013-05-29 11:11:05 cg Exp $' |
470 ! ! |
466 ! ! |
471 |
467 |