author | Claus Gittinger <cg@exept.de> |
Fri, 15 Oct 2004 19:58:42 +0200 | |
changeset 6086 | 1d3d8652e87d |
parent 6081 | 74df33ee24b3 |
child 6103 | d8147b126f9d |
permissions | -rw-r--r-- |
5140 | 1 |
" |
2 |
COPYRIGHT (c) 2002 by eXept Software AG |
|
3 |
All Rights Reserved |
|
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
12 |
||
4226 | 13 |
"{ Package: 'stx:libtool' }" |
14 |
||
15 |
ApplicationModel subclass:#AbstractSettingsApplication |
|
6020 | 16 |
instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog |
17 |
requestor' |
|
18 |
classVariableNames:'' |
|
19 |
poolDictionaries:'' |
|
20 |
category:'Interface-Smalltalk' |
|
4226 | 21 |
! |
22 |
||
4387 | 23 |
AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl |
6020 | 24 |
instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport |
25 |
warnCommonMistakes warnUnderscore keepSource constantFolding |
|
26 |
warnCompatibility constantFoldingOptions warnings warnSTX |
|
27 |
allowDollar allowReservedWordsAsSelectors immutableArrays |
|
28 |
allowOldStyleAssignment allowUnderscore allowDolphinExtensions |
|
29 |
warnUnusedVars allowSqueakExtensions justInTimeCompilation |
|
30 |
canLoadBinaries constantFoldingSelection enableUnderscore |
|
31 |
enableDollar' |
|
32 |
classVariableNames:'' |
|
33 |
poolDictionaries:'' |
|
34 |
privateIn:AbstractSettingsApplication |
|
4286 | 35 |
! |
36 |
||
4398 | 37 |
AbstractSettingsApplication subclass:#DebuggerSettingsAppl |
6020 | 38 |
instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger' |
39 |
classVariableNames:'' |
|
40 |
poolDictionaries:'' |
|
41 |
privateIn:AbstractSettingsApplication |
|
4398 | 42 |
! |
43 |
||
4286 | 44 |
AbstractSettingsApplication subclass:#DisplaySettingsAppl |
6020 | 45 |
instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY |
46 |
clipEncodingListSelection sizeX monitorList ditherList |
|
47 |
clipEncodingList ditherListSelection deepIcons monitorSelection |
|
48 |
useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil |
|
49 |
useFixGrayPalette sizeInfos screen ditherStyles ditherSyms |
|
50 |
screenDepthVisualLabelHolder maxCopyBufferSize' |
|
51 |
classVariableNames:'' |
|
52 |
poolDictionaries:'' |
|
53 |
privateIn:AbstractSettingsApplication |
|
4286 | 54 |
! |
55 |
||
56 |
AbstractSettingsApplication subclass:#EditSettingsAppl |
|
6020 | 57 |
instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode |
58 |
searchDialogIsModal startTextDragWithControl' |
|
59 |
classVariableNames:'' |
|
60 |
poolDictionaries:'' |
|
61 |
privateIn:AbstractSettingsApplication |
|
4286 | 62 |
! |
63 |
||
64 |
AbstractSettingsApplication subclass:#FontSettingsAppl |
|
6020 | 65 |
instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef |
66 |
allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder |
|
67 |
labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder |
|
68 |
allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel' |
|
69 |
classVariableNames:'' |
|
70 |
poolDictionaries:'' |
|
71 |
privateIn:AbstractSettingsApplication |
|
4286 | 72 |
! |
73 |
||
4387 | 74 |
AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl |
6020 | 75 |
instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode |
76 |
searchDialogIsModal startTextDragWithControl catchClassRedefs |
|
77 |
fullHistoryUpdate historyLines keepSourceSelection keepSource |
|
78 |
hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs' |
|
79 |
classVariableNames:'' |
|
80 |
poolDictionaries:'' |
|
81 |
privateIn:AbstractSettingsApplication |
|
4387 | 82 |
! |
83 |
||
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
84 |
AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication |
6020 | 85 |
instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel |
86 |
hasCreatedServerChannel' |
|
87 |
classVariableNames:'CreatedServers' |
|
88 |
poolDictionaries:'' |
|
89 |
privateIn:AbstractSettingsApplication |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
90 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
91 |
|
4286 | 92 |
AbstractSettingsApplication subclass:#KbdMappingSettingsAppl |
6020 | 93 |
instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey |
94 |
labelTextHolder functionKeyList rawKeyList mappings' |
|
95 |
classVariableNames:'' |
|
96 |
poolDictionaries:'' |
|
97 |
privateIn:AbstractSettingsApplication |
|
4286 | 98 |
! |
99 |
||
100 |
AbstractSettingsApplication subclass:#LanguageSettingsAppl |
|
6020 | 101 |
instanceVariableNames:'languageHolder languageIndexHolder languageList |
102 |
languageListHolder listOfLanguages translatedLanguages |
|
103 |
noticeLabelHolder currentFlagAndLanguageChannel |
|
104 |
currentLanguageLabel perLanguageResources' |
|
105 |
classVariableNames:'' |
|
106 |
poolDictionaries:'' |
|
107 |
privateIn:AbstractSettingsApplication |
|
4286 | 108 |
! |
109 |
||
110 |
AbstractSettingsApplication subclass:#MemorySettingsAppl |
|
6020 | 111 |
instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder |
112 |
codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit |
|
113 |
igcFreeAmount stackLimit supportsJustInTimeCompilation' |
|
114 |
classVariableNames:'' |
|
115 |
poolDictionaries:'' |
|
116 |
privateIn:AbstractSettingsApplication |
|
4286 | 117 |
! |
118 |
||
4310 | 119 |
AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl |
6020 | 120 |
instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled |
121 |
windowMigrationPassword windowMigrationAuthenticate |
|
122 |
enablePasswordCheck' |
|
123 |
classVariableNames:'' |
|
124 |
poolDictionaries:'' |
|
125 |
privateIn:AbstractSettingsApplication |
|
4310 | 126 |
! |
127 |
||
4398 | 128 |
AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl |
6020 | 129 |
instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus |
130 |
activateOnClick nativeWidgets nativeDialogs shadows |
|
131 |
opaqueVariablePanelResize formatHostNameinWindowLabels |
|
132 |
opaqueTableColumnResize hostNameInLabelHolder showAccelerators |
|
133 |
newWindowLabelFormat formatHostNameWindowLabel' |
|
134 |
classVariableNames:'' |
|
135 |
poolDictionaries:'' |
|
136 |
privateIn:AbstractSettingsApplication |
|
4286 | 137 |
! |
138 |
||
4310 | 139 |
AbstractSettingsApplication subclass:#OsiSettingsAppl |
6020 | 140 |
instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging |
141 |
osiACSEErrorLogging osiROSEPresent osiCMISEPresent |
|
142 |
osiCMISEMessageLogging osiACSEDataLogging |
|
143 |
osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging' |
|
144 |
classVariableNames:'' |
|
145 |
poolDictionaries:'' |
|
146 |
privateIn:AbstractSettingsApplication |
|
4310 | 147 |
! |
148 |
||
4286 | 149 |
AbstractSettingsApplication subclass:#PrinterSettingsAppl |
6020 | 150 |
instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin |
151 |
landscape pageFormatList pageFormat unitList leftMargin |
|
152 |
possiblePrinters printerType printerTypeSelection |
|
153 |
printCommandList commandList printCommand printFilename |
|
154 |
enableFormat enablelandscape enableMargins enableColorBox' |
|
155 |
classVariableNames:'' |
|
156 |
poolDictionaries:'' |
|
157 |
privateIn:AbstractSettingsApplication |
|
4286 | 158 |
! |
159 |
||
4398 | 160 |
AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl |
6020 | 161 |
instanceVariableNames:'dynamicPrios preemptive' |
162 |
classVariableNames:'' |
|
163 |
poolDictionaries:'' |
|
164 |
privateIn:AbstractSettingsApplication |
|
4398 | 165 |
! |
166 |
||
4310 | 167 |
AbstractSettingsApplication subclass:#RDoItServerSettingsAppl |
6020 | 168 |
instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer |
169 |
rDoitErrorDebugging rDoitServerPortOrPath' |
|
170 |
classVariableNames:'' |
|
171 |
poolDictionaries:'' |
|
172 |
privateIn:AbstractSettingsApplication |
|
4310 | 173 |
! |
174 |
||
4387 | 175 |
AbstractSettingsApplication subclass:#STCCompilerSettingsAppl |
6020 | 176 |
instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries |
177 |
stcDefines stcLibraries stcOptions stcLibraryPath |
|
178 |
stcCompilationSelection stcCompilationList' |
|
179 |
classVariableNames:'' |
|
180 |
poolDictionaries:'' |
|
181 |
privateIn:AbstractSettingsApplication |
|
4387 | 182 |
! |
183 |
||
4398 | 184 |
AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl |
6020 | 185 |
instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent |
186 |
autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks |
|
187 |
blockArgumentsOnNewLine spaceAfterReturnToken |
|
188 |
spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd |
|
189 |
oldUserPreferences reformatLocked' |
|
190 |
classVariableNames:'' |
|
191 |
poolDictionaries:'' |
|
192 |
privateIn:AbstractSettingsApplication |
|
4398 | 193 |
! |
194 |
||
195 |
AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl |
|
6020 | 196 |
instanceVariableNames:'sourceCacheDir useManager condenseSourceCache |
197 |
syntaxColorConfiguration setupSourceCodeManager |
|
198 |
checkClassesWhenCheckingIn formattingConfiguration |
|
199 |
flushSourceCache localSourceFirst cvsIsSetup repositoryHolder |
|
200 |
manager repository listOfModules cvsRootPrototypeList |
|
201 |
addPerModuleRoot removeEnabled perModuleRootModule acceptChannel |
|
202 |
removePerModuleRoot perModuleRoot cvsRootHolder |
|
203 |
selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule |
|
204 |
cvsLoginInModuleEnabled cvsLoginEnabled' |
|
205 |
classVariableNames:'' |
|
206 |
poolDictionaries:'' |
|
207 |
privateIn:AbstractSettingsApplication |
|
4286 | 208 |
! |
209 |
||
210 |
AbstractSettingsApplication subclass:#StyleSettingsAppl |
|
6020 | 211 |
instanceVariableNames:'showStandardStylesOnly styleList selectedStyle |
212 |
styleDirectoryContents infoLabelHolder noticeLabelHolder' |
|
213 |
classVariableNames:'' |
|
214 |
poolDictionaries:'' |
|
215 |
privateIn:AbstractSettingsApplication |
|
4286 | 216 |
! |
217 |
||
4398 | 218 |
AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl |
6020 | 219 |
instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection |
220 |
fullSelectorCheck syntaxColoring oldUserPreferences |
|
221 |
syntaxFontSelector syntaxFonts syntaxElementList |
|
222 |
syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection |
|
223 |
emphasisDictionary resetListDictionary' |
|
224 |
classVariableNames:'' |
|
225 |
poolDictionaries:'' |
|
226 |
privateIn:AbstractSettingsApplication |
|
4398 | 227 |
! |
228 |
||
4286 | 229 |
AbstractSettingsApplication subclass:#SystemMessageSettingsAppl |
6020 | 230 |
instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges |
231 |
changeFileName' |
|
232 |
classVariableNames:'' |
|
233 |
poolDictionaries:'' |
|
234 |
privateIn:AbstractSettingsApplication |
|
4286 | 235 |
! |
236 |
||
237 |
AbstractSettingsApplication subclass:#ToolsSettingsAppl |
|
6020 | 238 |
instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector |
239 |
showClockInLauncher useNewChangesBrowser useNewFileBrowser |
|
240 |
useNewSystemBrowser useNewFileDialog useNewSettingsApplication |
|
241 |
useProcessMonitorV2' |
|
242 |
classVariableNames:'' |
|
243 |
poolDictionaries:'' |
|
244 |
privateIn:AbstractSettingsApplication |
|
4286 | 245 |
! |
246 |
||
4405 | 247 |
!AbstractSettingsApplication class methodsFor:'documentation'! |
248 |
||
5140 | 249 |
copyright |
250 |
" |
|
251 |
COPYRIGHT (c) 2002 by eXept Software AG |
|
252 |
All Rights Reserved |
|
253 |
||
254 |
This software is furnished under a license and may be used |
|
255 |
only in accordance with the terms of that license and with the |
|
256 |
inclusion of the above copyright notice. This software may not |
|
257 |
be provided or otherwise made available to, or used by, any |
|
258 |
other person. No title to or ownership of the software is |
|
259 |
hereby transferred. |
|
260 |
" |
|
4405 | 261 |
! ! |
4226 | 262 |
|
4292 | 263 |
!AbstractSettingsApplication class methodsFor:'defaults'! |
264 |
||
265 |
classResources |
|
266 |
||
267 |
^ AbstractLauncherApplication classResources |
|
5563 | 268 |
! |
269 |
||
270 |
resourcePackName |
|
271 |
^ AbstractLauncherApplication resourcePackName |
|
4292 | 272 |
! ! |
273 |
||
5283 | 274 |
!AbstractSettingsApplication class methodsFor:'interface specs'! |
275 |
||
276 |
windowSpec |
|
277 |
self subclassResponsibility |
|
278 |
! ! |
|
279 |
||
4705 | 280 |
!AbstractSettingsApplication methodsFor:'accessing'! |
281 |
||
5030 | 282 |
requestor:something |
4705 | 283 |
"set the value of the instance variable 'requestor' (automatically generated)" |
284 |
||
5030 | 285 |
requestor := something. |
5031 | 286 |
! |
287 |
||
288 |
settingsDialog |
|
289 |
^ settingsDialog |
|
290 |
! |
|
291 |
||
292 |
settingsDialog:something |
|
293 |
settingsDialog := something. |
|
4705 | 294 |
! ! |
295 |
||
4405 | 296 |
!AbstractSettingsApplication methodsFor:'actions'! |
297 |
||
4598 | 298 |
evaluateModified |
5041 | 299 |
|
300 |
self obsoleteMethodWarning. |
|
301 |
^ self updateModifiedChannel. |
|
4598 | 302 |
! |
303 |
||
6029 | 304 |
reopenToolsAfterChangedViewStyleSetting |
305 |
|app transcript| |
|
306 |
||
307 |
DebugView newDebugger. |
|
308 |
transcript := Transcript current. |
|
309 |
(transcript notNil and:[transcript isExternalStream not]) ifTrue:[ |
|
310 |
app := transcript topView application. |
|
311 |
(app respondsTo:#reopenLauncher) ifTrue:[ |
|
312 |
app reopenLauncher. |
|
313 |
]. |
|
314 |
]. |
|
315 |
! |
|
316 |
||
4405 | 317 |
saveRequest |
4944 | 318 |
^ self saveRequestAsking:self askForChangeOnRelease |
4941 | 319 |
! |
320 |
||
321 |
saveRequestAsking:askForChangeOnRelease |
|
4574 | 322 |
|result| |
4405 | 323 |
|
324 |
(self hasUnsavedChanges) ifTrue:[ |
|
4941 | 325 |
askForChangeOnRelease ifTrue:[ |
4825 | 326 |
result := self confirmWithCancel:(resources |
5920 | 327 |
string:'Apply changed ' , settingsString allBold, ' ?'). |
4825 | 328 |
] ifFalse:[ |
329 |
result := true. |
|
330 |
]. |
|
4574 | 331 |
result isNil ifTrue:[ |
332 |
^ false |
|
333 |
]. |
|
4405 | 334 |
result ifTrue:[ |
4574 | 335 |
self saveSettings |
4405 | 336 |
] ifFalse:[ |
5030 | 337 |
self readSettings |
4405 | 338 |
] |
339 |
]. |
|
340 |
^ true |
|
4574 | 341 |
! |
342 |
||
343 |
saveSettingsIfUnsavedChangesArePresent |
|
344 |
self hasUnsavedChanges ifTrue:[ |
|
345 |
self saveSettings. |
|
346 |
self modifiedChannel value:false |
|
347 |
]. |
|
5041 | 348 |
! |
349 |
||
350 |
updateModifiedChannel |
|
351 |
self modifiedChannel value:self hasUnsavedChanges |
|
4574 | 352 |
! ! |
353 |
||
354 |
!AbstractSettingsApplication methodsFor:'aspects'! |
|
355 |
||
356 |
modifiedChannel |
|
357 |
||
358 |
modifiedChannel isNil ifTrue:[ |
|
359 |
modifiedChannel := false asValue. |
|
360 |
]. |
|
361 |
^ modifiedChannel |
|
362 |
! ! |
|
363 |
||
364 |
!AbstractSettingsApplication methodsFor:'initialization'! |
|
365 |
||
366 |
initialize |
|
367 |
super initialize. |
|
368 |
resources := self class classResources. |
|
369 |
currentUserPrefs := UserPreferences current. |
|
370 |
settingsString := (UISpecification from:(self class windowSpec)) window label. |
|
4886
4fcb51786045
readSettings is no longer done in
Claus Gittinger <cg@exept.de>
parents:
4883
diff
changeset
|
371 |
"/ self readSettings. |
4405 | 372 |
! ! |
373 |
||
5078
9fafc6b058bc
new middleButtonMenu for remove service in SettingsDialog
penk
parents:
5076
diff
changeset
|
374 |
!AbstractSettingsApplication methodsFor:'menu'! |
9fafc6b058bc
new middleButtonMenu for remove service in SettingsDialog
penk
parents:
5076
diff
changeset
|
375 |
|
5080 | 376 |
settingsDialogPopUpMenu |
5078
9fafc6b058bc
new middleButtonMenu for remove service in SettingsDialog
penk
parents:
5076
diff
changeset
|
377 |
^ nil |
9fafc6b058bc
new middleButtonMenu for remove service in SettingsDialog
penk
parents:
5076
diff
changeset
|
378 |
! ! |
9fafc6b058bc
new middleButtonMenu for remove service in SettingsDialog
penk
parents:
5076
diff
changeset
|
379 |
|
4324 | 380 |
!AbstractSettingsApplication methodsFor:'protocol'! |
381 |
||
4873 | 382 |
askForChangeOnRelease |
5011 | 383 |
^ true "/ false |
4825 | 384 |
! |
385 |
||
4574 | 386 |
basicSaveSettings |
387 |
||
388 |
self subclassResponsibility. |
|
389 |
! |
|
390 |
||
4405 | 391 |
hasUnsavedChanges |
392 |
||
393 |
^ self subclassResponsibility |
|
394 |
! |
|
395 |
||
4324 | 396 |
help |
5101 | 397 |
|filename| |
398 |
||
399 |
filename := self helpFilename. |
|
400 |
filename isNil ifTrue:[ |
|
401 |
self warn:'Sorry - no help available here.'. |
|
402 |
^ self. |
|
403 |
]. |
|
404 |
self withWaitCursorDo:[ |
|
405 |
HTMLDocumentView openFullOnHelpFile:filename |
|
406 |
]. |
|
407 |
! |
|
408 |
||
409 |
helpFilename |
|
410 |
"subclasses must return the relative name of a helpFile |
|
411 |
in the doc/online/<language>/help directory. |
|
412 |
Or nil, if no help is available." |
|
413 |
||
414 |
self subclassResponsibility |
|
4324 | 415 |
! |
4226 | 416 |
|
4574 | 417 |
readSettings |
418 |
self subclassResponsibility |
|
4240 | 419 |
! |
420 |
||
4405 | 421 |
saveSettings |
4574 | 422 |
self basicSaveSettings. |
4657
a59ba78d52d2
reset UserPrefernces instance on saveSettings because Userpreferences current may change
penk
parents:
4656
diff
changeset
|
423 |
currentUserPrefs := UserPreferences current. |
4574 | 424 |
self modifiedChannel value:false. |
4226 | 425 |
! ! |
426 |
||
4899 | 427 |
!AbstractSettingsApplication methodsFor:'queries'! |
428 |
||
429 |
itemPathName |
|
5031 | 430 |
^ self settingsDialog getNameOfApplication:self. |
4899 | 431 |
! ! |
432 |
||
4387 | 433 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'! |
4286 | 434 |
|
435 |
constantFoldingOptions |
|
436 |
||
437 |
^ #( nil #level1 #level2 #full ) |
|
438 |
! |
|
439 |
||
440 |
constantFoldingStrings |
|
441 |
||
442 |
^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full') |
|
4387 | 443 |
! ! |
444 |
||
445 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'! |
|
4312 | 446 |
|
447 |
defaultIcon |
|
448 |
"This resource specification was automatically generated |
|
449 |
by the ImageEditor of ST/X." |
|
450 |
||
451 |
"Do not manually edit this!! If it is corrupted, |
|
452 |
the ImageEditor may not be able to read the specification." |
|
453 |
||
454 |
" |
|
455 |
self defaultIcon inspect |
|
456 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
457 |
Icon flushCachedIcons |
|
458 |
" |
|
459 |
||
460 |
<resource: #image> |
|
461 |
||
462 |
^Icon |
|
4948 | 463 |
constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon' |
464 |
ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@@@@@G.=0G.=3D*%QG.=0@@@@G?>3DNN1G=60DM>0G=>0DM>0G=60DNN0G?>0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself] |
|
4312 | 465 |
! ! |
466 |
||
4387 | 467 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'! |
4286 | 468 |
|
469 |
windowSpec |
|
470 |
"This resource specification was automatically generated |
|
471 |
by the UIPainter of ST/X." |
|
472 |
||
473 |
"Do not manually edit this!! If it is corrupted, |
|
474 |
the UIPainter may not be able to read the specification." |
|
475 |
||
476 |
" |
|
4387 | 477 |
UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec |
478 |
AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec |
|
479 |
AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open |
|
4286 | 480 |
" |
481 |
||
482 |
<resource: #canvas> |
|
483 |
||
484 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
485 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
486 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
487 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
488 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
489 |
label: 'Byte Code Compiler Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
490 |
name: 'Byte Code Compiler Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
491 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
492 |
bounds: (Rectangle 14 46 614 560) |
4286 | 493 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
494 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
495 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
496 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
497 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
498 |
name: 'VerticalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
499 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
500 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
501 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
502 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
503 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
504 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
505 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
506 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
507 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
508 |
label: 'Just in Time Compilation to Machine Code' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
509 |
name: 'JustInTimeCompilation' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
510 |
model: justInTimeCompilation |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
511 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
512 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
513 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
514 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
515 |
name: 'Separator3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
516 |
extent: (Point 600 3) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
517 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
518 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
519 |
label: 'Allow Underscore in Identifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
520 |
name: 'AllowUnderscoreInIdentifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
521 |
model: allowUnderscore |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
522 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
523 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
524 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
525 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
526 |
label: 'Allow Dollar in Identifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
527 |
name: 'AllowDollarInIdentifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
528 |
model: allowDollar |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
529 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
530 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
531 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
532 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
533 |
label: 'Allow VW3 QualifiedNames' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
534 |
name: 'AllowVW3QualifiedNames' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
535 |
model: allowQualifiedNames |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
536 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
537 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
538 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
539 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
540 |
label: 'Allow Squeak Extensions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
541 |
name: 'AllowSqueakExtensions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
542 |
model: allowSqueakExtensions |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
543 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
544 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
545 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
546 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
547 |
label: 'Allow Dolphin Extensions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
548 |
name: 'AllowDolphinExtensions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
549 |
model: allowDolphinExtensions |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
550 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
551 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
552 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
553 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
554 |
label: 'Allow OldStyle Assignment (_)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
555 |
name: 'AllowOldStyleAssignment' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
556 |
model: allowOldStyleAssignment |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
557 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
558 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
559 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
560 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
561 |
label: 'Allow Reserved Words as Selector (self)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
562 |
name: 'AllowReservedWordsAsSelector' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
563 |
model: allowReservedWordsAsSelectors |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
564 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
565 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
566 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
567 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
568 |
name: 'Separator4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
569 |
extent: (Point 600 3) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
570 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
571 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
572 |
label: 'Warnings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
573 |
name: 'Warnings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
574 |
model: warnings |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
575 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
576 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
577 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
578 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
579 |
name: 'Box2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
580 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
581 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
582 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
583 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
584 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
585 |
layout: (LayoutFrame 20 0 0 0 600 0 150 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
586 |
horizontalLayout: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
587 |
verticalLayout: center |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
588 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
589 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
590 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
591 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
592 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
593 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
594 |
label: 'ST/X Extensions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
595 |
name: 'STXExtensions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
596 |
enableChannel: warnings |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
597 |
model: warnSTX |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
598 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
599 |
extent: (Point 600 22) |
4387 | 600 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
601 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
602 |
label: 'Underscores in Identifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
603 |
name: 'UnderscoresInIdentifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
604 |
enableChannel: enableUnderscore |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
605 |
model: warnUnderscore |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
606 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
607 |
extent: (Point 600 22) |
4387 | 608 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
609 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
610 |
label: 'Dollars in Identifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
611 |
name: 'DollarsInIdentifiers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
612 |
enableChannel: enableDollar |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
613 |
model: warnDollar |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
614 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
615 |
extent: (Point 600 22) |
4387 | 616 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
617 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
618 |
label: 'Unused Method Variables' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
619 |
name: 'UnusedMethodVariables' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
620 |
enableChannel: warnings |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
621 |
model: warnUnusedVars |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
622 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
623 |
extent: (Point 600 22) |
4387 | 624 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
625 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
626 |
label: 'OldStyle Assignment' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
627 |
name: 'OldStyleAssignment' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
628 |
enableChannel: warnings |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
629 |
model: warnOldStyle |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
630 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
631 |
extent: (Point 600 22) |
4387 | 632 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
633 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
634 |
label: 'Common Mistakes' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
635 |
name: 'CommonMistakes' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
636 |
enableChannel: warnings |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
637 |
model: warnCommonMistakes |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
638 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
639 |
extent: (Point 600 22) |
4387 | 640 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
641 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
642 |
label: 'Possible Incompatibilities' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
643 |
name: 'PossibleIncompatibilities' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
644 |
enableChannel: warnings |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
645 |
model: warnCompatibility |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
646 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
647 |
extent: (Point 600 22) |
4387 | 648 |
) |
649 |
) |
|
650 |
||
651 |
) |
|
652 |
) |
|
653 |
) |
|
654 |
||
655 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
656 |
extent: (Point 600 160) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
657 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
658 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
659 |
name: 'Separator5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
660 |
extent: (Point 600 2) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
661 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
662 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
663 |
label: 'Literal Arrays are Immutable' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
664 |
name: 'LiteralArraysAreImmutable' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
665 |
model: immutableArrays |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
666 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
667 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
668 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
669 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
670 |
label: 'Full Debug Info' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
671 |
name: 'FullDebugInfo' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
672 |
model: fullDebugSupport |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
673 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
674 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
675 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
676 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
677 |
name: 'Separator6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
678 |
extent: (Point 600 2) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
679 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
680 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
681 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
682 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
683 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
684 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
685 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
686 |
label: 'Constant Folding:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
687 |
name: 'ConstantFoldingLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
688 |
layout: (LayoutFrame 0 0 0 0 150 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
689 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
690 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
691 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
692 |
(PopUpListSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
693 |
label: 'PopUp List' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
694 |
name: 'ConstantFolding' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
695 |
layout: (LayoutFrame 170 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
696 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
697 |
model: constantFoldingSelection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
698 |
menu: constantFolding |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
699 |
useIndex: true |
4428
00e398e9c9e5
ByteCode compiler settings: geometry changes
Claus Gittinger <cg@exept.de>
parents:
4427
diff
changeset
|
700 |
) |
00e398e9c9e5
ByteCode compiler settings: geometry changes
Claus Gittinger <cg@exept.de>
parents:
4427
diff
changeset
|
701 |
) |
00e398e9c9e5
ByteCode compiler settings: geometry changes
Claus Gittinger <cg@exept.de>
parents:
4427
diff
changeset
|
702 |
|
00e398e9c9e5
ByteCode compiler settings: geometry changes
Claus Gittinger <cg@exept.de>
parents:
4427
diff
changeset
|
703 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
704 |
extent: (Point 600 22) |
4428
00e398e9c9e5
ByteCode compiler settings: geometry changes
Claus Gittinger <cg@exept.de>
parents:
4427
diff
changeset
|
705 |
) |
4387 | 706 |
) |
707 |
||
708 |
) |
|
4286 | 709 |
) |
710 |
) |
|
711 |
||
712 |
) |
|
713 |
) |
|
714 |
! ! |
|
715 |
||
4387 | 716 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'! |
4286 | 717 |
|
4574 | 718 |
basicSaveSettings |
4286 | 719 |
|
720 |
Compiler warnings:self warnings value. |
|
721 |
Compiler warnSTXSpecials:self warnSTX value. |
|
722 |
Compiler warnOldStyleAssignment:self warnOldStyle value. |
|
723 |
Compiler warnUnderscoreInIdentifier:self warnUnderscore value. |
|
724 |
Compiler warnDollarInIdentifier:self warnDollar value. |
|
725 |
Compiler warnCommonMistakes:self warnCommonMistakes value. |
|
726 |
Compiler warnPossibleIncompatibilities:self warnCompatibility value. |
|
727 |
Compiler warnUnusedVars:self warnUnusedVars value. |
|
728 |
Compiler allowUnderscoreInIdentifier:self allowUnderscore value. |
|
729 |
Compiler allowDollarInIdentifier:self allowDollar value. |
|
730 |
Compiler allowSqueakExtensions:self allowSqueakExtensions value. |
|
731 |
Compiler allowDolphinExtensions:self allowDolphinExtensions value. |
|
732 |
Compiler allowQualifiedNames:self allowQualifiedNames value. |
|
733 |
Compiler allowOldStyleAssignment:self allowOldStyleAssignment value. |
|
734 |
Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value. |
|
735 |
||
736 |
Compiler arraysAreImmutable:self immutableArrays value. |
|
737 |
self fullDebugSupport value ifTrue:[ |
|
738 |
Compiler lineNumberInfo:#full. |
|
739 |
] ifFalse:[ |
|
740 |
Compiler lineNumberInfo:true |
|
741 |
]. |
|
742 |
||
743 |
Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value). |
|
744 |
||
745 |
self supportsJustInTimeCompilation ifTrue:[ |
|
746 |
| justInTime | |
|
747 |
justInTime := self justInTimeCompilation value. |
|
748 |
justInTime ifTrue:[ |
|
749 |
Method allInstancesDo:[:m | m checked:false]. |
|
750 |
]. |
|
751 |
ObjectMemory justInTimeCompilation:justInTime. |
|
752 |
ObjectMemory fullSingleStepSupport:self fullDebugSupport value. |
|
753 |
]. |
|
4574 | 754 |
! |
755 |
||
5101 | 756 |
helpFilename |
757 |
^ 'Launcher/compilerSettings.html' |
|
4574 | 758 |
! |
759 |
||
760 |
readSettings |
|
761 |
self allowDollar value:(Compiler allowDollarInIdentifier ? false). |
|
762 |
self allowDolphinExtensions |
|
763 |
value:(Compiler allowDolphinExtensions ? false). |
|
764 |
self allowOldStyleAssignment |
|
765 |
value:(Compiler allowOldStyleAssignment ? false). |
|
766 |
self allowQualifiedNames value:(Compiler allowQualifiedNames ? false). |
|
767 |
self allowReservedWordsAsSelectors |
|
768 |
value:(Compiler allowReservedWordsAsSelectors ? false). |
|
769 |
self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false). |
|
770 |
self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false). |
|
771 |
self constantFoldingSelection |
|
772 |
value:(self class constantFoldingOptions indexOf:Compiler foldConstants |
|
773 |
ifAbsent:3). |
|
774 |
self supportsJustInTimeCompilation ifTrue:[ |
|
775 |
self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false) |
|
776 |
] ifFalse:[ |
|
777 |
self fullDebugSupport value:(Compiler lineNumberInfo == #full) |
|
778 |
]. |
|
779 |
self immutableArrays value:(Compiler arraysAreImmutable ? false). |
|
780 |
self supportsJustInTimeCompilation ifTrue:[ |
|
781 |
self justInTimeCompilation |
|
782 |
value:(ObjectMemory justInTimeCompilation ? false) |
|
783 |
] ifFalse:[ |
|
784 |
self justInTimeCompilation value:false |
|
785 |
]. |
|
786 |
self warnCommonMistakes value:(Compiler warnCommonMistakes ? false). |
|
787 |
self warnCompatibility |
|
788 |
value:(Compiler warnPossibleIncompatibilities ? false). |
|
789 |
self warnDollar value:(Compiler warnDollarInIdentifier ? false). |
|
790 |
self warnOldStyle value:(Compiler warnOldStyleAssignment ? false). |
|
791 |
self warnSTX value:(Compiler warnSTXSpecials ? false). |
|
792 |
self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false). |
|
793 |
self warnUnusedVars value:(Compiler warnUnusedVars ? false). |
|
794 |
self warnings value:(Compiler warnings ? false). |
|
795 |
self modifiedChannel value:false |
|
4286 | 796 |
! |
797 |
||
798 |
stcCompilerSettings |
|
799 |
||
800 |
AbstractLauncherApplication::LauncherDialogs stcCompilerSettings |
|
801 |
! ! |
|
802 |
||
4387 | 803 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'! |
4286 | 804 |
|
805 |
allowDollar |
|
806 |
||
807 |
allowDollar isNil ifTrue:[ |
|
808 |
allowDollar := (Compiler allowDollarInIdentifier ? false) asValue. |
|
5041 | 809 |
allowDollar onChangeSend:#updateModifiedChannel to:self. |
4286 | 810 |
allowDollar addDependent:self. |
811 |
]. |
|
812 |
^ allowDollar. |
|
813 |
! |
|
814 |
||
815 |
allowDolphinExtensions |
|
816 |
||
817 |
allowDolphinExtensions isNil ifTrue:[ |
|
818 |
allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue. |
|
5041 | 819 |
allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self. |
4286 | 820 |
]. |
821 |
^ allowDolphinExtensions. |
|
822 |
! |
|
823 |
||
824 |
allowOldStyleAssignment |
|
825 |
||
826 |
allowOldStyleAssignment isNil ifTrue:[ |
|
827 |
allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue. |
|
5041 | 828 |
allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self. |
4286 | 829 |
]. |
830 |
^ allowOldStyleAssignment. |
|
831 |
! |
|
832 |
||
833 |
allowQualifiedNames |
|
834 |
||
835 |
allowQualifiedNames isNil ifTrue:[ |
|
836 |
allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue. |
|
5041 | 837 |
allowQualifiedNames onChangeSend:#updateModifiedChannel to:self. |
4286 | 838 |
]. |
839 |
^ allowQualifiedNames. |
|
840 |
! |
|
841 |
||
842 |
allowReservedWordsAsSelectors |
|
843 |
||
844 |
allowReservedWordsAsSelectors isNil ifTrue:[ |
|
845 |
allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue. |
|
5041 | 846 |
allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self. |
4286 | 847 |
]. |
848 |
^ allowReservedWordsAsSelectors. |
|
849 |
! |
|
850 |
||
851 |
allowSqueakExtensions |
|
852 |
||
853 |
allowSqueakExtensions isNil ifTrue:[ |
|
854 |
allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue. |
|
5041 | 855 |
allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self. |
4286 | 856 |
]. |
857 |
^ allowSqueakExtensions. |
|
858 |
! |
|
859 |
||
860 |
allowUnderscore |
|
861 |
||
862 |
allowUnderscore isNil ifTrue:[ |
|
863 |
allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue. |
|
5041 | 864 |
allowUnderscore onChangeSend:#updateModifiedChannel to:self. |
4286 | 865 |
allowUnderscore addDependent:self. |
866 |
]. |
|
867 |
^ allowUnderscore. |
|
868 |
! |
|
869 |
||
870 |
constantFolding |
|
871 |
||
872 |
constantFolding isNil ifTrue:[ |
|
873 |
constantFolding := (resources array:(self class constantFoldingStrings)) asList. |
|
874 |
]. |
|
875 |
^ constantFolding. |
|
876 |
! |
|
877 |
||
878 |
constantFoldingOptions |
|
879 |
||
880 |
constantFoldingOptions isNil ifTrue:[ |
|
881 |
constantFoldingOptions := self class constantFoldingOptions. |
|
882 |
]. |
|
883 |
^ constantFoldingOptions. |
|
884 |
! |
|
885 |
||
886 |
constantFoldingSelection |
|
887 |
||
888 |
constantFoldingSelection isNil ifTrue:[ |
|
889 |
| index | |
|
890 |
index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3. |
|
891 |
constantFoldingSelection := index asValue. |
|
5041 | 892 |
constantFoldingSelection onChangeSend:#updateModifiedChannel to:self. |
4286 | 893 |
]. |
894 |
^ constantFoldingSelection. |
|
895 |
! |
|
896 |
||
897 |
enableDollar |
|
898 |
||
899 |
enableDollar isNil ifTrue:[ |
|
900 |
enableDollar := true asValue. |
|
901 |
enableDollar addDependent:self. |
|
902 |
]. |
|
903 |
^ enableDollar. |
|
904 |
! |
|
905 |
||
906 |
enableUnderscore |
|
907 |
"automatically generated by UIPainter ..." |
|
908 |
||
909 |
"*** the code below creates a default model when invoked." |
|
910 |
"*** (which may not be the one you wanted)" |
|
911 |
"*** Please change as required and accept it in the browser." |
|
912 |
"*** (and replace this comment by something more useful ;-)" |
|
913 |
||
914 |
enableUnderscore isNil ifTrue:[ |
|
915 |
enableUnderscore := true asValue. |
|
916 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
917 |
"/ enableUnderscore addDependent:self. |
|
918 |
"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self. |
|
919 |
]. |
|
920 |
^ enableUnderscore. |
|
921 |
! |
|
922 |
||
923 |
fullDebugSupport |
|
924 |
||
925 |
fullDebugSupport isNil ifTrue:[ |
|
926 |
self supportsJustInTimeCompilation ifTrue:[ |
|
927 |
fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue. |
|
928 |
] ifFalse:[ |
|
929 |
fullDebugSupport := (Compiler lineNumberInfo == #full) asValue. |
|
930 |
]. |
|
5041 | 931 |
fullDebugSupport onChangeSend:#updateModifiedChannel to:self. |
4286 | 932 |
]. |
933 |
^ fullDebugSupport. |
|
934 |
! |
|
935 |
||
936 |
immutableArrays |
|
937 |
||
938 |
immutableArrays isNil ifTrue:[ |
|
939 |
immutableArrays := (Compiler arraysAreImmutable ? false) asValue. |
|
5041 | 940 |
immutableArrays onChangeSend:#updateModifiedChannel to:self. |
4286 | 941 |
]. |
942 |
^ immutableArrays. |
|
943 |
! |
|
944 |
||
945 |
justInTimeCompilation |
|
946 |
||
947 |
justInTimeCompilation isNil ifTrue:[ |
|
948 |
self supportsJustInTimeCompilation ifTrue:[ |
|
949 |
justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue. |
|
950 |
] ifFalse:[ |
|
951 |
justInTimeCompilation := false asValue. |
|
952 |
]. |
|
5041 | 953 |
justInTimeCompilation onChangeSend:#updateModifiedChannel to:self. |
4286 | 954 |
]. |
955 |
^ justInTimeCompilation. |
|
956 |
! |
|
957 |
||
958 |
warnCommonMistakes |
|
959 |
||
960 |
warnCommonMistakes isNil ifTrue:[ |
|
961 |
warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue. |
|
5041 | 962 |
warnCommonMistakes onChangeSend:#updateModifiedChannel to:self. |
4286 | 963 |
]. |
964 |
^ warnCommonMistakes. |
|
965 |
! |
|
966 |
||
967 |
warnCompatibility |
|
968 |
||
969 |
warnCompatibility isNil ifTrue:[ |
|
970 |
warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue. |
|
5041 | 971 |
warnCompatibility onChangeSend:#updateModifiedChannel to:self. |
4286 | 972 |
]. |
973 |
^ warnCompatibility. |
|
974 |
! |
|
975 |
||
976 |
warnDollar |
|
977 |
||
978 |
warnDollar isNil ifTrue:[ |
|
979 |
warnDollar := (Compiler warnDollarInIdentifier ? false) asValue. |
|
5041 | 980 |
warnDollar onChangeSend:#updateModifiedChannel to:self. |
4286 | 981 |
]. |
982 |
^ warnDollar. |
|
983 |
! |
|
984 |
||
985 |
warnOldStyle |
|
986 |
||
987 |
warnOldStyle isNil ifTrue:[ |
|
988 |
warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue. |
|
5041 | 989 |
warnOldStyle onChangeSend:#updateModifiedChannel to:self. |
4286 | 990 |
]. |
991 |
^ warnOldStyle. |
|
992 |
! |
|
993 |
||
994 |
warnSTX |
|
995 |
||
996 |
warnSTX isNil ifTrue:[ |
|
997 |
warnSTX := (Compiler warnSTXSpecials ? false) asValue. |
|
5041 | 998 |
warnSTX onChangeSend:#updateModifiedChannel to:self. |
4286 | 999 |
]. |
1000 |
^ warnSTX. |
|
1001 |
! |
|
1002 |
||
1003 |
warnUnderscore |
|
1004 |
||
1005 |
warnUnderscore isNil ifTrue:[ |
|
1006 |
warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue. |
|
5041 | 1007 |
warnUnderscore onChangeSend:#updateModifiedChannel to:self. |
4286 | 1008 |
]. |
1009 |
^ warnUnderscore. |
|
1010 |
! |
|
1011 |
||
1012 |
warnUnusedVars |
|
1013 |
||
1014 |
warnUnusedVars isNil ifTrue:[ |
|
1015 |
warnUnusedVars := (Compiler warnUnusedVars ? false) asValue. |
|
5041 | 1016 |
warnUnusedVars onChangeSend:#updateModifiedChannel to:self. |
4286 | 1017 |
]. |
1018 |
^ warnUnusedVars. |
|
1019 |
! |
|
1020 |
||
1021 |
warnings |
|
1022 |
||
1023 |
warnings isNil ifTrue:[ |
|
1024 |
warnings := (Compiler warnings ? false) asValue. |
|
1025 |
warnings addDependent:self. |
|
1026 |
warnings changed. |
|
5041 | 1027 |
warnings onChangeSend:#updateModifiedChannel to:self. |
4286 | 1028 |
]. |
1029 |
^ warnings. |
|
1030 |
! ! |
|
1031 |
||
4387 | 1032 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'! |
4286 | 1033 |
|
1034 |
update:something with:aParameter from:changedObject |
|
1035 |
changedObject == self warnings ifTrue:[ |
|
4805 | 1036 |
changedObject value ifTrue:[ |
4286 | 1037 |
self enableUnderscore value:self allowUnderscore value. |
1038 |
self enableDollar value:self allowDollar value. |
|
1039 |
] ifFalse:[ |
|
1040 |
self enableUnderscore value:false. |
|
1041 |
self enableDollar value:false. |
|
1042 |
]. |
|
1043 |
^ self |
|
1044 |
]. |
|
1045 |
(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[ |
|
1046 |
self warnings changed. |
|
1047 |
^ self |
|
1048 |
]. |
|
1049 |
||
1050 |
super update:something with:aParameter from:changedObject |
|
1051 |
! ! |
|
1052 |
||
4387 | 1053 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'! |
4286 | 1054 |
|
1055 |
hasUnsavedChanges |
|
5918 | 1056 |
((Compiler warnings ? false) ~= self warnings value) ifTrue:[^ true]. |
1057 |
((Compiler warnSTXSpecials ? false) ~= self warnSTX value) ifTrue:[^ true]. |
|
1058 |
((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) ifTrue:[^ true]. |
|
1059 |
((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) ifTrue:[^ true]. |
|
1060 |
((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) ifTrue:[^ true]. |
|
1061 |
((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) ifTrue:[^ true]. |
|
1062 |
((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) ifTrue:[^ true]. |
|
1063 |
((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) ifTrue:[^ true]. |
|
1064 |
((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) ifTrue:[^ true]. |
|
1065 |
((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) ifTrue:[^ true]. |
|
1066 |
((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) ifTrue:[^ true]. |
|
1067 |
((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) ifTrue:[^ true]. |
|
1068 |
((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) ifTrue:[^ true]. |
|
1069 |
((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) ifTrue:[^ true]. |
|
1070 |
((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) ifTrue:[^ true]. |
|
1071 |
((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) ifTrue:[^ true]. |
|
1072 |
((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) ifTrue:[^ true]. |
|
1073 |
((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) ifTrue:[^ true]. |
|
1074 |
((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true]. |
|
1075 |
^ false |
|
4286 | 1076 |
! |
1077 |
||
1078 |
supportsJustInTimeCompilation |
|
1079 |
||
1080 |
^ ObjectMemory supportsJustInTimeCompilation |
|
1081 |
! ! |
|
1082 |
||
4398 | 1083 |
!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'! |
1084 |
||
1085 |
defaultIcon |
|
1086 |
<resource: #programImage> |
|
1087 |
||
1088 |
^ ToolbarIconLibrary bugReporter24x24Icon |
|
1089 |
! ! |
|
1090 |
||
1091 |
!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'! |
|
1092 |
||
1093 |
windowSpec |
|
1094 |
"This resource specification was automatically generated |
|
1095 |
by the UIPainter of ST/X." |
|
1096 |
||
1097 |
"Do not manually edit this!! If it is corrupted, |
|
1098 |
the UIPainter may not be able to read the specification." |
|
1099 |
||
1100 |
" |
|
1101 |
UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec |
|
1102 |
AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec |
|
1103 |
AbstractSettingsApplication::DebuggerSettingsAppl open |
|
1104 |
" |
|
1105 |
||
1106 |
<resource: #canvas> |
|
1107 |
||
1108 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1109 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1110 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1111 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1112 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1113 |
label: 'Debugger Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1114 |
name: 'Debugger Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1115 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1116 |
bounds: (Rectangle 14 46 614 366) |
4398 | 1117 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1118 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1119 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1120 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1121 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1122 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1123 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1124 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1125 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1126 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1127 |
verticalSpace: 5 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1128 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1129 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1130 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1131 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1132 |
name: 'VerticalPanel5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1133 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1134 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1135 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1136 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1137 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1138 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1139 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1140 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1141 |
name: 'Box10' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1142 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1143 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1144 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1145 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1146 |
label: 'Show Error Notifier before Opening Debugger' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1147 |
name: 'ShowErrorNotifierCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1148 |
layout: (LayoutFrame 5 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1149 |
model: showErrorNotifier |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1150 |
translateLabel: true |
4398 | 1151 |
) |
1152 |
) |
|
1153 |
||
1154 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1155 |
extent: (Point 600 30) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1156 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1157 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1158 |
name: 'Box11' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1159 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1160 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1161 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1162 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1163 |
label: 'Verbose Backtrace by Default in Debugger' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1164 |
name: 'ShowVerboseStackCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1165 |
layout: (LayoutFrame 5 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1166 |
model: showVerboseStack |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1167 |
translateLabel: true |
4398 | 1168 |
) |
1169 |
) |
|
1170 |
||
1171 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1172 |
extent: (Point 600 30) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1173 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1174 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1175 |
name: 'Box12' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1176 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1177 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1178 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1179 |
(CheckBoxSpec |
6018 | 1180 |
label: 'Allow Sending of Error Reports from Debugger' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1181 |
name: 'CheckBox6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1182 |
layout: (LayoutFrame 5 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1183 |
model: allowSendMailFromDebugger |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1184 |
translateLabel: true |
4398 | 1185 |
) |
1186 |
) |
|
1187 |
||
1188 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1189 |
extent: (Point 600 30) |
4398 | 1190 |
) |
1191 |
) |
|
1192 |
||
1193 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1194 |
extent: (Point 600 320) |
4398 | 1195 |
) |
1196 |
) |
|
1197 |
||
1198 |
) |
|
1199 |
) |
|
1200 |
) |
|
1201 |
||
1202 |
) |
|
1203 |
) |
|
1204 |
! ! |
|
1205 |
||
1206 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'! |
|
1207 |
||
4574 | 1208 |
basicSaveSettings |
1209 |
||
1210 |
currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value. |
|
1211 |
self showErrorNotifier value ifFalse:[ |
|
1212 |
Exception emergencyHandler:nil |
|
1213 |
] ifTrue:[ |
|
1214 |
Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler) |
|
1215 |
]. |
|
1216 |
DebugView defaultVerboseBacktrace:self showVerboseStack value. |
|
1217 |
! |
|
1218 |
||
5101 | 1219 |
helpFilename |
1220 |
^ 'Launcher/debuggerSettings.html' |
|
4398 | 1221 |
! |
1222 |
||
4574 | 1223 |
readSettings |
1224 |
self allowSendMailFromDebugger |
|
1225 |
value:currentUserPrefs allowSendMailFromDebugger. |
|
1226 |
self showErrorNotifier value:(NoHandlerError emergencyHandler |
|
1227 |
== AbstractLauncherApplication notifyingEmergencyHandler). |
|
4398 | 1228 |
self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false). |
4574 | 1229 |
self modifiedChannel value:false |
4398 | 1230 |
! ! |
1231 |
||
1232 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'! |
|
1233 |
||
1234 |
allowSendMailFromDebugger |
|
1235 |
||
1236 |
allowSendMailFromDebugger isNil ifTrue:[ |
|
1237 |
allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue. |
|
5041 | 1238 |
allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self |
4398 | 1239 |
]. |
1240 |
^ allowSendMailFromDebugger. |
|
1241 |
! |
|
1242 |
||
1243 |
showErrorNotifier |
|
1244 |
||
1245 |
showErrorNotifier isNil ifTrue:[ |
|
4566
af369740e2bc
Replace referneces to Exception.
Stefan Vogel <sv@exept.de>
parents:
4563
diff
changeset
|
1246 |
showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue. |
5041 | 1247 |
showErrorNotifier onChangeSend:#updateModifiedChannel to:self |
4398 | 1248 |
]. |
1249 |
^ showErrorNotifier. |
|
1250 |
! |
|
1251 |
||
1252 |
showVerboseStack |
|
1253 |
||
1254 |
showVerboseStack isNil ifTrue:[ |
|
1255 |
showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue. |
|
5041 | 1256 |
showVerboseStack onChangeSend:#updateModifiedChannel to:self |
4398 | 1257 |
]. |
1258 |
^ showVerboseStack. |
|
1259 |
! ! |
|
1260 |
||
1261 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'! |
|
1262 |
||
1263 |
hasUnsavedChanges |
|
5918 | 1264 |
self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true]. |
1265 |
DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value ifTrue:[^ true]. |
|
1266 |
(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value ifTrue:[^ true]. |
|
1267 |
^ false |
|
4398 | 1268 |
! ! |
1269 |
||
4286 | 1270 |
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'! |
1271 |
||
1272 |
clipEncodingStrings |
|
1273 |
||
1274 |
^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5') |
|
1275 |
! |
|
1276 |
||
1277 |
clipEncodingSyms |
|
1278 |
||
1279 |
^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5) |
|
1280 |
! |
|
1281 |
||
1282 |
staticGrayOrGrayScaleDitherStrings |
|
1283 |
||
1284 |
^ #('threshold' 'ordered dither' 'error diffusion') |
|
1285 |
! |
|
1286 |
||
1287 |
staticGrayOrGrayScaleDitherSyms |
|
1288 |
||
1289 |
^ #(threshold ordered floydSteinberg) |
|
1290 |
! |
|
1291 |
||
1292 |
trueColorDitherStrings |
|
1293 |
||
1294 |
^ #('nearest color' 'error diffusion') |
|
1295 |
! |
|
1296 |
||
1297 |
trueColorDitherSyms |
|
1298 |
||
1299 |
^ #(ordered floydSteinberg) |
|
1300 |
! ! |
|
1301 |
||
4312 | 1302 |
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'! |
1303 |
||
1304 |
defaultIcon |
|
1305 |
"This resource specification was automatically generated |
|
1306 |
by the ImageEditor of ST/X." |
|
1307 |
||
1308 |
"Do not manually edit this!! If it is corrupted, |
|
1309 |
the ImageEditor may not be able to read the specification." |
|
1310 |
||
1311 |
" |
|
1312 |
self defaultIcon inspect |
|
1313 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
1314 |
Icon flushCachedIcons |
|
1315 |
" |
|
1316 |
||
1317 |
<resource: #image> |
|
1318 |
||
1319 |
^Icon |
|
1320 |
constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon' |
|
4948 | 1321 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
1322 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y&Y&Y&Y&Y&&P@@A&Y&Y&Y&Y&ZY@@@FXXUUV***)9$0@@Y!!H"H+.AF''&S@@A&,"H"H+DZ^YL@@F |
|
1323 |
Z2H"H",Q)9$0@@Y(H"J;-QF''&S@@A&E[.HUQDZ^YL@@FXUUUUUDQ*)$0@@Y!!UUUUTQF*&S@@A&(QF$*$QD^YL@@I&Y&Y&Y&Y&Y$0@@&Y&Y&Y&Y&Y&S@@@@L3 |
|
1324 |
M)&YL3L3L@@@@@@F&Y$3@@@@@@@@ZY&Y&Y&S@@@@@@A)&Y&Y&YL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 80 112 112 64 64 64 48 64 80 64 96 96 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@G<@@??@@??@@@@@@@@@') ; yourself); yourself] |
|
4312 | 1325 |
! ! |
1326 |
||
4286 | 1327 |
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'! |
1328 |
||
1329 |
windowSpec |
|
1330 |
"This resource specification was automatically generated |
|
1331 |
by the UIPainter of ST/X." |
|
1332 |
||
1333 |
"Do not manually edit this!! If it is corrupted, |
|
1334 |
the UIPainter may not be able to read the specification." |
|
1335 |
||
1336 |
" |
|
4310 | 1337 |
UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec |
1338 |
AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec |
|
1339 |
AbstractSettingsApplication::DisplaySettingsAppl open |
|
4286 | 1340 |
" |
1341 |
||
1342 |
<resource: #canvas> |
|
1343 |
||
1344 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1345 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1346 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1347 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1348 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1349 |
label: 'Display Screen Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1350 |
name: 'Display Screen Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1351 |
min: (Point 10 10) |
6023 | 1352 |
bounds: (Rectangle 0 0 600 378) |
4286 | 1353 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1354 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1355 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1356 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1357 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1358 |
label: 'Actual Visible Screen Area:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1359 |
name: 'ActualVisibleScreenAreaLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1360 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1361 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1362 |
adjust: left |
4286 | 1363 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1364 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1365 |
label: 'Common Sizes:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1366 |
name: 'CommonSizesLabel' |
6023 | 1367 |
layout: (LayoutFrame 0 0 39 0 163 0 61 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1368 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1369 |
adjust: right |
4286 | 1370 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1371 |
(PopUpListSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1372 |
label: 'monitor size' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1373 |
name: 'MonitorSelectionPopUpList' |
6023 | 1374 |
layout: (LayoutFrame 170 0 39 0 -5 1 61 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1375 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1376 |
model: monitorSelection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1377 |
menu: monitorList |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1378 |
useIndex: true |
4286 | 1379 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1380 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1381 |
label: 'Screen Size:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1382 |
name: 'ScreenSizeLabel' |
6023 | 1383 |
layout: (LayoutFrame 0 0 72 0 163 0 94 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1384 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1385 |
adjust: right |
4286 | 1386 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1387 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1388 |
name: 'SizeXEntryField' |
6023 | 1389 |
layout: (LayoutFrame 170 0 72 0 237 0 94 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1390 |
model: sizeX |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1391 |
type: number |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1392 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1393 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1394 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1395 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1396 |
acceptOnPointerLeave: true |
4286 | 1397 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1398 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1399 |
label: ' x ' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1400 |
name: 'xLabel' |
6023 | 1401 |
layout: (LayoutFrame 238 0 72 0 271 0 94 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1402 |
translateLabel: true |
4286 | 1403 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1404 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1405 |
name: 'SizeYEntryField' |
6023 | 1406 |
layout: (LayoutFrame 272 0 72 0 339 0 94 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1407 |
model: sizeY |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1408 |
type: number |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1409 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1410 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1411 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1412 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1413 |
acceptOnPointerLeave: true |
4286 | 1414 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1415 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1416 |
label: '(mm)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1417 |
name: 'mmLabel' |
6023 | 1418 |
layout: (LayoutFrame 351 0 72 0 397 0 94 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1419 |
translateLabel: true |
6023 | 1420 |
adjust: left |
4286 | 1421 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1422 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1423 |
name: 'Separator1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1424 |
layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0) |
4286 | 1425 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1426 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1427 |
name: 'ScreenDepthVisualLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1428 |
layout: (LayoutFrame 0 0.0 113 0.0 0 1.0 135 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1429 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1430 |
labelChannel: screenDepthVisualLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1431 |
adjust: left |
4286 | 1432 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1433 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1434 |
name: 'Separator2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1435 |
layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0) |
4286 | 1436 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1437 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1438 |
label: 'Color Monitor' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1439 |
name: 'ColorMonitorCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1440 |
layout: (LayoutFrame 5 0 150 0 250 0 172 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1441 |
model: isColorMonitor |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1442 |
translateLabel: true |
4286 | 1443 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1444 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1445 |
label: 'Use Fix Color Palette' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1446 |
name: 'FixColorPaletteCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1447 |
layout: (LayoutFrame 5 0 175 0 301 0 197 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1448 |
enableChannel: visualIsPseudoColor |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1449 |
model: useFixPalette |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1450 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1451 |
labelChannel: useFixPaletteLabel |
4286 | 1452 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1453 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1454 |
label: 'Use Fix Gray Color Palette' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1455 |
name: 'UseFixGrayPaletteCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1456 |
layout: (LayoutFrame 5 0 201 0 301 0 223 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1457 |
enableChannel: visualIsPseudoColor |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1458 |
model: useFixGrayPalette |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1459 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1460 |
labelChannel: useFixGrayPaletteLabel |
4286 | 1461 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1462 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1463 |
label: 'Image Display:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1464 |
name: 'ImageDisplayLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1465 |
layout: (LayoutFrame 0 0 230 0 205 0 252 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1466 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1467 |
adjust: right |
4286 | 1468 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1469 |
(PopUpListSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1470 |
label: 'image display' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1471 |
name: 'DitherListPopUpList' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1472 |
layout: (LayoutFrame 205 0 230 0 -5 1 252 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1473 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1474 |
model: ditherListSelection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1475 |
enableChannel: ditherSymsNotNil |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1476 |
menu: ditherList |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1477 |
useIndex: true |
4286 | 1478 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1479 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1480 |
label: 'Allow Colored/Grayscale Icons' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1481 |
name: 'AllowColoredGrayscaleIconsCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1482 |
layout: (LayoutFrame 5 0 262 0 301 0 284 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1483 |
model: deepIcons |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1484 |
translateLabel: true |
4286 | 1485 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1486 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1487 |
name: 'Separator3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1488 |
layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0) |
4286 | 1489 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1490 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1491 |
label: 'ClipBoard Encoding:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1492 |
name: 'ClipBoardEncodingLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1493 |
layout: (LayoutFrame 0 0 303 0 205 0 325 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1494 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1495 |
adjust: right |
4286 | 1496 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1497 |
(PopUpListSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1498 |
label: 'image display' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1499 |
name: 'ClipEncodingListPopUpList' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1500 |
layout: (LayoutFrame 205 0 303 0 -5 1 325 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1501 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1502 |
model: clipEncodingListSelection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1503 |
menu: clipEncodingList |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1504 |
useIndex: true |
4286 | 1505 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1506 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1507 |
name: 'Separator4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1508 |
layout: (LayoutFrame 0 0.0 360 0 0 1.0 364 0) |
5086 | 1509 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1510 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1511 |
label: 'Max. CopyBuffer Size:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1512 |
name: 'MaxCopyBufferSizeLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1513 |
layout: (LayoutFrame 0 0 330 0 205 0 352 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1514 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1515 |
adjust: right |
5086 | 1516 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1517 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1518 |
name: 'MaxCopyBufferEntryField' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1519 |
layout: (LayoutFrame 205 0 330 0 300 0 352 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1520 |
model: maxCopyBufferSize |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1521 |
type: fileSize |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1522 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1523 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1524 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1525 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1526 |
acceptOnPointerLeave: true |
4286 | 1527 |
) |
1528 |
) |
|
1529 |
||
1530 |
) |
|
1531 |
) |
|
1532 |
! ! |
|
1533 |
||
1534 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'! |
|
1535 |
||
4574 | 1536 |
basicSaveSettings |
1537 |
||
1538 |
Image flushDeviceImages. |
|
1539 |
||
1540 |
screen visualType == #PseudoColor ifTrue:[ |
|
1541 |
self useFixPalette value ifTrue:[ |
|
1542 |
Color colorAllocationFailSignal handle:[:ex | |
|
1543 |
self warn:'Could not allocate colors.'. |
|
1544 |
] do:[ |
|
1545 |
Color getColorsRed:4 green:8 blue:4 on:screen |
|
1546 |
] |
|
1547 |
] ifFalse:[ |
|
1548 |
screen releaseFixColors |
|
1549 |
]. |
|
1550 |
||
1551 |
self useFixGrayPalette value ifTrue:[ |
|
1552 |
Color colorAllocationFailSignal handle:[:ex | |
|
1553 |
self warn:'Could not allocate colors.'. |
|
1554 |
] do:[ |
|
1555 |
Color getGrayColors:32 on:screen |
|
1556 |
] |
|
1557 |
] ifFalse:[ |
|
1558 |
screen releaseFixGrayColors |
|
1559 |
] |
|
1560 |
]. |
|
1561 |
screen hasColors:self isColorMonitor value. |
|
1562 |
screen widthInMillimeter:self sizeX value. |
|
1563 |
screen heightInMillimeter:self sizeY value. |
|
1564 |
||
1565 |
screen supportsDeepIcons:self deepIcons value. |
|
1566 |
ditherSyms notNil ifTrue:[ |
|
1567 |
Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value). |
|
1568 |
]. |
|
1569 |
||
1570 |
WindowGroup activeGroup withWaitCursorDo:[ |
|
1571 |
View defaultStyle:(View defaultStyle). |
|
1572 |
]. |
|
1573 |
||
1574 |
screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value). |
|
1575 |
! |
|
1576 |
||
5101 | 1577 |
helpFilename |
1578 |
^ 'Launcher/screenSettings.html' |
|
4286 | 1579 |
! |
1580 |
||
4574 | 1581 |
readSettings |
4286 | 1582 |
self useFixPalette value:screen fixColors notNil. |
1583 |
self useFixGrayPalette value:screen fixGrayColors notNil. |
|
1584 |
self isColorMonitor value:screen hasColors. |
|
1585 |
self sizeX value:screen widthInMillimeter. |
|
1586 |
self sizeY value:screen heightInMillimeter. |
|
1587 |
self deepIcons value:screen supportsDeepIcons. |
|
1588 |
ditherSyms notNil ifTrue:[ |
|
4574 | 1589 |
self ditherListSelection |
1590 |
value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) |
|
1591 |
]. |
|
1592 |
self clipEncodingListSelection |
|
6037
4ee47a9ce56a
Unify naming: clipBoard->clipboard
Stefan Vogel <sv@exept.de>
parents:
6030
diff
changeset
|
1593 |
value:(self class clipEncodingSyms indexOf:screen clipboardEncoding |
4574 | 1594 |
ifAbsent:1). |
1595 |
self modifiedChannel value:false |
|
4286 | 1596 |
! ! |
1597 |
||
1598 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'! |
|
1599 |
||
1600 |
clipEncodingList |
|
1601 |
||
1602 |
clipEncodingList isNil ifTrue:[ |
|
1603 |
clipEncodingList := (resources array:self class clipEncodingStrings) asValue. |
|
1604 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
1605 |
"/ clipEncodingList addDependent:self. |
|
1606 |
"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self. |
|
1607 |
]. |
|
1608 |
^ clipEncodingList. |
|
1609 |
! |
|
1610 |
||
1611 |
clipEncodingListSelection |
|
1612 |
||
1613 |
clipEncodingListSelection isNil ifTrue:[ |
|
6037
4ee47a9ce56a
Unify naming: clipBoard->clipboard
Stefan Vogel <sv@exept.de>
parents:
6030
diff
changeset
|
1614 |
clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue. |
5041 | 1615 |
clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self. |
4286 | 1616 |
]. |
1617 |
^ clipEncodingListSelection. |
|
1618 |
! |
|
1619 |
||
1620 |
deepIcons |
|
1621 |
||
1622 |
deepIcons isNil ifTrue:[ |
|
1623 |
deepIcons := screen supportsDeepIcons asValue. |
|
5041 | 1624 |
deepIcons onChangeSend:#updateModifiedChannel to:self. |
4286 | 1625 |
]. |
1626 |
^ deepIcons. |
|
1627 |
! |
|
1628 |
||
1629 |
ditherList |
|
1630 |
||
1631 |
ditherList isNil ifTrue:[ |
|
1632 |
ditherList := ValueHolder new. |
|
1633 |
]. |
|
1634 |
^ ditherList. |
|
1635 |
! |
|
1636 |
||
1637 |
ditherListSelection |
|
1638 |
||
1639 |
ditherListSelection isNil ifTrue:[ |
|
1640 |
ditherSyms notNil ifTrue:[ |
|
1641 |
ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue. |
|
1642 |
] ifFalse:[ |
|
1643 |
ditherListSelection := ValueHolder new. |
|
1644 |
]. |
|
5041 | 1645 |
ditherListSelection onChangeSend:#updateModifiedChannel to:self. |
4286 | 1646 |
]. |
1647 |
^ ditherListSelection. |
|
1648 |
! |
|
1649 |
||
1650 |
ditherSymsNotNil |
|
1651 |
||
1652 |
ditherSymsNotNil isNil ifTrue:[ |
|
1653 |
ditherSymsNotNil := ditherSyms notNil asValue. |
|
1654 |
]. |
|
1655 |
^ ditherSymsNotNil. |
|
1656 |
! |
|
1657 |
||
1658 |
isColorMonitor |
|
1659 |
||
1660 |
isColorMonitor isNil ifTrue:[ |
|
1661 |
isColorMonitor := screen hasColors asValue. |
|
5041 | 1662 |
isColorMonitor onChangeSend:#updateModifiedChannel to:self. |
4286 | 1663 |
]. |
1664 |
^ isColorMonitor. |
|
1665 |
! |
|
1666 |
||
5086 | 1667 |
maxCopyBufferSize |
1668 |
||
1669 |
maxCopyBufferSize isNil ifTrue:[ |
|
1670 |
maxCopyBufferSize := (8*1024*1024) asValue. |
|
1671 |
maxCopyBufferSize addDependent:self. |
|
1672 |
maxCopyBufferSize changed. |
|
1673 |
maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self. |
|
1674 |
]. |
|
1675 |
^ maxCopyBufferSize. |
|
1676 |
! |
|
1677 |
||
4286 | 1678 |
monitorList |
1679 |
||
1680 |
monitorList isNil ifTrue:[ |
|
1681 |
monitorList := (resources array:(sizeInfos collect:[:entry | entry at:1])) asList. |
|
1682 |
]. |
|
1683 |
^ monitorList. |
|
1684 |
! |
|
1685 |
||
1686 |
monitorSelection |
|
1687 |
||
1688 |
monitorSelection isNil ifTrue:[ |
|
1689 |
monitorSelection := ValueHolder new. |
|
1690 |
monitorSelection addDependent:self. |
|
5041 | 1691 |
monitorSelection onChangeSend:#updateModifiedChannel to:self. |
4286 | 1692 |
monitorSelection changed. |
1693 |
]. |
|
1694 |
^ monitorSelection. |
|
1695 |
! |
|
1696 |
||
1697 |
screenDepthVisualLabelHolder |
|
1698 |
||
1699 |
screenDepthVisualLabelHolder isNil ifTrue:[ |
|
1700 |
screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)' |
|
1701 |
with:screen depth printString |
|
1702 |
with:screen visualType |
|
1703 |
with:screen serverVendor) asValue. |
|
1704 |
]. |
|
1705 |
^ screenDepthVisualLabelHolder. |
|
1706 |
! |
|
1707 |
||
1708 |
sizeX |
|
1709 |
||
1710 |
sizeX isNil ifTrue:[ |
|
1711 |
sizeX := screen widthInMillimeter asValue. |
|
1712 |
sizeX addDependent:self. |
|
1713 |
sizeX changed. |
|
5041 | 1714 |
sizeX onChangeSend:#updateModifiedChannel to:self. |
4286 | 1715 |
]. |
1716 |
^ sizeX. |
|
1717 |
! |
|
1718 |
||
5041 | 1719 |
sizeY |
4286 | 1720 |
|
1721 |
sizeY isNil ifTrue:[ |
|
1722 |
sizeY := screen heightInMillimeter asValue. |
|
1723 |
sizeY addDependent:self. |
|
1724 |
sizeY changed. |
|
5041 | 1725 |
sizeY onChangeSend:#updateModifiedChannel to:self. |
4286 | 1726 |
]. |
1727 |
^ sizeY. |
|
1728 |
! |
|
1729 |
||
1730 |
useFixGrayPalette |
|
1731 |
||
1732 |
useFixGrayPalette isNil ifTrue:[ |
|
1733 |
useFixGrayPalette := screen fixGrayColors notNil asValue. |
|
5041 | 1734 |
useFixGrayPalette onChangeSend:#updateModifiedChannel to:self. |
4286 | 1735 |
]. |
1736 |
^ useFixGrayPalette. |
|
1737 |
! |
|
1738 |
||
1739 |
useFixGrayPaletteLabel |
|
1740 |
||
1741 |
useFixGrayPaletteLabel isNil ifTrue:[ |
|
1742 |
useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue. |
|
1743 |
]. |
|
1744 |
^ useFixGrayPaletteLabel. |
|
1745 |
! |
|
1746 |
||
1747 |
useFixPalette |
|
1748 |
||
1749 |
useFixPalette isNil ifTrue:[ |
|
1750 |
useFixPalette := screen fixColors notNil asValue. |
|
5041 | 1751 |
useFixPalette onChangeSend:#updateModifiedChannel to:self. |
4286 | 1752 |
]. |
1753 |
^ useFixPalette. |
|
1754 |
! |
|
1755 |
||
1756 |
useFixPaletteLabel |
|
1757 |
||
1758 |
useFixPaletteLabel isNil ifTrue:[ |
|
1759 |
useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue. |
|
1760 |
]. |
|
1761 |
^ useFixPaletteLabel. |
|
1762 |
! |
|
1763 |
||
1764 |
visualIsPseudoColor |
|
1765 |
||
1766 |
visualIsPseudoColor isNil ifTrue:[ |
|
1767 |
visualIsPseudoColor := (screen visualType == #PseudoColor) asValue. |
|
5041 | 1768 |
visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self. |
4286 | 1769 |
]. |
1770 |
^ visualIsPseudoColor. |
|
1771 |
! ! |
|
1772 |
||
1773 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'! |
|
1774 |
||
1775 |
monitorSelectionChanged |
|
1776 |
||
1777 |
| sel sizeInfoEntry sizes| |
|
1778 |
||
1779 |
sel := self monitorSelection value. |
|
1780 |
(sel notNil and:[sel ~~ 0]) ifTrue:[ |
|
1781 |
sizeInfoEntry := sizeInfos at:sel. |
|
1782 |
sizes := sizeInfoEntry at:2. |
|
1783 |
self sizeX value:(sizes at:1). |
|
1784 |
self sizeY value:(sizes at:2). |
|
1785 |
]. |
|
1786 |
! |
|
1787 |
||
1788 |
sizeXorYChanged |
|
1789 |
| sizes idx| |
|
1790 |
||
1791 |
sizes := sizeInfos collect:[:entry | entry at:2]. |
|
1792 |
idx := sizes findFirst:[:entry | |
|
1793 |
((entry at:1) = sizeX value) |
|
1794 |
and:[((entry at:2) = sizeY value)] |
|
1795 |
]. |
|
1796 |
idx ~~ 0 ifTrue:[ |
|
1797 |
self monitorSelection value:idx |
|
1798 |
]. |
|
1799 |
! |
|
1800 |
||
1801 |
update:something with:aParameter from:changedObject |
|
1802 |
changedObject == self monitorSelection ifTrue:[ |
|
1803 |
self monitorSelectionChanged. |
|
1804 |
^ self. |
|
1805 |
]. |
|
1806 |
(changedObject == self sizeX or:[self sizeY]) ifTrue:[ |
|
1807 |
self sizeXorYChanged. |
|
1808 |
^ self. |
|
1809 |
]. |
|
1810 |
||
1811 |
super update:something with:aParameter from:changedObject |
|
1812 |
! ! |
|
1813 |
||
1814 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'! |
|
1815 |
||
1816 |
initialize |
|
1817 |
||
1818 |
| listOfSizes visual| |
|
4574 | 1819 |
|
4286 | 1820 |
screen := Screen current. |
4574 | 1821 |
|
1822 |
listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default. |
|
4286 | 1823 |
listOfSizes == #default ifTrue:[ |
1824 |
"/ nothing in resource file; offer at least some. |
|
1825 |
sizeInfos := #( |
|
1826 |
( '11.3'' (235mm x 175mm) LCD' (235 175) ) |
|
1827 |
( '17'' (325mm x 245mm)' (325 245) ) |
|
1828 |
( '19'' (340mm x 270mm)' (340 270) ) |
|
1829 |
( '20'' (350mm x 280mm)' (350 280) ) |
|
1830 |
( '21'' (365mm x 285mm)' (365 285) ) |
|
1831 |
). |
|
1832 |
] ifFalse:[ |
|
1833 |
sizeInfos := resources array:listOfSizes. |
|
1834 |
]. |
|
1835 |
visual := screen visualType. |
|
1836 |
(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[ |
|
1837 |
ditherStyles := self class staticGrayOrGrayScaleDitherStrings. |
|
1838 |
ditherSyms := self class staticGrayOrGrayScaleDitherSyms. |
|
1839 |
] ifFalse:[ |
|
1840 |
visual ~~ #TrueColor ifTrue:[ |
|
1841 |
ditherStyles := self class trueColorDitherStrings. |
|
1842 |
ditherSyms := self class trueColorDitherSyms. |
|
1843 |
] |
|
1844 |
]. |
|
4574 | 1845 |
super initialize. |
1846 |
||
4286 | 1847 |
! ! |
1848 |
||
1849 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'! |
|
1850 |
||
1851 |
hasUnsavedChanges |
|
5918 | 1852 |
self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true]. |
1853 |
self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true]. |
|
1854 |
self isColorMonitor value ~= screen hasColors ifTrue:[^ true]. |
|
1855 |
self sizeX value ~= screen widthInMillimeter ifTrue:[^ true]. |
|
1856 |
self sizeY value ~= screen heightInMillimeter ifTrue:[^ true]. |
|
1857 |
||
1858 |
self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true]. |
|
1859 |
ditherSyms notNil ifTrue:[ |
|
1860 |
self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) ifTrue:[^ true]. |
|
1861 |
]. |
|
6037
4ee47a9ce56a
Unify naming: clipBoard->clipboard
Stefan Vogel <sv@exept.de>
parents:
6030
diff
changeset
|
1862 |
self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) ifTrue:[^ true]. |
5918 | 1863 |
^ false |
4286 | 1864 |
! ! |
1865 |
||
4312 | 1866 |
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'! |
1867 |
||
1868 |
defaultIcon |
|
1869 |
"This resource specification was automatically generated |
|
1870 |
by the ImageEditor of ST/X." |
|
1871 |
||
1872 |
"Do not manually edit this!! If it is corrupted, |
|
1873 |
the ImageEditor may not be able to read the specification." |
|
1874 |
||
1875 |
" |
|
1876 |
self defaultIcon inspect |
|
1877 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
1878 |
Icon flushCachedIcons |
|
1879 |
" |
|
1880 |
||
1881 |
<resource: #image> |
|
1882 |
||
1883 |
^Icon |
|
1884 |
constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon' |
|
4948 | 1885 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
1886 |
*******************************("H"H"H"H"J(@**"EUUU%UUUU@@^**HUUUVUUUU@@]:*(!!UUUYUUUT@A7**"FY&Y&Y&X@]7^**HUUUVUU@@]7\Z*( |
|
1887 |
!!UUUYU@@]7\R**"EUUU%T@A7]1J**HY&Y&XC]7\Q&**(!!UUU(3M7\Y&***"EUUU#L3L2QJ***HY&Z#L3L6)D***(!!&Y*L3L6Z$R***"EUUP3M&ZEQJ***HUU |
|
1888 |
RRY(UUUD***("*)J*****$R***"J)J******QJ***HUUUZUUUUUD***TQDQDQDQDQDR***************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself] |
|
4312 | 1889 |
! ! |
1890 |
||
4286 | 1891 |
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'! |
1892 |
||
1893 |
windowSpec |
|
1894 |
"This resource specification was automatically generated |
|
1895 |
by the UIPainter of ST/X." |
|
1896 |
||
1897 |
"Do not manually edit this!! If it is corrupted, |
|
1898 |
the UIPainter may not be able to read the specification." |
|
1899 |
||
1900 |
" |
|
4310 | 1901 |
UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec |
1902 |
AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec |
|
1903 |
AbstractSettingsApplication::EditSettingsAppl open |
|
4286 | 1904 |
" |
1905 |
||
1906 |
<resource: #canvas> |
|
1907 |
||
1908 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1909 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1910 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1911 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1912 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1913 |
label: 'Editor Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1914 |
name: 'Editor Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1915 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1916 |
bounds: (Rectangle 14 46 614 366) |
4286 | 1917 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1918 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1919 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1920 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1921 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1922 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1923 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1924 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1925 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1926 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1927 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1928 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1929 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1930 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1931 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1932 |
name: 'VerticalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1933 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1934 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1935 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1936 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1937 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1938 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1939 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1940 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1941 |
label: 'CTRL-Key to Start TextDrag' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1942 |
name: 'CTRLKeyStTextDragCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1943 |
model: startTextDragWithControl |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1944 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1945 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1946 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1947 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1948 |
label: 'SearchBox is Modal' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1949 |
name: 'SearchBoxModalCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1950 |
model: searchDialogIsModal |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1951 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1952 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1953 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1954 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1955 |
label: 'Tab Stops in Multiples of 4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1956 |
name: 'TabStopsMultiples4CheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1957 |
model: tabsIs4 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1958 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1959 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1960 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1961 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1962 |
label: 'Double Click Select Behavior as in ST80' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1963 |
name: 'DoubleClickSelectBehaviorST80CheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1964 |
model: st80DoubleClickSelectMode |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1965 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1966 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1967 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1968 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1969 |
label: 'Cursor has ST80 Line-end Behavior' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1970 |
name: 'CursorST80LineEndBehaviorCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1971 |
model: st80EditingMode |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1972 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1973 |
extent: (Point 600 23) |
4286 | 1974 |
) |
1975 |
) |
|
1976 |
||
1977 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
1978 |
extent: (Point 600 127) |
4286 | 1979 |
) |
1980 |
) |
|
1981 |
||
1982 |
) |
|
1983 |
) |
|
1984 |
) |
|
1985 |
||
1986 |
) |
|
1987 |
) |
|
1988 |
! ! |
|
1989 |
||
1990 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'! |
|
1991 |
||
4574 | 1992 |
basicSaveSettings |
5291 | 1993 |
|prefs| |
1994 |
||
1995 |
prefs := UserPreferences current. |
|
1996 |
||
1997 |
prefs st80EditMode:(self st80EditingMode value). |
|
4574 | 1998 |
TextView st80SelectMode:(self st80DoubleClickSelectMode value). |
1999 |
tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[ |
|
2000 |
ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]). |
|
2001 |
ListView allSubInstancesDo:[:eachKindOfListView | |
|
2002 |
self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8] |
|
2003 |
]. |
|
2004 |
]. |
|
5291 | 2005 |
prefs searchDialogIsModal:self searchDialogIsModal value. |
2006 |
prefs startTextDragWithControl:self startTextDragWithControl value. |
|
4574 | 2007 |
! |
2008 |
||
5101 | 2009 |
helpFilename |
2010 |
^ 'Launcher/editSettings.html' |
|
4286 | 2011 |
! |
2012 |
||
4574 | 2013 |
readSettings |
5915 | 2014 |
|prefs| |
2015 |
||
2016 |
prefs := UserPreferences current. |
|
2017 |
||
2018 |
self st80EditingMode value:prefs st80EditMode. |
|
4574 | 2019 |
self st80DoubleClickSelectMode value:TextView st80SelectMode. |
5915 | 2020 |
self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions). |
2021 |
self searchDialogIsModal value:prefs searchDialogIsModal. |
|
2022 |
self startTextDragWithControl value:prefs startTextDragWithControl. |
|
4574 | 2023 |
self modifiedChannel value:false |
4286 | 2024 |
! ! |
2025 |
||
2026 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'! |
|
2027 |
||
2028 |
searchDialogIsModal |
|
2029 |
||
2030 |
searchDialogIsModal isNil ifTrue:[ |
|
2031 |
searchDialogIsModal := true asValue. |
|
5041 | 2032 |
searchDialogIsModal onChangeSend:#updateModifiedChannel to:self. |
4286 | 2033 |
]. |
2034 |
^ searchDialogIsModal. |
|
2035 |
! |
|
2036 |
||
2037 |
st80DoubleClickSelectMode |
|
2038 |
||
2039 |
st80DoubleClickSelectMode isNil ifTrue:[ |
|
2040 |
st80DoubleClickSelectMode := true asValue. |
|
5041 | 2041 |
st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self. |
4286 | 2042 |
]. |
2043 |
^ st80DoubleClickSelectMode. |
|
2044 |
! |
|
2045 |
||
2046 |
st80EditingMode |
|
2047 |
||
2048 |
st80EditingMode isNil ifTrue:[ |
|
2049 |
st80EditingMode := true asValue. |
|
5041 | 2050 |
st80EditingMode onChangeSend:#updateModifiedChannel to:self. |
4286 | 2051 |
]. |
2052 |
^ st80EditingMode. |
|
2053 |
! |
|
2054 |
||
2055 |
startTextDragWithControl |
|
2056 |
||
2057 |
startTextDragWithControl isNil ifTrue:[ |
|
2058 |
startTextDragWithControl := true asValue. |
|
5041 | 2059 |
startTextDragWithControl onChangeSend:#updateModifiedChannel to:self. |
4286 | 2060 |
]. |
2061 |
^ startTextDragWithControl. |
|
2062 |
! |
|
2063 |
||
2064 |
tabsIs4 |
|
2065 |
||
2066 |
tabsIs4 isNil ifTrue:[ |
|
2067 |
tabsIs4 := true asValue. |
|
5041 | 2068 |
tabsIs4 onChangeSend:#updateModifiedChannel to:self. |
4286 | 2069 |
]. |
2070 |
^ tabsIs4. |
|
2071 |
! ! |
|
2072 |
||
2073 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'! |
|
2074 |
||
2075 |
hasUnsavedChanges |
|
5915 | 2076 |
currentUserPrefs st80EditMode ~= (self st80EditingMode value) ifTrue:[^ true]. |
2077 |
TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true]. |
|
2078 |
tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[ |
|
2079 |
ListView userDefaultTabPositions ~= (self tabsIs4 value |
|
2080 |
ifTrue:[ListView tab4Positions] |
|
2081 |
ifFalse:[ListView tab8Positions]) ifTrue:[^ true]. |
|
2082 |
]. |
|
2083 |
currentUserPrefs searchDialogIsModal ~= self searchDialogIsModal value ifTrue:[^ true]. |
|
2084 |
currentUserPrefs startTextDragWithControl ~= self startTextDragWithControl value ifTrue:[^ true]. |
|
2085 |
^ false |
|
4286 | 2086 |
! ! |
2087 |
||
2088 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'! |
|
2089 |
||
2090 |
widgetList |
|
2091 |
||
2092 |
^ #( |
|
2093 |
'All' |
|
2094 |
'Labels' |
|
2095 |
'Buttons' |
|
2096 |
'Lists' |
|
2097 |
'Menus' |
|
2098 |
'Edited Text' |
|
2099 |
) |
|
2100 |
! ! |
|
2101 |
||
4398 | 2102 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'! |
2103 |
||
2104 |
defaultIcon |
|
2105 |
"This resource specification was automatically generated |
|
2106 |
by the ImageEditor of ST/X." |
|
2107 |
||
2108 |
"Do not manually edit this!! If it is corrupted, |
|
2109 |
the ImageEditor may not be able to read the specification." |
|
2110 |
||
2111 |
" |
|
2112 |
self defaultIcon inspect |
|
2113 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
2114 |
Icon flushCachedIcons |
|
2115 |
" |
|
2116 |
||
2117 |
<resource: #image> |
|
2118 |
||
2119 |
^Icon |
|
2120 |
constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon' |
|
2121 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
2122 |
@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@ |
|
2123 |
ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE |
|
2124 |
P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself] |
|
2125 |
! |
|
2126 |
||
2127 |
defaultIcon2 |
|
2128 |
"This resource specification was automatically generated |
|
2129 |
by the ImageEditor of ST/X." |
|
2130 |
||
2131 |
"Do not manually edit this!! If it is corrupted, |
|
2132 |
the ImageEditor may not be able to read the specification." |
|
2133 |
||
2134 |
" |
|
2135 |
self defaultIcon2 inspect |
|
2136 |
ImageEditor openOnClass:self andSelector:#defaultIcon2 |
|
2137 |
Icon flushCachedIcons |
|
2138 |
" |
|
2139 |
||
2140 |
<resource: #image> |
|
2141 |
||
2142 |
^Icon |
|
2143 |
constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2' |
|
2144 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
2145 |
@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@ |
|
2146 |
ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE |
|
2147 |
P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself] |
|
2148 |
! ! |
|
2149 |
||
4286 | 2150 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'! |
2151 |
||
2152 |
fontForEncoding:encodingMatch |
|
2153 |
||
2154 |
| inst | |
|
2155 |
||
2156 |
inst := self new. |
|
2157 |
inst encodingMatch:encodingMatch. |
|
2158 |
self initialize. |
|
2159 |
self open. |
|
2160 |
! ! |
|
2161 |
||
2162 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'! |
|
2163 |
||
2164 |
windowSpec |
|
2165 |
"This resource specification was automatically generated |
|
2166 |
by the UIPainter of ST/X." |
|
2167 |
||
2168 |
"Do not manually edit this!! If it is corrupted, |
|
2169 |
the UIPainter may not be able to read the specification." |
|
2170 |
||
2171 |
" |
|
4310 | 2172 |
UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec |
2173 |
AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec |
|
2174 |
AbstractSettingsApplication::FontSettingsAppl open |
|
4286 | 2175 |
" |
2176 |
||
2177 |
<resource: #canvas> |
|
2178 |
||
2179 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2180 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2181 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2182 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2183 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2184 |
label: 'Font Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2185 |
name: 'Font Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2186 |
min: (Point 10 10) |
5540 | 2187 |
bounds: (Rectangle 0 0 512 657) |
4286 | 2188 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2189 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2190 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2191 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2192 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2193 |
name: 'VerticalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2194 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2195 |
horizontalLayout: fitSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2196 |
verticalLayout: center |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2197 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2198 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2199 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2200 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2201 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2202 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2203 |
name: 'AllBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2204 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2205 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2206 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2207 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2208 |
label: 'All (Others)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2209 |
name: 'All' |
5540 | 2210 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2211 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2212 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2213 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2214 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2215 |
label: 'Label' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2216 |
name: 'AllFont' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2217 |
layout: (LayoutFrame 105 0 22 0 -5 1 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2218 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2219 |
labelChannel: allFontLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2220 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2221 |
postBuildCallback: postBuildAllFontLabel: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2222 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2223 |
(ActionButtonSpec |
5540 | 2224 |
label: 'Change...' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2225 |
name: 'ChangeAll' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2226 |
layout: (LayoutFrame 0 0.0 22 0 105 0 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2227 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2228 |
model: changeAllFont |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2229 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2230 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2231 |
name: 'Separator1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2232 |
layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1) |
4310 | 2233 |
) |
2234 |
) |
|
2235 |
||
2236 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2237 |
extent: (Point 490 50) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2238 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2239 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2240 |
name: 'LabelsBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2241 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2242 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2243 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2244 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2245 |
label: 'Labels' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2246 |
name: 'Labels' |
5540 | 2247 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2248 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2249 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2250 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2251 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2252 |
label: 'Labels' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2253 |
name: 'LabelsFont' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2254 |
layout: (LayoutFrame 105 0 22 0 -5 1 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2255 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2256 |
labelChannel: labelsFontLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2257 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2258 |
postBuildCallback: postBuildLabelsFontLabel: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2259 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2260 |
(ActionButtonSpec |
5540 | 2261 |
label: 'Change...' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2262 |
name: 'ChangeLabels' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2263 |
layout: (LayoutFrame 0 0.0 22 0 105 0 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2264 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2265 |
model: changeLabelsFont |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2266 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2267 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2268 |
name: 'Separator6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2269 |
layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1) |
4310 | 2270 |
) |
2271 |
) |
|
2272 |
||
2273 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2274 |
extent: (Point 490 50) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2275 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2276 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2277 |
name: 'ButtonsBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2278 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2279 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2280 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2281 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2282 |
label: 'Buttons' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2283 |
name: 'Buttons' |
5540 | 2284 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2285 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2286 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2287 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2288 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2289 |
label: 'Buttons Font' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2290 |
name: 'ButtonsFont' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2291 |
layout: (LayoutFrame 105 0 22 0 -5 1 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2292 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2293 |
labelChannel: buttonsFontLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2294 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2295 |
postBuildCallback: postBuildButtonsFontLabel: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2296 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2297 |
(ActionButtonSpec |
5540 | 2298 |
label: 'Change...' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2299 |
name: 'Change Buttons' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2300 |
layout: (LayoutFrame 0 0.0 22 0 105 0 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2301 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2302 |
model: changeButtonsFont |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2303 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2304 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2305 |
name: 'Separator7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2306 |
layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1) |
4286 | 2307 |
) |
2308 |
) |
|
2309 |
||
2310 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2311 |
extent: (Point 490 50) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2312 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2313 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2314 |
name: 'ListsBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2315 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2316 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2317 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2318 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2319 |
label: 'Lists' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2320 |
name: 'Lists' |
5540 | 2321 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2322 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2323 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2324 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2325 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2326 |
label: 'Lists Font' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2327 |
name: 'ListsFont' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2328 |
layout: (LayoutFrame 105 0 22 0 -5 1 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2329 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2330 |
labelChannel: listsFontLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2331 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2332 |
postBuildCallback: postBuildListsFontLabel: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2333 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2334 |
(ActionButtonSpec |
5540 | 2335 |
label: 'Change...' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2336 |
name: 'ChangeLists' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2337 |
layout: (LayoutFrame 0 0.0 22 0 105 0 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2338 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2339 |
model: changeListsFont |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2340 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2341 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2342 |
name: 'Separator8' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2343 |
layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1) |
4310 | 2344 |
) |
2345 |
) |
|
2346 |
||
2347 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2348 |
extent: (Point 490 50) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2349 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2350 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2351 |
name: 'MenusBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2352 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2353 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2354 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2355 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2356 |
label: 'Menus' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2357 |
name: 'Menus' |
5540 | 2358 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2359 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2360 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2361 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2362 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2363 |
label: 'Menus Font' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2364 |
name: 'MenusFont' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2365 |
layout: (LayoutFrame 105 0 22 0 -5 1 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2366 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2367 |
labelChannel: menusFontLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2368 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2369 |
postBuildCallback: postBuildMenuesFontLabel: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2370 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2371 |
(ActionButtonSpec |
5540 | 2372 |
label: 'Change...' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2373 |
name: 'ChangeMenus' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2374 |
layout: (LayoutFrame 0 0.0 22 0 105 0 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2375 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2376 |
model: changeMenusFont |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2377 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2378 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2379 |
name: 'Separator9' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2380 |
layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1) |
4310 | 2381 |
) |
2382 |
) |
|
2383 |
||
2384 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2385 |
extent: (Point 490 50) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2386 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2387 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2388 |
name: 'TextBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2389 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2390 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2391 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2392 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2393 |
label: 'Text' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2394 |
name: 'Text' |
5540 | 2395 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2396 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2397 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2398 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2399 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2400 |
label: 'Text Font' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2401 |
name: 'TextFont' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2402 |
layout: (LayoutFrame 105 0 22 0 -5 1 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2403 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2404 |
labelChannel: textFontLabelHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2405 |
adjust: left |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2406 |
postBuildCallback: postBuildTextFontLabel: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2407 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2408 |
(ActionButtonSpec |
5540 | 2409 |
label: 'Change...' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2410 |
name: 'ChangeText' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2411 |
layout: (LayoutFrame 0 0.0 22 0 105 0 44 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2412 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2413 |
model: changeTextFont |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2414 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2415 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2416 |
name: 'Separator10' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2417 |
layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1) |
4310 | 2418 |
) |
2419 |
) |
|
2420 |
||
2421 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2422 |
extent: (Point 490 50) |
4286 | 2423 |
) |
2424 |
) |
|
2425 |
||
2426 |
) |
|
2427 |
) |
|
2428 |
) |
|
2429 |
||
2430 |
) |
|
2431 |
) |
|
2432 |
! ! |
|
2433 |
||
2434 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'! |
|
2435 |
||
2436 |
encodingMatch:aEncodingMatch |
|
2437 |
||
2438 |
aEncodingMatch notNil ifTrue:[ |
|
2439 |
filter := [:f | f encoding notNil |
|
2440 |
and:[aEncodingMatch match:f encoding]]. |
|
2441 |
]. |
|
2442 |
! ! |
|
2443 |
||
2444 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'! |
|
2445 |
||
4574 | 2446 |
basicSaveSettings |
5464 | 2447 |
|fn| |
4574 | 2448 |
|
2449 |
Label defaultFont:self labelDef value. |
|
5551 | 2450 |
|
2451 |
fn := self buttonDef value. |
|
2452 |
Button defaultFont:fn. |
|
2453 |
Toggle defaultFont:fn. |
|
2454 |
||
2455 |
fn := self textDef value. |
|
2456 |
TextView withAllSubclasses do:[:cls | cls defaultFont:fn]. |
|
2457 |
||
2458 |
fn := self listDef value. |
|
2459 |
SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:fn]. |
|
2460 |
||
5464 | 2461 |
fn := self menuDef value. |
5551 | 2462 |
ListView defaultFont:fn. |
5464 | 2463 |
MenuView defaultFont:fn. |
2464 |
MenuPanel defaultFont:fn. |
|
2465 |
NoteBookView defaultFont:fn. |
|
5551 | 2466 |
PullDownMenu defaultFont:fn. |
4574 | 2467 |
! |
2468 |
||
4286 | 2469 |
changeAllFont |
2470 |
|f| |
|
2471 |
||
2472 |
f := FontPanel |
|
2473 |
fontFromUserInitial:(self allOfThem value) |
|
2474 |
title:(resources string:'Font for %1' with:'All') |
|
2475 |
filter:filter. |
|
2476 |
f notNil ifTrue:[ |
|
4658 | 2477 |
self allOfThem value:(f onDevice:allLabel device). |
2478 |
self labelDef value:(f onDevice:labelLabel device). |
|
2479 |
self buttonDef value:(f onDevice:buttonsLabel device). |
|
2480 |
self listDef value:(f onDevice:listsLabel device). |
|
2481 |
self menuDef value:(f onDevice:menuLabel device). |
|
2482 |
self textDef value:(f onDevice:textLabel device). |
|
4286 | 2483 |
] |
2484 |
! |
|
2485 |
||
2486 |
changeButtonsFont |
|
2487 |
||
2488 |
|f| |
|
2489 |
||
2490 |
f := FontPanel |
|
4658 | 2491 |
fontFromUserInitial:(self buttonDef value) |
4286 | 2492 |
title:(resources string:'Font for %1' with:'All') |
2493 |
filter:filter. |
|
2494 |
f notNil ifTrue:[ |
|
4658 | 2495 |
self buttonDef value:(f onDevice:buttonsLabel device). |
4286 | 2496 |
] |
2497 |
! |
|
2498 |
||
2499 |
changeLabelsFont |
|
4398 | 2500 |
|f | |
4286 | 2501 |
|
2502 |
f := FontPanel |
|
2503 |
fontFromUserInitial:(self labelDef value) |
|
2504 |
title:(resources string:'Font for %1' with:'Labels') |
|
2505 |
filter:filter. |
|
2506 |
f notNil ifTrue:[ |
|
4658 | 2507 |
self labelDef value:(f onDevice:labelLabel device). |
4398 | 2508 |
]. |
4286 | 2509 |
! |
2510 |
||
2511 |
changeListsFont |
|
2512 |
|f| |
|
2513 |
||
2514 |
f := FontPanel |
|
2515 |
fontFromUserInitial:(self listDef value) |
|
2516 |
title:(resources string:'Font for %1' with:'Lists') |
|
2517 |
filter:filter. |
|
2518 |
f notNil ifTrue:[ |
|
4658 | 2519 |
self listDef value:(f onDevice:listsLabel device). |
4286 | 2520 |
] |
2521 |
! |
|
2522 |
||
2523 |
changeMenusFont |
|
2524 |
|f| |
|
2525 |
||
2526 |
f := FontPanel |
|
2527 |
fontFromUserInitial:(self menuDef value) |
|
2528 |
title:(resources string:'Font for %1' with:'Menus') |
|
2529 |
filter:filter. |
|
2530 |
f notNil ifTrue:[ |
|
4658 | 2531 |
self menuDef value:(f onDevice:menuLabel device). |
4286 | 2532 |
] |
2533 |
! |
|
2534 |
||
2535 |
changeTextFont |
|
2536 |
|f| |
|
2537 |
||
2538 |
f := FontPanel |
|
2539 |
fontFromUserInitial:(self textDef value) |
|
2540 |
title:(resources string:'Font for %1' with:'Edited Text') |
|
2541 |
filter:filter. |
|
2542 |
f notNil ifTrue:[ |
|
4658 | 2543 |
self textDef value:(f onDevice:textLabel device). |
4286 | 2544 |
] |
2545 |
! |
|
2546 |
||
5101 | 2547 |
helpFilename |
2548 |
^ 'Launcher/fontSettings.html' |
|
4286 | 2549 |
! |
2550 |
||
4574 | 2551 |
readSettings |
5448
93dda6ed83a2
readStyleSheetAndUpdateAllStyleCaches not for every read settings
penk
parents:
5441
diff
changeset
|
2552 |
"/ View readStyleSheetAndUpdateAllStyleCaches. |
4286 | 2553 |
self labelDef value:Label defaultFont. |
2554 |
self buttonDef value:Button defaultFont. |
|
2555 |
self listDef value:SelectionInListView defaultFont. |
|
2556 |
self menuDef value:MenuView defaultFont. |
|
2557 |
self textDef value:TextView defaultFont. |
|
4574 | 2558 |
self modifiedChannel value:false |
4286 | 2559 |
! ! |
2560 |
||
2561 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'! |
|
2562 |
||
2563 |
allFontLabelHolder |
|
2564 |
||
2565 |
allFontLabelHolder isNil ifTrue:[ |
|
2566 |
allFontLabelHolder := '' asValue. |
|
2567 |
]. |
|
2568 |
^ allFontLabelHolder. |
|
2569 |
! |
|
2570 |
||
2571 |
allOfThem |
|
2572 |
"return/create the 'allOfThem' value holder (automatically generated)" |
|
2573 |
||
2574 |
allOfThem isNil ifTrue:[ |
|
2575 |
allOfThem := ValueHolder new. |
|
2576 |
allOfThem addDependent:self. |
|
2577 |
]. |
|
2578 |
^ allOfThem |
|
2579 |
! |
|
2580 |
||
2581 |
buttonDef |
|
2582 |
"return/create the 'buttonDef' value holder (automatically generated)" |
|
2583 |
||
2584 |
buttonDef isNil ifTrue:[ |
|
2585 |
buttonDef := ValueHolder new. |
|
2586 |
buttonDef addDependent:self. |
|
2587 |
]. |
|
2588 |
^ buttonDef |
|
2589 |
! |
|
2590 |
||
2591 |
buttonsFontLabelHolder |
|
2592 |
||
2593 |
buttonsFontLabelHolder isNil ifTrue:[ |
|
4658 | 2594 |
buttonsFontLabelHolder := '' asValue. |
4286 | 2595 |
]. |
2596 |
^ buttonsFontLabelHolder. |
|
2597 |
! |
|
2598 |
||
2599 |
labelDef |
|
2600 |
"return/create the 'labelDef' value holder (automatically generated)" |
|
2601 |
||
2602 |
labelDef isNil ifTrue:[ |
|
2603 |
labelDef := ValueHolder new. |
|
2604 |
labelDef addDependent:self. |
|
2605 |
]. |
|
2606 |
^ labelDef |
|
2607 |
! |
|
2608 |
||
2609 |
labelsFontLabelHolder |
|
2610 |
||
2611 |
labelsFontLabelHolder isNil ifTrue:[ |
|
4658 | 2612 |
labelsFontLabelHolder := '' asValue. |
4286 | 2613 |
]. |
2614 |
^ labelsFontLabelHolder. |
|
2615 |
! |
|
2616 |
||
2617 |
listDef |
|
2618 |
"return/create the 'listDef' value holder (automatically generated)" |
|
2619 |
||
2620 |
listDef isNil ifTrue:[ |
|
2621 |
listDef := ValueHolder new. |
|
2622 |
listDef addDependent:self. |
|
2623 |
]. |
|
2624 |
^ listDef |
|
2625 |
! |
|
2626 |
||
2627 |
listsFontLabelHolder |
|
2628 |
||
2629 |
listsFontLabelHolder isNil ifTrue:[ |
|
4658 | 2630 |
listsFontLabelHolder := '' asValue. |
4286 | 2631 |
]. |
2632 |
^ listsFontLabelHolder. |
|
2633 |
! |
|
2634 |
||
2635 |
menuDef |
|
2636 |
"return/create the 'menuDef' value holder (automatically generated)" |
|
2637 |
||
2638 |
menuDef isNil ifTrue:[ |
|
2639 |
menuDef := ValueHolder new. |
|
2640 |
menuDef addDependent:self. |
|
2641 |
]. |
|
2642 |
^ menuDef |
|
2643 |
! |
|
2644 |
||
2645 |
menusFontLabelHolder |
|
2646 |
||
2647 |
menusFontLabelHolder isNil ifTrue:[ |
|
4658 | 2648 |
menusFontLabelHolder := '' asValue. |
4286 | 2649 |
]. |
2650 |
^ menusFontLabelHolder. |
|
2651 |
! |
|
2652 |
||
2653 |
textDef |
|
2654 |
"return/create the 'textDef' value holder (automatically generated)" |
|
2655 |
||
2656 |
textDef isNil ifTrue:[ |
|
2657 |
textDef := ValueHolder new. |
|
2658 |
textDef addDependent:self. |
|
2659 |
]. |
|
2660 |
^ textDef |
|
2661 |
! |
|
2662 |
||
2663 |
textFontLabelHolder |
|
2664 |
||
2665 |
textFontLabelHolder isNil ifTrue:[ |
|
4658 | 2666 |
textFontLabelHolder := '' asValue. |
4286 | 2667 |
]. |
2668 |
^ textFontLabelHolder. |
|
2669 |
! ! |
|
2670 |
||
2671 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'! |
|
2672 |
||
2673 |
update:something with:aParameter from:changedObject |
|
4574 | 2674 |
builder notNil ifTrue:[ |
2675 |
changedObject == self allOfThem ifTrue:[ |
|
2676 |
self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject. |
|
2677 |
^ self. |
|
2678 |
]. |
|
2679 |
changedObject == self labelDef ifTrue:[ |
|
2680 |
self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject. |
|
2681 |
^ self. |
|
4286 | 2682 |
]. |
4574 | 2683 |
changedObject == self buttonDef ifTrue:[ |
2684 |
self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject. |
|
2685 |
^ self. |
|
2686 |
]. |
|
2687 |
changedObject == self listDef ifTrue:[ |
|
2688 |
self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject. |
|
2689 |
^ self. |
|
4286 | 2690 |
]. |
4574 | 2691 |
changedObject == self menuDef ifTrue:[ |
2692 |
self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject. |
|
2693 |
^ self. |
|
2694 |
]. |
|
2695 |
changedObject == self textDef ifTrue:[ |
|
2696 |
self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject. |
|
2697 |
^ self. |
|
4286 | 2698 |
]. |
4574 | 2699 |
]. |
4286 | 2700 |
super update:something with:aParameter from:changedObject |
4574 | 2701 |
! |
2702 |
||
2703 |
updateAllFontLabels |
|
2704 |
self update:#value with:nil from:self allOfThem. |
|
2705 |
self update:#value with:nil from:self labelDef. |
|
2706 |
self update:#value with:nil from:self buttonDef. |
|
2707 |
self update:#value with:nil from:self listDef. |
|
2708 |
self update:#value with:nil from:self menuDef. |
|
2709 |
self update:#value with:nil from:self textDef. |
|
2710 |
! |
|
2711 |
||
2712 |
updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject |
|
5041 | 2713 |
|f label| |
4574 | 2714 |
|
2715 |
f := changedObject value. |
|
2716 |
labelWidget font:f. |
|
2717 |
label := f isNil ifTrue:[ |
|
5041 | 2718 |
'' |
2719 |
] ifFalse:[ |
|
2720 |
f userFriendlyName |
|
2721 |
]. |
|
4574 | 2722 |
fontNameHolder value:label. |
5041 | 2723 |
self updateModifiedChannel |
4286 | 2724 |
! ! |
2725 |
||
2726 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'! |
|
2727 |
||
2728 |
postBuildAllFontLabel:aWidget |
|
2729 |
||
2730 |
allLabel := aWidget. |
|
2731 |
! |
|
2732 |
||
2733 |
postBuildButtonsFontLabel:aWidget |
|
2734 |
||
2735 |
buttonsLabel := aWidget. |
|
2736 |
! |
|
2737 |
||
2738 |
postBuildLabelsFontLabel:aWidget |
|
2739 |
||
2740 |
labelLabel := aWidget. |
|
2741 |
! |
|
2742 |
||
2743 |
postBuildListsFontLabel:aWidget |
|
2744 |
||
2745 |
listsLabel := aWidget. |
|
2746 |
! |
|
2747 |
||
2748 |
postBuildMenuesFontLabel:aWidget |
|
2749 |
||
2750 |
menuLabel := aWidget. |
|
2751 |
! |
|
2752 |
||
2753 |
postBuildTextFontLabel:aWidget |
|
2754 |
||
2755 |
textLabel := aWidget. |
|
2756 |
! |
|
2757 |
||
4574 | 2758 |
postBuildWith:aBuilder |
2759 |
"/ self readSettings. |
|
2760 |
self updateAllFontLabels. |
|
4438 | 2761 |
super postBuildWith:aBuilder |
4286 | 2762 |
! ! |
2763 |
||
2764 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'! |
|
2765 |
||
2766 |
hasUnsavedChanges |
|
5918 | 2767 |
self labelDef value ~= Label defaultFont ifTrue:[^ true]. |
2768 |
self buttonDef value ~= Button defaultFont ifTrue:[^ true]. |
|
2769 |
self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true]. |
|
2770 |
self menuDef value ~= MenuView defaultFont ifTrue:[^ true]. |
|
2771 |
self textDef value ~= TextView defaultFont ifTrue:[^ true]. |
|
2772 |
^ false |
|
4286 | 2773 |
! ! |
2774 |
||
4387 | 2775 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'! |
2776 |
||
2777 |
keepSourceOptions |
|
2778 |
||
2779 |
^ #( keep reference absReference sourceReference discard ) |
|
2780 |
! |
|
2781 |
||
2782 |
keepSourceStrings |
|
2783 |
||
2784 |
^ #('Keep as String' 'Reference to Filename' 'Reference to Full Path' 'Append and Ref in `st.src''' 'Discard' ) |
|
2785 |
! ! |
|
2786 |
||
2787 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'! |
|
2788 |
||
2789 |
defaultIcon |
|
2790 |
"This resource specification was automatically generated |
|
2791 |
by the ImageEditor of ST/X." |
|
2792 |
||
2793 |
"Do not manually edit this!! If it is corrupted, |
|
2794 |
the ImageEditor may not be able to read the specification." |
|
2795 |
||
2796 |
" |
|
2797 |
self defaultIcon inspect |
|
2798 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
2799 |
Icon flushCachedIcons |
|
2800 |
" |
|
2801 |
||
2802 |
<resource: #image> |
|
2803 |
||
2804 |
^Icon |
|
2805 |
constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon' |
|
4948 | 2806 |
ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@C@@@@G.=0G.=0D*%PG.=0@@@@G??0GC#0G]]0G]_0GC_0G]_3G]]0GC#0G??3@@@A@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself] |
4387 | 2807 |
! ! |
2808 |
||
2809 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'! |
|
2810 |
||
2811 |
windowSpec |
|
2812 |
"This resource specification was automatically generated |
|
2813 |
by the UIPainter of ST/X." |
|
2814 |
||
2815 |
"Do not manually edit this!! If it is corrupted, |
|
2816 |
the UIPainter may not be able to read the specification." |
|
2817 |
||
2818 |
" |
|
2819 |
UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec |
|
2820 |
AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec |
|
2821 |
AbstractSettingsApplication::GeneralCompilerSettingsAppl open |
|
2822 |
" |
|
2823 |
||
2824 |
<resource: #canvas> |
|
2825 |
||
2826 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2827 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2828 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2829 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2830 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2831 |
label: 'General Compiler Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2832 |
name: 'General Compiler Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2833 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2834 |
max: (Point 1024 768) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2835 |
bounds: (Rectangle 14 46 614 366) |
4387 | 2836 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2837 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2838 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2839 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2840 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2841 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2842 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2843 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2844 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2845 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2846 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2847 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2848 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2849 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2850 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2851 |
label: 'Catch Method Redefinitions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2852 |
name: 'CatchMethodRedefinitions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2853 |
model: catchMethodRedefs |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2854 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2855 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2856 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2857 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2858 |
label: 'Catch Class Redefinitions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2859 |
name: 'CatchClassRedefinitions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2860 |
model: catchClassRedefs |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2861 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2862 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2863 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2864 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2865 |
label: 'Keep History Line in Methods' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2866 |
name: 'KeepHistoryLineinMethods' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2867 |
model: historyLines |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2868 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2869 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2870 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2871 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2872 |
label: 'Keep Full Class History' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2873 |
name: 'KeepFullClassHistory' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2874 |
enableChannel: hasHistoryManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2875 |
model: fullHistoryUpdate |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2876 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2877 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2878 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2879 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2880 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2881 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2882 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2883 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2884 |
(PopUpListSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2885 |
label: 'PopUp List' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2886 |
name: 'KeepSourceSelection' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2887 |
layout: (LayoutFrame 200 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2888 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2889 |
model: keepSourceSelection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2890 |
menu: keepSource |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2891 |
useIndex: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2892 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2893 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2894 |
label: 'FileIn Source Mode:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2895 |
name: 'FileInSourceModeLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2896 |
layout: (LayoutFrame 0 0 0 0 200 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2897 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2898 |
adjust: right |
4387 | 2899 |
) |
2900 |
) |
|
2901 |
||
2902 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2903 |
extent: (Point 600 30) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2904 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2905 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2906 |
name: 'Separator1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2907 |
extent: (Point 600 3) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2908 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2909 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2910 |
label: 'If Present, Load Binary Objects when Autoloading' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2911 |
name: 'LoadBinaryObjectsWhenAutoloading' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2912 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2913 |
model: loadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2914 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
2915 |
extent: (Point 600 25) |
4387 | 2916 |
) |
2917 |
) |
|
2918 |
||
2919 |
) |
|
2920 |
) |
|
2921 |
) |
|
2922 |
||
2923 |
) |
|
2924 |
) |
|
2925 |
! ! |
|
2926 |
||
2927 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'! |
|
2928 |
||
4574 | 2929 |
basicSaveSettings |
2930 |
||
2931 |
ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value). |
|
2932 |
Class catchClassRedefinitions:self catchClassRedefs value. |
|
2933 |
Class catchMethodRedefinitions:self catchMethodRedefs value. |
|
2934 |
HistoryManager notNil ifTrue:[ |
|
2935 |
HistoryManager fullHistoryUpdate:self fullHistoryUpdate value. |
|
2936 |
self historyLines value ifTrue:[ |
|
2937 |
HistoryManager activate |
|
2938 |
] ifFalse:[ |
|
2939 |
HistoryManager deactivate |
|
2940 |
]. |
|
2941 |
]. |
|
2942 |
Smalltalk loadBinaries:self loadBinaries value. |
|
2943 |
! |
|
2944 |
||
5101 | 2945 |
helpFilename |
2946 |
^ 'Launcher/compilerSettings.html' |
|
4387 | 2947 |
! |
2948 |
||
4574 | 2949 |
readSettings |
2950 |
self keepSourceSelection value:(self class keepSourceOptions |
|
2951 |
indexOf:ClassCategoryReader sourceMode |
|
2952 |
ifAbsent:1). |
|
4387 | 2953 |
self catchClassRedefs value:(Class catchClassRedefinitions ? false). |
2954 |
self catchMethodRedefs value:(Class catchMethodRedefinitions ? false). |
|
4574 | 2955 |
self canLoadBinaries ifTrue:[ |
2956 |
self loadBinaries value:Smalltalk loadBinaries |
|
4387 | 2957 |
] ifFalse:[ |
2958 |
self loadBinaries value:false |
|
2959 |
]. |
|
2960 |
self hasHistoryManager ifTrue:[ |
|
4574 | 2961 |
self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false) |
4387 | 2962 |
] ifFalse:[ |
4574 | 2963 |
self fullHistoryUpdate value:false |
4387 | 2964 |
]. |
2965 |
self historyLines value:self hasHistoryManager. |
|
4574 | 2966 |
self modifiedChannel value:false |
4387 | 2967 |
! ! |
2968 |
||
2969 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'! |
|
2970 |
||
2971 |
canLoadBinaries |
|
2972 |
||
2973 |
canLoadBinaries isNil ifTrue:[ |
|
2974 |
canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue. |
|
2975 |
]. |
|
2976 |
^ canLoadBinaries. |
|
2977 |
! |
|
2978 |
||
2979 |
catchClassRedefs |
|
2980 |
||
2981 |
catchClassRedefs isNil ifTrue:[ |
|
2982 |
catchClassRedefs := (Class catchClassRedefinitions ? false) asValue. |
|
5041 | 2983 |
catchClassRedefs onChangeSend:#updateModifiedChannel to:self. |
4387 | 2984 |
]. |
2985 |
^ catchClassRedefs. |
|
2986 |
! |
|
2987 |
||
2988 |
catchMethodRedefs |
|
2989 |
||
2990 |
catchMethodRedefs isNil ifTrue:[ |
|
2991 |
catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue. |
|
5041 | 2992 |
catchMethodRedefs onChangeSend:#updateModifiedChannel to:self. |
4387 | 2993 |
]. |
2994 |
^ catchMethodRedefs. |
|
2995 |
! |
|
2996 |
||
2997 |
fullHistoryUpdate |
|
2998 |
||
2999 |
fullHistoryUpdate isNil ifTrue:[ |
|
3000 |
self hasHistoryManager ifTrue:[ |
|
3001 |
fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue. |
|
3002 |
] ifFalse:[ |
|
3003 |
fullHistoryUpdate := false asValue. |
|
3004 |
]. |
|
5041 | 3005 |
fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self. |
4387 | 3006 |
]. |
3007 |
^ fullHistoryUpdate. |
|
3008 |
! |
|
3009 |
||
3010 |
hasHistoryManager |
|
3011 |
||
3012 |
^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]] |
|
3013 |
! |
|
3014 |
||
5041 | 3015 |
historyLines |
4387 | 3016 |
|
3017 |
historyLines isNil ifTrue:[ |
|
3018 |
historyLines := self hasHistoryManager asValue. |
|
5041 | 3019 |
historyLines onChangeSend:#updateModifiedChannel to:self. |
4387 | 3020 |
]. |
3021 |
^ historyLines. |
|
3022 |
! |
|
3023 |
||
3024 |
keepSource |
|
3025 |
||
3026 |
keepSource isNil ifTrue:[ |
|
3027 |
keepSource := (resources array:(self class keepSourceStrings)) asList. |
|
3028 |
]. |
|
3029 |
^ keepSource. |
|
3030 |
! |
|
3031 |
||
3032 |
keepSourceSelection |
|
3033 |
||
3034 |
keepSourceSelection isNil ifTrue:[ |
|
3035 |
keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue. |
|
5041 | 3036 |
keepSourceSelection onChangeSend:#updateModifiedChannel to:self. |
4387 | 3037 |
]. |
3038 |
^ keepSourceSelection. |
|
3039 |
! |
|
3040 |
||
3041 |
loadBinaries |
|
3042 |
||
3043 |
loadBinaries isNil ifTrue:[ |
|
3044 |
self canLoadBinaries ifTrue:[ |
|
3045 |
loadBinaries:= Smalltalk loadBinaries asValue |
|
3046 |
] ifFalse:[ |
|
3047 |
loadBinaries:= false asValue |
|
3048 |
]. |
|
5041 | 3049 |
loadBinaries onChangeSend:#updateModifiedChannel to:self. |
4387 | 3050 |
]. |
3051 |
^ loadBinaries. |
|
3052 |
! ! |
|
3053 |
||
3054 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'! |
|
3055 |
||
3056 |
hasUnsavedChanges |
|
5918 | 3057 |
((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true]. |
3058 |
((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) ifTrue:[^ true]. |
|
3059 |
((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true]. |
|
3060 |
((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true]. |
|
3061 |
((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true]. |
|
3062 |
((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true]. |
|
3063 |
^ false. |
|
4387 | 3064 |
! ! |
3065 |
||
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3066 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3067 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3068 |
defaultIcon |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3069 |
"This resource specification was automatically generated |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3070 |
by the ImageEditor of ST/X." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3071 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3072 |
"Do not manually edit this!! If it is corrupted, |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3073 |
the ImageEditor may not be able to read the specification." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3074 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3075 |
" |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3076 |
self defaultIcon inspect |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3077 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3078 |
Icon flushCachedIcons |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3079 |
" |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3080 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3081 |
<resource: #image> |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3082 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3083 |
^Icon |
4948 | 3084 |
constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon' |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3085 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
4948 | 3086 |
@@@@@@DB@0PC@0HBAP@@@@@@@@@@@@@@@@TFA0 IB ,KB00E@@@@@@@@@@@@@@4NC1@QD!!LKB08KE@T@@@@@@@@@@@TUE!!\PDA@XFQ(NF10]AP@@@@@@@@DF |
3087 |
BQ8PDA@PDAH_E $HE"@@@@@@@@@BHP$VDA@PB00"H2P$IRX''J@@@@@@@JR(WG!!@PB2,+J2,+J2,+J2,+@@@@@@P,DA@PDB,-K"4-K2</K24(L@@@@@@1L#L3 |
|
3088 |
DQ@+K"8.K"84MR86AS@@@@@@M3 IBP 9J28:N3,<OC4(O T0@@@@@C<*BP$IPB,6O#8>O#8>O#XEL@@@@@@APSHIBQ\+K"8.K"8.KR >AS@@@@@@K!!P2BQ8P |
|
3089 |
J28.K"8.K" (M T0@@@@@@@-EDHQDB-CP4MCP4MCP4PEL@@@@@@@@B9EQ!!@+KT\:N#(:N"4.AS@@@@@@@@@@K$!!IJ29JK2</K2<-M T0@@@@@@@@@@@@K",. |
|
3090 |
K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8( |
|
3091 |
JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a') ; colorMapFromArray:#[0 0 0 144 144 144 112 144 112 16 96 16 0 80 0 128 128 128 0 144 0 0 112 64 0 224 16 0 240 0 0 64 160 16 16 224 64 64 192 128 144 128 0 160 0 0 208 32 0 0 240 0 32 208 0 112 128 0 0 224 48 48 96 0 128 32 0 96 128 0 80 160 0 16 224 0 208 0 64 112 64 32 128 32 0 96 112 48 48 112 0 96 144 0 192 32 48 48 64 0 192 0 64 112 144 64 96 144 64 192 64 64 160 96 64 128 112 80 96 80 160 160 160 16 32 64 0 48 192 96 96 96 0 160 80 208 208 208 192 192 192 224 224 224 48 48 48 0 16 48 0 64 176 0 176 64 192 176 192 176 192 176 176 176 176 0 0 80 0 144 80 0 32 192 16 16 16 208 192 208 208 144 144 96 192 96 176 160 176 48 48 128 0 112 112 0 0 144 0 144 64 160 160 64 144 144 80 48 112 48 0 0 208 208 208 224 48 48 80 32 32 144 224 208 224 176 176 224 176 176 240 192 176 208]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<@??<@??>@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself] |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3092 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3093 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3094 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3095 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3096 |
windowSpec |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3097 |
"This resource specification was automatically generated |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3098 |
by the UIPainter of ST/X." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3099 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3100 |
"Do not manually edit this!! If it is corrupted, |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3101 |
the UIPainter may not be able to read the specification." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3102 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3103 |
" |
4726 | 3104 |
UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec |
3105 |
AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec |
|
3106 |
AbstractSettingsApplication::HTTPStartServerSettingsApplication open |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3107 |
" |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3108 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3109 |
<resource: #canvas> |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3110 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3111 |
^ |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3112 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3113 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3114 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3115 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3116 |
label: 'HTTP Server Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3117 |
name: 'HTTP Server Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3118 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3119 |
bounds: (Rectangle 14 46 553 676) |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3120 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3121 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3122 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3123 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3124 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3125 |
name: 'VerticalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3126 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3127 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3128 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3129 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3130 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3131 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3132 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3133 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3134 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3135 |
name: 'VerticalPanel4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3136 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3137 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3138 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3139 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3140 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3141 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3142 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3143 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3144 |
name: 'Box19' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3145 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3146 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3147 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3148 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3149 |
label: 'Label' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3150 |
name: 'Label2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3151 |
layout: (LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3152 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3153 |
labelChannel: informationLabel |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3154 |
resizeForLabel: false |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3155 |
adjust: left |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3156 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3157 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3158 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3159 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3160 |
extent: (Point 539 200) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3161 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3162 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3163 |
name: 'Box18' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3164 |
extent: (Point 539 20) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3165 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3166 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3167 |
name: 'Box17' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3168 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3169 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3170 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3171 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3172 |
label: 'Port:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3173 |
name: 'Label1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3174 |
layout: (LayoutFrame 3 0 21 0 40 0 43 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3175 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3176 |
adjust: right |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3177 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3178 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3179 |
name: 'EntryField1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3180 |
layout: (LayoutFrame 40 0 20 0 100 0 42 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3181 |
model: portNumberChannel |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3182 |
type: number |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3183 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3184 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3185 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3186 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3187 |
acceptOnPointerLeave: false |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3188 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3189 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3190 |
label: 'Create new HTTP Server' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3191 |
name: 'Button4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3192 |
layout: (LayoutFrame 125 0 20 0 -5 1 42 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3193 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3194 |
model: createServer |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3195 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3196 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3197 |
label: 'Create Server from Settingsfile...' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3198 |
name: 'Button6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3199 |
layout: (LayoutFrame 125 0 51 0 -5 1 73 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3200 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3201 |
model: createServerFromFile |
5049 | 3202 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3203 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3204 |
label: 'Remove all HTTP Servers' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3205 |
name: 'Button5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3206 |
layout: (LayoutFrame 125 0 82 0 -5 1 104 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3207 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3208 |
model: removeAllServers |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3209 |
enableChannel: hasCreatedServerChannel |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3210 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3211 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3212 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3213 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3214 |
extent: (Point 539 120) |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3215 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3216 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3217 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3218 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3219 |
extent: (Point 539 620) |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3220 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3221 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3222 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3223 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3224 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3225 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3226 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3227 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3228 |
) |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3229 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3230 |
|
5346 | 3231 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'! |
3232 |
||
3233 |
addCreatedServer:aServer |
|
3234 |
self createdServers add:aServer. |
|
3235 |
! |
|
3236 |
||
3237 |
createdServers |
|
3238 |
CreatedServers isNil ifTrue:[ |
|
3239 |
CreatedServers := Set new. |
|
3240 |
]. |
|
3241 |
^ CreatedServers |
|
3242 |
! |
|
3243 |
||
3244 |
removeAllCreatedServer |
|
3245 |
self createdServers removeAll. |
|
3246 |
! |
|
3247 |
||
3248 |
removeCreatedServer:aServer |
|
5355 | 3249 |
self createdServers remove:aServer ifAbsent:nil. |
5346 | 3250 |
! ! |
3251 |
||
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3252 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3253 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3254 |
basicSaveSettings |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3255 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3256 |
^ self |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3257 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3258 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3259 |
createServer |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3260 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3261 |
| newServer port runningServers| |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3262 |
|
5387 | 3263 |
self withWaitCursorDo:[ |
3264 |
port := self portNumberChannel value. |
|
3265 |
runningServers := HTTPServer runningServers. |
|
3266 |
runningServers notEmpty ifTrue:[ |
|
3267 |
runningServers do:[:aServer | |
|
3268 |
aServer port = port asInteger ifTrue:[ |
|
3269 |
Dialog warn:'There is already a Server for port ', port asString. |
|
3270 |
^ self |
|
3271 |
] |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3272 |
] |
5387 | 3273 |
]. |
3274 |
runningServers addDependent:self. |
|
3275 |
||
5214
3d2819b038bd
server inserts default services only for default server
penk
parents:
5212
diff
changeset
|
3276 |
(port = HTTPServer defaultPort) ifTrue:[ |
3d2819b038bd
server inserts default services only for default server
penk
parents:
5212
diff
changeset
|
3277 |
newServer := HTTPServer newServerWithDefaultServiceListOn:port. |
3d2819b038bd
server inserts default services only for default server
penk
parents:
5212
diff
changeset
|
3278 |
] ifFalse:[ |
3d2819b038bd
server inserts default services only for default server
penk
parents:
5212
diff
changeset
|
3279 |
newServer := HTTPServer newServerOnPort:port. |
3d2819b038bd
server inserts default services only for default server
penk
parents:
5212
diff
changeset
|
3280 |
]. |
5346 | 3281 |
self class addCreatedServer:newServer. |
4893 | 3282 |
self createServerApplicationFor:newServer. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3283 |
] |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3284 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3285 |
|
4893 | 3286 |
createServerApplicationFor:aServerInstance |
4899 | 3287 |
|settingsApp itemPathName newItem openApps| |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3288 |
|
5031 | 3289 |
openApps := self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl. |
4899 | 3290 |
(openApps contains:[:app | app httpServerInstance == aServerInstance]) ifTrue:[ |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3291 |
" already have an Item for this application " |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3292 |
^ self |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3293 |
]. |
4899 | 3294 |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3295 |
settingsApp := HTTPServerSettingsAppl basicNew. |
5031 | 3296 |
settingsApp settingsDialog:self settingsDialog. |
4893 | 3297 |
settingsApp httpServerInstance:aServerInstance. |
5038 | 3298 |
settingsApp defaultSettingsApplication:false. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3299 |
settingsApp basicInitialize. |
5044 | 3300 |
itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog. |
5038 | 3301 |
newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3302 |
newItem application:settingsApp. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3303 |
self createdServerChanged. |
5038 | 3304 |
self settingsDialog expandItemForApplication:self. |
5280 | 3305 |
settingsApp readSettings. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3306 |
settingsApp initialize. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3307 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3308 |
|
5049 | 3309 |
createServerFromFile |
3310 |
||
5055 | 3311 |
| newServer fileName runningServers newServerPort answer| |
5049 | 3312 |
|
3313 |
runningServers := HTTPServer runningServers. |
|
3314 |
fileName := Dialog requestFileName:'Select a HTTPServer Settings File' |
|
3315 |
default:(HTTPServer settingsFilename) |
|
3316 |
pattern:'*xml' |
|
3317 |
fromDirectory:(Filename currentDirectory). |
|
3318 |
fileName isEmptyOrNil ifTrue:[ ^ self]. |
|
5055 | 3319 |
self withWaitCursorDo:[ |
3320 |
newServer := HTTPServer serverFromSettingsFile:(fileName asFilename). |
|
3321 |
newServer notNil ifTrue:[ |
|
3322 |
newServerPort := newServer port. |
|
3323 |
runningServers notEmpty ifTrue:[ |
|
3324 |
[self hasServerForPort:newServerPort] whileTrue:[ |
|
3325 |
answer := Dialog |
|
3326 |
request:('There is already a Server for port ', newServerPort asString, ' Please select another one') |
|
3327 |
initialAnswer:self portNumberChannel value asString. |
|
3328 |
answer isEmpty ifTrue:[ |
|
3329 |
^ self |
|
3330 |
]. |
|
3331 |
newServerPort := answer asNumber. |
|
5049 | 3332 |
] |
5055 | 3333 |
]. |
3334 |
newServer port:newServerPort. |
|
3335 |
runningServers addDependent:self. |
|
5346 | 3336 |
self class addCreatedServer:newServer. |
5055 | 3337 |
self createServerApplicationFor:newServer. |
5049 | 3338 |
]. |
3339 |
]. |
|
3340 |
! |
|
3341 |
||
4899 | 3342 |
createServerSubApplicationsForRunningServers |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3343 |
|
5346 | 3344 |
|runningServers serverToStart| |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3345 |
|
4883
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3346 |
HTTPServer isLoaded ifFalse:[ ^ self]. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3347 |
|
5346 | 3348 |
runningServers := HTTPServer runningServers. |
3349 |
serverToStart := runningServers asSet. |
|
3350 |
serverToStart addAll:self class createdServers. |
|
3351 |
serverToStart isEmpty ifTrue:[ ^ self]. |
|
3352 |
serverToStart := serverToStart asOrderedCollection. |
|
3353 |
serverToStart sort:[:a :b | a port < b port]. |
|
3354 |
serverToStart do:[:aHttpServerInstance | |
|
4893 | 3355 |
self createServerApplicationFor:aHttpServerInstance. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3356 |
] |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3357 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3358 |
|
5055 | 3359 |
hasServerForPort:newServerPort |
3360 |
||
3361 |
HTTPServer runningServers do:[:aServer | |
|
3362 |
aServer port = newServerPort ifTrue:[ |
|
3363 |
^ true |
|
3364 |
] |
|
3365 |
]. |
|
3366 |
^ false |
|
3367 |
! |
|
3368 |
||
5101 | 3369 |
helpFilename |
5362
12d488573309
helpFilename in httpStartServerSettings
Claus Gittinger <cg@exept.de>
parents:
5355
diff
changeset
|
3370 |
^ 'HTTPServer/index.html' |
5101 | 3371 |
! |
3372 |
||
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3373 |
readSettings |
4883
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3374 |
HTTPServer isLoaded ifTrue:[ |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3375 |
HTTPServer runningServers removeDependent:self. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3376 |
HTTPServer runningServers addDependent:self. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3377 |
]. |
4899 | 3378 |
self createServerSubApplicationsForRunningServers. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3379 |
self createdServerChanged. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3380 |
self modifiedChannel value:false. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3381 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3382 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3383 |
removeAllServerSubApplications |
5049 | 3384 |
self settingsDialog removeAllSubApplicationsFor:self |
5030 | 3385 |
! |
3386 |
||
3387 |
removeAllServers |
|
4883
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3388 |
HTTPServer isLoaded ifTrue:[ |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3389 |
HTTPServer terminateAllServers. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3390 |
]. |
5346 | 3391 |
self class removeAllCreatedServer. |
4883
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3392 |
self removeAllServerSubApplications. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3393 |
self createdServerChanged. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3394 |
! |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3395 |
|
5030 | 3396 |
setPortOnFreePort |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3397 |
|
5040 | 3398 |
| highestUsedPortNr portToUse instances| |
4893 | 3399 |
|
3400 |
HTTPServer isLoaded ifFalse:[ |
|
3401 |
portToUse := 8080 |
|
3402 |
] ifTrue:[ |
|
5040 | 3403 |
instances := HTTPServer runningServers asSet. |
3404 |
instances addAll:((self settingsDialog getAllChildrenAppsForApplication:self) collect:[:aApp| aApp httpServerInstance]). |
|
3405 |
highestUsedPortNr := instances |
|
5169 | 3406 |
inject:(HTTPServer defaultPort - 1) |
4893 | 3407 |
into:[:maxSoFar :thisServer | thisServer port max:maxSoFar]. |
3408 |
||
3409 |
portToUse := highestUsedPortNr + 1 |
|
3410 |
]. |
|
3411 |
self portNumberChannel value:portToUse. |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3412 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3413 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3414 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3415 |
|
5030 | 3416 |
hasCreatedServerChannel |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3417 |
"automatically generated by UIPainter ..." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3418 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3419 |
"*** the code below creates a default model when invoked." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3420 |
"*** (which may not be the one you wanted)" |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3421 |
"*** Please change as required and accept it in the browser." |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3422 |
"*** (and replace this comment by something more useful ;-)" |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3423 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3424 |
hasCreatedServerChannel isNil ifTrue:[ |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3425 |
hasCreatedServerChannel := true asValue. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3426 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3427 |
"/ hasCreatedServerChannel addDependent:self. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3428 |
"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3429 |
]. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3430 |
^ hasCreatedServerChannel. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3431 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3432 |
|
5030 | 3433 |
informationLabel |
4726 | 3434 |
^ resources |
3435 |
string:'HTTPSTARTINFO' |
|
3436 |
default: |
|
6023 | 3437 |
'This dialog enables you to create (possibly multiple) HTTP Server processes. |
5086 | 3438 |
(i.e. it is possible to serve multiple ports) |
3439 |
||
6023 | 3440 |
Once created, select the individual server in the left tree, |
3441 |
configure its services, and finally start it up.' |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3442 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3443 |
|
5030 | 3444 |
portNumberChannel |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3445 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3446 |
portNumberChannel isNil ifTrue:[ |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3447 |
portNumberChannel := ValueHolder new. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3448 |
]. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3449 |
^ portNumberChannel. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3450 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3451 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3452 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3453 |
|
5030 | 3454 |
createdServerChanged |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3455 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3456 |
self hasCreatedServerChannel value:self hasCreatedServer. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3457 |
self setPortOnFreePort. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3458 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3459 |
|
5030 | 3460 |
runningServersChanged |
4899 | 3461 |
self createServerSubApplicationsForRunningServers. |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3462 |
self setPortOnFreePort. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3463 |
! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3464 |
|
5030 | 3465 |
update:something with:aParameter from:changedObject |
4883
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3466 |
HTTPServer isLoaded ifTrue:[ |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3467 |
changedObject == HTTPServer runningServers ifTrue:[ |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3468 |
self runningServersChanged. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3469 |
^ self. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3470 |
] |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3471 |
]. |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3472 |
super update:something with:aParameter from:changedObject |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3473 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3474 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3475 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3476 |
|
5030 | 3477 |
release |
4883
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3478 |
HTTPServer isLoaded ifTrue:[ |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3479 |
HTTPServer runningServers removeDependent:self. |
45341d5a8867
avoid autoloading HTTPServer
Claus Gittinger <cg@exept.de>
parents:
4874
diff
changeset
|
3480 |
] |
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3481 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3482 |
|
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3483 |
!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3484 |
|
5030 | 3485 |
hasCreatedServer |
3486 |
||
5031 | 3487 |
^ (self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) notEmpty |
5030 | 3488 |
! |
3489 |
||
3490 |
hasUnsavedChanges |
|
5029 | 3491 |
|
3492 |
^ false |
|
4724
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3493 |
! ! |
57b61d7d19ad
HTTPStartServerApp must be included
Claus Gittinger <cg@exept.de>
parents:
4718
diff
changeset
|
3494 |
|
4312 | 3495 |
!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'! |
3496 |
||
5030 | 3497 |
defaultIcon |
4312 | 3498 |
"This resource specification was automatically generated |
3499 |
by the ImageEditor of ST/X." |
|
3500 |
||
3501 |
"Do not manually edit this!! If it is corrupted, |
|
3502 |
the ImageEditor may not be able to read the specification." |
|
3503 |
||
3504 |
" |
|
3505 |
self defaultIcon inspect |
|
3506 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
3507 |
Icon flushCachedIcons |
|
3508 |
" |
|
3509 |
||
3510 |
<resource: #image> |
|
3511 |
||
3512 |
^Icon |
|
3513 |
constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon' |
|
4948 | 3514 |
ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
3515 |
@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@B%P@@@@@JUT@@@@@)TE@@H@BUTQP@@@ETTQ\@@@JTTU?@@@J$@W<@@@B)U_0@@@@*U?@@@@@J''<@@@ |
|
3516 |
@@B''0@@@@@@''@@@O@@@D@@@@@@@@@@@K@@@@@@@@@@@@@@@M@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 192 192 192]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G@@@O @@_0@@?8@A?<@C?>@G??@G?? G??@C?>@A?<@@?8@@_0@@O @@G@@@B@@@@@@@@@@@@@@') ; yourself); yourself] |
|
4312 | 3517 |
! ! |
3518 |
||
4286 | 3519 |
!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'! |
3520 |
||
5030 | 3521 |
windowSpec |
4286 | 3522 |
"This resource specification was automatically generated |
3523 |
by the UIPainter of ST/X." |
|
3524 |
||
3525 |
"Do not manually edit this!! If it is corrupted, |
|
3526 |
the UIPainter may not be able to read the specification." |
|
3527 |
||
3528 |
" |
|
4310 | 3529 |
UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec |
3530 |
AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec |
|
3531 |
AbstractSettingsApplication::KbdMappingSettingsAppl open |
|
4286 | 3532 |
" |
3533 |
||
3534 |
<resource: #canvas> |
|
3535 |
||
3536 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3537 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3538 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3539 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3540 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3541 |
label: 'Keyboard Mapping Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3542 |
name: 'Keyboard Mapping Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3543 |
min: (Point 10 10) |
5576 | 3544 |
bounds: (Rectangle 0 0 491 653) |
4286 | 3545 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3546 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3547 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3548 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3549 |
(VariableVerticalPanelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3550 |
name: 'VariableVerticalPanel1' |
5576 | 3551 |
layout: (LayoutFrame 0 0.0 80 0 0 1.0 0 1.0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3552 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3553 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3554 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3555 |
(VariableHorizontalPanelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3556 |
name: 'VariableHorizontalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3557 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3558 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3559 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3560 |
(SequenceViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3561 |
name: 'RawKeyList' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3562 |
model: selectedRawKey |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3563 |
hasHorizontalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3564 |
hasVerticalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3565 |
useIndex: false |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3566 |
sequenceList: rawKeyList |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3567 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3568 |
(SequenceViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3569 |
name: 'FunctionKeyList' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3570 |
model: selectedFunctionKey |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3571 |
hasHorizontalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3572 |
hasVerticalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3573 |
useIndex: false |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3574 |
sequenceList: functionKeyList |
4286 | 3575 |
) |
3576 |
) |
|
3577 |
||
3578 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3579 |
handles: (Any 0.5 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3580 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3581 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3582 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3583 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3584 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3585 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3586 |
(TextEditorSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3587 |
name: 'MacroText' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3588 |
layout: (LayoutFrame 0 0.0 20 0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3589 |
model: macroTextHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3590 |
hasHorizontalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3591 |
hasVerticalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3592 |
isReadOnly: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3593 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3594 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3595 |
label: 'Macro text (if any):' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3596 |
name: 'MacroTextLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3597 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3598 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3599 |
adjust: left |
4286 | 3600 |
) |
3601 |
) |
|
3602 |
||
3603 |
) |
|
3604 |
) |
|
3605 |
) |
|
3606 |
||
3607 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3608 |
handles: (Any 0.5 1.0) |
4286 | 3609 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3610 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3611 |
label: 'NoticeText' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3612 |
name: 'Text' |
5576 | 3613 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 80 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3614 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3615 |
labelChannel: labelTextHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3616 |
resizeForLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3617 |
adjust: left |
4286 | 3618 |
) |
3619 |
) |
|
3620 |
||
3621 |
) |
|
3622 |
) |
|
3623 |
! ! |
|
3624 |
||
3625 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'! |
|
3626 |
||
5030 | 3627 |
basicSaveSettings |
3628 |
! |
|
3629 |
||
5101 | 3630 |
helpFilename |
5741 | 3631 |
^ 'Launcher/keyboardSetting.html' |
4286 | 3632 |
! |
3633 |
||
5030 | 3634 |
readSettings |
4574 | 3635 |
self modifiedChannel value:false |
4286 | 3636 |
! ! |
3637 |
||
3638 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'! |
|
3639 |
||
5030 | 3640 |
functionKeyList |
5029 | 3641 |
"automatically generated by UIPainter ..." |
3642 |
||
3643 |
"*** the code below creates a default model when invoked." |
|
3644 |
"*** (which may not be the one you wanted)" |
|
3645 |
"*** Please change as required and accept it in the browser." |
|
3646 |
"*** (and replace this comment by something more useful ;-)" |
|
3647 |
||
3648 |
functionKeyList isNil ifTrue:[ |
|
3649 |
functionKeyList := ValueHolder new. |
|
3650 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
3651 |
"/ functionKeyList addDependent:self. |
|
3652 |
"/ functionKeyList onChangeSend:#functionKeyListChanged to:self. |
|
3653 |
]. |
|
3654 |
^ functionKeyList. |
|
3655 |
! |
|
3656 |
||
5030 | 3657 |
labelTextHolder |
5029 | 3658 |
"automatically generated by UIPainter ..." |
3659 |
||
3660 |
"*** the code below creates a default model when invoked." |
|
3661 |
"*** (which may not be the one you wanted)" |
|
3662 |
"*** Please change as required and accept it in the browser." |
|
3663 |
"*** (and replace this comment by something more useful ;-)" |
|
3664 |
||
3665 |
labelTextHolder isNil ifTrue:[ |
|
3666 |
labelTextHolder := ValueHolder new. |
|
3667 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
3668 |
"/ labelTextHolder addDependent:self. |
|
3669 |
"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self. |
|
3670 |
]. |
|
3671 |
^ labelTextHolder. |
|
3672 |
! |
|
3673 |
||
5030 | 3674 |
macroTextHolder |
4286 | 3675 |
"automatically generated by UIPainter ..." |
3676 |
||
3677 |
"*** the code below creates a default model when invoked." |
|
3678 |
"*** (which may not be the one you wanted)" |
|
3679 |
"*** Please change as required and accept it in the browser." |
|
3680 |
"*** (and replace this comment by something more useful ;-)" |
|
3681 |
||
3682 |
macroTextHolder isNil ifTrue:[ |
|
3683 |
macroTextHolder := ValueHolder new. |
|
3684 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
3685 |
"/ macroTextHolder addDependent:self. |
|
3686 |
"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self. |
|
3687 |
]. |
|
3688 |
^ macroTextHolder. |
|
3689 |
! |
|
3690 |
||
5030 | 3691 |
rawKeyList |
4286 | 3692 |
|
3693 |
rawKeyList isNil ifTrue:[ |
|
3694 |
rawKeyList := List new. |
|
3695 |
]. |
|
3696 |
^ rawKeyList. |
|
3697 |
! |
|
3698 |
||
5030 | 3699 |
selectedFunctionKey |
4286 | 3700 |
|
3701 |
selectedFunctionKey isNil ifTrue:[ |
|
3702 |
selectedFunctionKey := ValueHolder new. |
|
3703 |
selectedFunctionKey addDependent:self. |
|
3704 |
]. |
|
3705 |
^ selectedFunctionKey. |
|
3706 |
! |
|
3707 |
||
5030 | 3708 |
selectedRawKey |
4286 | 3709 |
|
3710 |
selectedRawKey isNil ifTrue:[ |
|
3711 |
selectedRawKey := ValueHolder new. |
|
3712 |
selectedRawKey addDependent:self. |
|
3713 |
]. |
|
3714 |
^ selectedRawKey. |
|
3715 |
! ! |
|
3716 |
||
3717 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'! |
|
3718 |
||
5030 | 3719 |
changeFunctionKeySelection |
4286 | 3720 |
|
3721 |
|raw| |
|
3722 |
raw := self selectedRawKey value. |
|
3723 |
self selectedFunctionKey value:(mappings at:raw asSymbol) asString. |
|
3724 |
! |
|
3725 |
||
5030 | 3726 |
changeMacroText |
4286 | 3727 |
|
3728 |
|f macro indent| |
|
3729 |
||
3730 |
f := self selectedFunctionKey value. |
|
3731 |
(f startsWith:'Cmd') ifTrue:[ |
|
3732 |
f := f copyFrom:4 |
|
3733 |
]. |
|
3734 |
macro := UserPreferences current functionKeySequences |
|
3735 |
at:(f asSymbol) ifAbsent:nil. |
|
3736 |
macro notNil ifTrue:[ |
|
3737 |
macro := macro asStringCollection. |
|
3738 |
indent := macro |
|
3739 |
inject:99999 into:[:min :element | |
|
3740 |
|stripped| |
|
3741 |
||
3742 |
stripped := element withoutLeadingSeparators. |
|
3743 |
stripped size == 0 ifTrue:[ |
|
3744 |
min |
|
3745 |
] ifFalse:[ |
|
3746 |
min min:(element size - stripped size) |
|
3747 |
] |
|
3748 |
]. |
|
3749 |
indent ~~ 0 ifTrue:[ |
|
3750 |
macro := macro collect:[:line | |
|
3751 |
line size > indent ifTrue:[ |
|
3752 |
line copyFrom:indent+1 |
|
3753 |
] ifFalse:[ |
|
3754 |
line |
|
3755 |
]. |
|
3756 |
] |
|
3757 |
]. |
|
3758 |
]. |
|
3759 |
macroTextHolder value:macro. |
|
3760 |
! |
|
3761 |
||
5030 | 3762 |
changeRawKeySelection |
4286 | 3763 |
|f raw| |
3764 |
||
3765 |
f := self selectedFunctionKey value. |
|
3766 |
raw := mappings keyAtValue:f asString. |
|
3767 |
raw isNil ifTrue:[ |
|
3768 |
raw := mappings keyAtValue:f first. |
|
3769 |
raw isNil ifTrue:[ |
|
3770 |
raw := mappings keyAtValue:f asSymbol. |
|
3771 |
] |
|
3772 |
]. |
|
3773 |
self selectedRawKey value:raw. |
|
3774 |
! |
|
3775 |
||
5030 | 3776 |
update:something with:aParameter from:changedObject |
4286 | 3777 |
changedObject == self selectedFunctionKey ifTrue:[ |
3778 |
self changeRawKeySelection. |
|
3779 |
self changeMacroText. |
|
3780 |
^ self |
|
3781 |
]. |
|
3782 |
changedObject == self selectedRawKey ifTrue:[ |
|
3783 |
self changeFunctionKeySelection. |
|
3784 |
^ self |
|
3785 |
]. |
|
3786 |
super update:something with:aParameter from:changedObject |
|
3787 |
! ! |
|
3788 |
||
3789 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'! |
|
3790 |
||
5030 | 3791 |
closeDownViews |
4286 | 3792 |
"This is a hook method generated by the Browser. |
3793 |
It will be invoked when your app/dialog-window is really closed. |
|
3794 |
See also #closeDownViews, which is invoked before and may suppress the close |
|
3795 |
or ask the user for confirmation." |
|
3796 |
||
3797 |
"/ change the code below as required ... |
|
3798 |
"/ This should cleanup any leftover resources |
|
3799 |
"/ (for example, temporary files) |
|
3800 |
"/ super closeRequest will initiate the closeDown |
|
3801 |
||
3802 |
"/ add your code here |
|
3803 |
||
3804 |
"/ do not remove the one below ... |
|
3805 |
^ super closeDownViews |
|
3806 |
! |
|
3807 |
||
5030 | 3808 |
initialize |
4286 | 3809 |
|
4574 | 3810 |
super initialize. |
4286 | 3811 |
|
3812 |
mappings := Screen current keyboardMap. |
|
3813 |
||
3814 |
rawKeyList := (mappings keys asArray collect:[:key | key asString]) sort. |
|
3815 |
functionKeyList := (mappings values asSet asArray collect:[:key | key asString]) sort. |
|
3816 |
||
3817 |
self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs. |
|
3818 |
! ! |
|
3819 |
||
3820 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'! |
|
3821 |
||
5030 | 3822 |
hasUnsavedChanges |
4286 | 3823 |
|
3824 |
^ false |
|
3825 |
! ! |
|
3826 |
||
4312 | 3827 |
!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'! |
3828 |
||
5030 | 3829 |
defaultIcon |
4312 | 3830 |
"This resource specification was automatically generated |
3831 |
by the ImageEditor of ST/X." |
|
3832 |
||
3833 |
"Do not manually edit this!! If it is corrupted, |
|
3834 |
the ImageEditor may not be able to read the specification." |
|
3835 |
||
3836 |
" |
|
3837 |
self defaultIcon inspect |
|
3838 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
3839 |
Icon flushCachedIcons |
|
3840 |
" |
|
3841 |
||
3842 |
<resource: #image> |
|
3843 |
||
3844 |
^Icon |
|
3845 |
constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon' |
|
3846 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
4948 | 3847 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B (JB (@@@@@@@@F <O@@@@@@@@@@@ZJB (GA0\GA0(JB VE @@@@@@@@@@ |
3848 |
F" (JA0\GA0\GB (E!!X@@@@@@@@@@A((JA0\GA0\GA0\JA(Z@@@@@@@@@@@ZJB \GA0\GA0\GB (J@@@@@@@@@@@F" (@@X\G@X@GA0(JB B@@@@@@@@@A(( |
|
3849 |
J@@FB0,F@@(J@@(J@ @@@@@@@@@ZJB @@@XFB0X@@@TEAPTE@@@@@@@@F" (@ALFA!!4S@0LBAPTEB@@@@@@@@AT@@@@]H2L#GP8NDQLSG2@WE0$@@@@U@@@@ |
|
3850 |
GQ<_G1<NC!!DSD1<_E1\I@@@@A@@@@AL]GRLSD!!HMF1,_G1<_BP@@@@@@@@@SFQ$''I"T%EALSHRP^G $@@@@@@@@@D1$"H"H%IQPSD2D$G"HI@@@@@@@@@AP" |
|
3851 |
H"X"H"H"H"H"H"H"A0@@@@@@@@@PFA LA2H"CBH"I"\"H 0@@@@@@@@@C@0L@@@GA00GA00LA0\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
3852 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 32 32 32 48 48 48 49 48 49 54 54 54 69 69 69 75 67 22 82 82 82 85 14 14 89 89 89 105 105 105 106 88 25 110 19 19 113 19 19 131 129 131 134 122 39 149 25 25 149 26 26 158 27 27 158 140 45 164 161 164 164 161 172 165 43 43 177 161 52 196 175 0 197 194 197 204 36 36 204 75 75 205 36 36 205 113 38 212 66 66 216 81 81 223 72 72 227 202 66 231 120 120 231 123 123 255 129 0 255 238 162 255 251 229 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O \@??>@??>@??>@??>@???0???0???0???8???8???8???89??81??81??81??81??8A9?0A@@@A@@@A@@@') ; yourself); yourself] |
|
4312 | 3853 |
! ! |
3854 |
||
4286 | 3855 |
!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'! |
3856 |
||
5030 | 3857 |
windowSpec |
4286 | 3858 |
"This resource specification was automatically generated |
3859 |
by the UIPainter of ST/X." |
|
3860 |
||
3861 |
"Do not manually edit this!! If it is corrupted, |
|
3862 |
the UIPainter may not be able to read the specification." |
|
3863 |
||
3864 |
" |
|
4310 | 3865 |
UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec |
3866 |
AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec |
|
3867 |
AbstractSettingsApplication::LanguageSettingsAppl open |
|
4286 | 3868 |
" |
3869 |
||
3870 |
<resource: #canvas> |
|
3871 |
||
3872 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3873 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3874 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3875 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3876 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3877 |
label: 'Language Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3878 |
name: 'Language Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3879 |
min: (Point 10 10) |
6058 | 3880 |
bounds: (Rectangle 0 0 571 939) |
4286 | 3881 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3882 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3883 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3884 |
collection: ( |
6023 | 3885 |
(TextEditorSpec |
3886 |
name: 'TextEditor1' |
|
5556 | 3887 |
layout: (LayoutFrame 0 0 24 0 0 1.0 161 0) |
6058 | 3888 |
style: (FontDescription helvetica medium roman 10 #'iso10646-1') |
6023 | 3889 |
model: noticeLabelHolder |
3890 |
hasHorizontalScrollBar: true |
|
3891 |
hasVerticalScrollBar: true |
|
3892 |
miniScrollerHorizontal: true |
|
3893 |
autoHideScrollBars: true |
|
3894 |
isReadOnly: true |
|
3895 |
postBuildCallback: postBuildHelpLabel: |
|
4286 | 3896 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3897 |
(LabelSpec |
5561 | 3898 |
label: 'Current Language:' |
5556 | 3899 |
name: 'Label1' |
6021 | 3900 |
layout: (LayoutFrame 0 0 0 0 -233 1 20 0) |
5556 | 3901 |
translateLabel: true |
3902 |
labelChannel: currentLanguageLabel |
|
3903 |
adjust: right |
|
3904 |
) |
|
3905 |
(LabelSpec |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3906 |
label: 'Label' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3907 |
name: 'CurrentLang' |
5561 | 3908 |
layout: (LayoutFrame -233 1 0 0 0 1 20 0) |
6058 | 3909 |
style: (FontDescription arial bold roman 10 nil) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3910 |
translateLabel: true |
5561 | 3911 |
labelChannel: currentFlagAndLanguageChannel |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3912 |
adjust: left |
4286 | 3913 |
) |
5556 | 3914 |
(InputFieldSpec |
3915 |
name: 'EntryField1' |
|
6021 | 3916 |
layout: (LayoutFrame 2 0.0 160 0 -2 1.0 184 0) |
5556 | 3917 |
model: languageHolder |
3918 |
acceptOnReturn: true |
|
3919 |
acceptOnTab: true |
|
3920 |
acceptOnLostFocus: true |
|
3921 |
acceptOnPointerLeave: true |
|
3922 |
) |
|
3923 |
(SequenceViewSpec |
|
3924 |
name: 'List1' |
|
3925 |
layout: (LayoutFrame 2 0.0 186 0 -2 1.0 -30 1.0) |
|
5561 | 3926 |
model: languageIndexHolder |
5556 | 3927 |
hasHorizontalScrollBar: true |
3928 |
hasVerticalScrollBar: true |
|
3929 |
doubleClickSelector: doubleClick: |
|
5561 | 3930 |
useIndex: true |
3931 |
sequenceList: languageListHolder |
|
4286 | 3932 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3933 |
(HorizontalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3934 |
name: 'HorizontalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3935 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3936 |
horizontalLayout: center |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3937 |
verticalLayout: center |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3938 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3939 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3940 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3941 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3942 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3943 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3944 |
label: 'Reread Language Resources' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3945 |
name: 'RereadResourcesButton' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3946 |
translateLabel: true |
5556 | 3947 |
resizeForLabel: true |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
3948 |
model: rereadResourceFiles |
5556 | 3949 |
useDefaultExtent: true |
4574 | 3950 |
) |
3951 |
) |
|
3952 |
||
3953 |
) |
|
3954 |
) |
|
4286 | 3955 |
) |
3956 |
||
3957 |
) |
|
3958 |
) |
|
3959 |
! ! |
|
3960 |
||
3961 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'! |
|
3962 |
||
5030 | 3963 |
languageList |
4286 | 3964 |
"return the value of the instance variable 'languageList' (automatically generated)" |
3965 |
||
3966 |
^ languageList |
|
3967 |
! ! |
|
3968 |
||
3969 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'! |
|
3970 |
||
5030 | 3971 |
basicSaveSettings |
5561 | 3972 |
|fontPref fontPrefs language oldLanguage languageString territory enc |
3973 |
answer matchingFonts l screen switch dialog anyWrong| |
|
3974 |
||
4286 | 3975 |
self withWaitCursorDo:[ |
5561 | 3976 |
languageString := translatedLanguages at:(self languageIndexHolder value). |
5719 | 3977 |
language := self languageHolder value. |
4286 | 3978 |
(language includes:$-) ifTrue:[ |
3979 |
l := language asCollectionOfSubstringsSeparatedBy:$-. |
|
3980 |
language := l at:1. |
|
3981 |
territory := l at:2. |
|
5837 | 3982 |
territory isNil ifTrue:[ |
3983 |
territory := language string copyTo:2 |
|
3984 |
]. |
|
4286 | 3985 |
]. |
3986 |
||
3987 |
"/ check if the new language needs a differently encoded font; |
|
3988 |
"/ ask user to switch font and allow cancellation. |
|
3989 |
"/ Otherwise, you are left with unreadable menu & button items ... |
|
3990 |
||
3991 |
oldLanguage := Smalltalk language. |
|
3992 |
Smalltalk language:language asSymbol. |
|
3993 |
ResourcePack flushCachedResourcePacks. |
|
5536 | 3994 |
|
4286 | 3995 |
"/ refetch resources ... |
3996 |
resources := AbstractLauncherApplication classResources. |
|
5536 | 3997 |
fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil. |
3998 |
fontPrefs isNil ifTrue:[ |
|
3999 |
fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil. |
|
4000 |
fontPref isNil ifTrue:[ |
|
5700 | 4001 |
fontPrefs := #(#'iso10646-1') |
5536 | 4002 |
] ifFalse:[ |
5700 | 4003 |
fontPrefs := #(#'iso10646-1') , (Array with:fontPref). |
5536 | 4004 |
] |
4005 |
]. |
|
5540 | 4006 |
|
4007 |
"/ 'normalize' names of encodings |
|
5700 | 4008 |
fontPrefs := fontPrefs collect:[:each | (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)]. |
5627 | 4009 |
fontPrefs := fontPrefs select:[:each | each notNil] thenCollect:[:each | each nameOfEncoding]. |
5700 | 4010 |
fontPrefs isEmpty ifTrue:[ |
4011 |
fontPrefs := #(#'iso10464-1') |
|
4012 |
]. |
|
5536 | 4013 |
fontPref := fontPrefs first. |
4014 |
||
5580 | 4015 |
Smalltalk setLanguage:#en. |
5536 | 4016 |
ResourcePack flushCachedResourcePacks. |
4017 |
resources := AbstractLauncherApplication classResources. |
|
4286 | 4018 |
|
4019 |
switch := true. |
|
5536 | 4020 |
anyWrong := false. |
4021 |
(Array |
|
4022 |
with:MenuView defaultFont |
|
5561 | 4023 |
"/ with:ListView defaultFont |
5536 | 4024 |
with:EditTextView defaultFont |
4025 |
with:Button defaultFont) |
|
4026 |
do:[:fn | |
|
4027 |
enc := fn encoding. |
|
4028 |
(fontPrefs contains:[:pref | CharacterEncoder isEncoding:pref subSetOf:enc]) |
|
4029 |
ifFalse:[ |
|
4030 |
anyWrong := true |
|
4031 |
]. |
|
4032 |
]. |
|
4033 |
anyWrong ifTrue:[ |
|
4286 | 4034 |
"/ look if there is one at all. |
4035 |
screen := Screen current. |
|
5536 | 4036 |
matchingFonts := screen listOfAvailableFonts |
4037 |
select:[:f | fontPrefs contains:[:pref | |
|
4038 |
CharacterEncoder |
|
4039 |
isEncoding:pref subSetOf:(f encoding ? 'ascii')]]. |
|
4040 |
||
4286 | 4041 |
matchingFonts size == 0 ifTrue:[ |
4042 |
"/ flush and try again - just in case, the font path has changed. |
|
4043 |
screen flushListOfAvailableFonts. |
|
5536 | 4044 |
matchingFonts := screen listOfAvailableFonts |
4045 |
select:[:f | fontPrefs contains:[:pref | |
|
4046 |
CharacterEncoder |
|
4047 |
isEncoding:pref subSetOf:(f encoding ? 'ascii')]]. |
|
4286 | 4048 |
]. |
4049 |
matchingFonts size == 0 ifTrue:[ |
|
4050 |
(Dialog |
|
4051 |
confirm:(resources |
|
5536 | 4052 |
string:'Your display does not seem to offer any appropriate font.\\Change the language anyway ?\ (Texts will probably be unreadable then)' |
4286 | 4053 |
with:fontPref) withCRs) |
4054 |
ifFalse:[ |
|
4055 |
switch := false |
|
4056 |
] |
|
4057 |
] ifFalse:[ |
|
4058 |
answer := Dialog |
|
4059 |
confirmWithCancel:(resources |
|
5536 | 4060 |
string:'Some font(s) is not %1-encoded.\\Change it ?' |
4286 | 4061 |
with:fontPref) withCRs |
4062 |
labels:(resources |
|
5109 | 4063 |
array:#('Cancel' 'No' 'Yes')) |
4286 | 4064 |
default:3. |
4065 |
answer isNil ifTrue:[ |
|
4066 |
switch := false |
|
4067 |
] ifFalse:[ |
|
4068 |
answer ifTrue:[ |
|
5495 | 4069 |
switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref) |
4286 | 4070 |
] |
4071 |
]. |
|
4072 |
]. |
|
4073 |
]. |
|
4074 |
||
4075 |
switch ifTrue:[ |
|
5561 | 4076 |
Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'. |
4286 | 4077 |
Smalltalk language:language asSymbol. |
5837 | 4078 |
Smalltalk languageTerritory:(territory ? language) asSymbol. |
5536 | 4079 |
ResourcePack flushCachedResourcePacks. |
4286 | 4080 |
"/ ResourcePack flushCachedResourcePacks - already done by language-change |
4081 |
]. |
|
4082 |
]. |
|
4327 | 4083 |
switch ifTrue:[ |
5212 | 4084 |
(dialog := self settingsDialog) notNil ifTrue:[ |
4085 |
dialog reopenLauncher. |
|
4327 | 4086 |
] ifFalse:[ |
4087 |
NewLauncher current reopenLauncher. |
|
4286 | 4088 |
]. |
4089 |
DebugView newDebugger. |
|
4090 |
]. |
|
5569 | 4091 |
self updateForChangedLanguage. |
4574 | 4092 |
! |
4093 |
||
5030 | 4094 |
doubleClick:aEntry |
4095 |
self saveSettingsIfUnsavedChangesArePresent. |
|
4096 |
! |
|
4097 |
||
5101 | 4098 |
helpFilename |
5741 | 4099 |
^ 'Launcher/languageSetting.html' |
4574 | 4100 |
! |
4101 |
||
5030 | 4102 |
readSettings |
4574 | 4103 |
self languageHolder value:self currentLanguage. |
5561 | 4104 |
self currentFlagAndLanguageChannel value:self currentLanguage. |
4574 | 4105 |
self modifiedChannel value:false |
4106 |
! |
|
4107 |
||
5030 | 4108 |
rereadResourceFiles |
4574 | 4109 |
ResourcePack flushCachedResourcePacks. |
5569 | 4110 |
perLanguageResources := nil. |
5576 | 4111 |
self withWaitCursorDo:[ |
4112 |
self updateForChangedLanguage. |
|
4113 |
]. |
|
4574 | 4114 |
|
4115 |
"/ Smalltalk language:(Smalltalk language). |
|
4116 |
"/ Smalltalk languageTerritory:(Smalltalk languageTerritory). |
|
4117 |
||
4118 |
Smalltalk changed:#Language. |
|
4119 |
Smalltalk changed:#LanguageTerritory. |
|
5569 | 4120 |
! |
4121 |
||
4122 |
updateForChangedLanguage |
|
4123 |
self initializeLanguages. |
|
5721 | 4124 |
languageListHolder value:languageList. |
5569 | 4125 |
self languageListHolder value:languageList. |
4126 |
self currentFlagAndLanguageChannel value:self currentLanguage. |
|
4127 |
self setCurrentLanguageLabel. |
|
4128 |
self setNoticeLabel. |
|
4286 | 4129 |
! ! |
4130 |
||
4131 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'! |
|
4132 |
||
5561 | 4133 |
currentFlagAndLanguageChannel |
4134 |
currentFlagAndLanguageChannel isNil ifTrue:[ |
|
4135 |
currentFlagAndLanguageChannel := self currentLanguage asValue. |
|
4136 |
]. |
|
4137 |
^ currentFlagAndLanguageChannel. |
|
4286 | 4138 |
! |
4139 |
||
5030 | 4140 |
currentLanguageLabel |
4286 | 4141 |
currentLanguageLabel isNil ifTrue:[ |
5561 | 4142 |
currentLanguageLabel := ValueHolder new. |
4143 |
self setCurrentLanguageLabel. |
|
4286 | 4144 |
]. |
4145 |
^ currentLanguageLabel. |
|
4146 |
! |
|
4147 |
||
5030 | 4148 |
languageHolder |
4286 | 4149 |
languageHolder isNil ifTrue:[ |
4150 |
languageHolder := self currentLanguage asValue. |
|
5041 | 4151 |
languageHolder onChangeSend:#updateModifiedChannel to:self. |
4286 | 4152 |
]. |
4153 |
^ languageHolder. |
|
4154 |
! |
|
4155 |
||
5561 | 4156 |
languageIndexChanged |
5719 | 4157 |
|langIdx| |
4158 |
||
4159 |
langIdx := self languageIndexHolder value ? 1. |
|
4160 |
self languageHolder value:(listOfLanguages at:langIdx). |
|
5561 | 4161 |
self updateModifiedChannel. |
4162 |
! |
|
4163 |
||
4164 |
languageIndexHolder |
|
4165 |
languageIndexHolder isNil ifTrue:[ |
|
4166 |
languageIndexHolder := (self currentLanguageIndex) asValue. |
|
4167 |
languageIndexHolder onChangeSend:#languageIndexChanged to:self. |
|
4168 |
]. |
|
4169 |
^ languageIndexHolder. |
|
4170 |
! |
|
4171 |
||
4172 |
languageListHolder |
|
4173 |
languageListHolder isNil ifTrue:[ |
|
4174 |
languageListHolder := self languageList asValue. |
|
4175 |
]. |
|
4176 |
^ languageListHolder. |
|
4177 |
! |
|
4178 |
||
5030 | 4179 |
noticeLabelHolder |
4286 | 4180 |
noticeLabelHolder isNil ifTrue:[ |
5561 | 4181 |
noticeLabelHolder := ValueHolder new. |
4182 |
self setNoticeLabel. |
|
4286 | 4183 |
]. |
4184 |
^ noticeLabelHolder. |
|
5561 | 4185 |
! |
4186 |
||
4187 |
setCurrentLanguageLabel |
|
4188 |
currentLanguageLabel value: (resources string:'Current Language:') |
|
4189 |
! |
|
4190 |
||
4191 |
setNoticeLabel |
|
6023 | 4192 |
noticeLabelHolder |
4193 |
value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs). |
|
4286 | 4194 |
! ! |
4195 |
||
4196 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'! |
|
4197 |
||
5030 | 4198 |
initialize |
5561 | 4199 |
self initializeLanguages. |
4200 |
super initialize. |
|
4201 |
! |
|
4202 |
||
4203 |
initializeLanguages |
|
5719 | 4204 |
|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys| |
4286 | 4205 |
|
5561 | 4206 |
resources := self class classResources. |
5623 | 4207 |
listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ). |
4286 | 4208 |
listOfLanguages := listOfLanguages asOrderedCollection. |
5719 | 4209 |
listOfLanguageKeys := listOfLanguages collect:[:l | l copyReplaceAll:$- with:$_ ]. |
5563 | 4210 |
|
5623 | 4211 |
(perLanguageResources notNil |
4212 |
and:[ (perLanguageResources includesKey:#en) not |
|
5719 | 4213 |
and:[ (perLanguageResources includesKey:#'en_us') not ]]) |
5623 | 4214 |
ifTrue:[ |
4215 |
perLanguageResources := nil. |
|
4216 |
]. |
|
4217 |
||
5569 | 4218 |
perLanguageResources isNil ifTrue:[ |
4219 |
perLanguageResources := Dictionary new. |
|
4220 |
||
5719 | 4221 |
listOfLanguageKeys do:[:eachLang | |
5569 | 4222 |
savedLanguage := Language. |
5719 | 4223 |
savedLanguageTerritory := LanguageTerritory. |
5573 | 4224 |
ResourcePack flushCachedResourcePacks. |
5569 | 4225 |
[ |
5719 | 4226 |
|rsc lang terr| |
4227 |
||
4228 |
lang := terr := eachLang. |
|
4229 |
(lang includes:$_) ifTrue:[ |
|
4230 |
terr := lang copyFrom:4. |
|
4231 |
lang := lang copyTo:2. |
|
4232 |
]. |
|
4233 |
Language := lang asSymbol. |
|
4234 |
LanguageTerritory := terr asSymbol. |
|
5569 | 4235 |
rsc := ResourcePack for:(self class) cached:false. |
4236 |
perLanguageResources at:eachLang asSymbol put:rsc. |
|
4237 |
] ensure:[ |
|
5719 | 4238 |
Language := savedLanguage. |
4239 |
LanguageTerritory := savedLanguageTerritory. |
|
5569 | 4240 |
]. |
4241 |
]. |
|
5573 | 4242 |
ResourcePack flushCachedResourcePacks. |
5569 | 4243 |
]. |
5719 | 4244 |
enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us']. |
4245 |
||
4246 |
enLanguages := listOfLanguageKeys |
|
5536 | 4247 |
collect:[:lang | |item| |
5563 | 4248 |
item := enResources at:('LANG_' , lang) default:nil. |
4249 |
item isNil ifTrue:[ |
|
4250 |
lang |
|
4286 | 4251 |
] ifFalse:[ |
5563 | 4252 |
item isString ifTrue:[ |
4253 |
item |
|
4254 |
] ifFalse:[ |
|
4255 |
item at:1 |
|
4256 |
] |
|
4286 | 4257 |
] |
4258 |
]. |
|
5569 | 4259 |
|
5719 | 4260 |
nativeLanguages := listOfLanguageKeys |
5569 | 4261 |
collect:[:lang | |item enLang| |
4262 |
item := enResources at:('LANG_' , lang) default:nil. |
|
4263 |
item isNil ifTrue:[ |
|
4264 |
enLang := lang |
|
4265 |
] ifFalse:[ |
|
4266 |
item isString ifTrue:[ |
|
4267 |
enLang := item |
|
4268 |
] ifFalse:[ |
|
4269 |
enLang := item at:1 |
|
4270 |
] |
|
4271 |
]. |
|
5583 | 4272 |
item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang. |
5569 | 4273 |
]. |
4274 |
||
5563 | 4275 |
languages := enLanguages |
4276 |
collect:[:enLang | |item| |
|
4277 |
item := resources at:enLang default:enLang. |
|
4278 |
]. |
|
4279 |
||
5719 | 4280 |
flags := listOfLanguageKeys collect:[:lang | |item coll| |
5536 | 4281 |
item := resources at:('FLAG_' , lang) default:nil. |
4282 |
item notNil ifTrue:[ |
|
4283 |
item |
|
4286 | 4284 |
] ifFalse:[ |
5536 | 4285 |
coll := lang asCollectionOfSubstringsSeparatedBy:$_. |
4286 |
(coll size > 1 |
|
4287 |
and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil]) |
|
4288 |
ifTrue:[ |
|
4289 |
item |
|
4290 |
] ifFalse:[ |
|
4291 |
item := resources at:('LANG_' , lang). |
|
4292 |
item isArray ifTrue:[ |
|
4293 |
item at:2 |
|
4294 |
] ifFalse:[ |
|
4295 |
nil |
|
4296 |
] |
|
4297 |
] |
|
4286 | 4298 |
] |
4299 |
]. |
|
4300 |
flags := flags collect:[:nm | |img d| nm notNil ifTrue:[ |
|
4301 |
img := Image fromFile:nm. |
|
4302 |
img isNil ifTrue:[ |
|
4303 |
d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'. |
|
4304 |
img := Image fromFile:(d construct:nm). |
|
4305 |
]. |
|
4306 |
] ifFalse:[ |
|
4307 |
nil |
|
4308 |
] |
|
4309 |
]. |
|
5563 | 4310 |
|
5569 | 4311 |
|
4312 |
translatedLanguages := (1 to:languages size) collect:[:idx | |
|
4313 |
|l eL nL s| |
|
4314 |
||
4315 |
l := languages at:idx. |
|
4316 |
eL := enLanguages at:idx. |
|
4317 |
nL := nativeLanguages at:idx. |
|
5734 | 4318 |
|
4319 |
s := nL. |
|
4320 |
eL ~= nL ifTrue:[ |
|
5569 | 4321 |
s := s , ' / ' , eL |
4322 |
]. |
|
5734 | 4323 |
(l ~= nL and:[l ~= eL]) ifTrue:[ |
4324 |
s := s , ' / ' , l |
|
5569 | 4325 |
]. |
4326 |
s |
|
4327 |
]. |
|
4328 |
||
5719 | 4329 |
languageList := translatedLanguages |
4330 |
with:flags |
|
5563 | 4331 |
collect:[:lang :flag | LabelAndIcon icon:flag string:lang.]. |
6023 | 4332 |
! |
4333 |
||
4334 |
postBuildHelpLabel:aWidget |
|
4335 |
aWidget level:0. |
|
4336 |
aWidget scrolledView backgroundColor:self window viewBackground. |
|
4286 | 4337 |
! ! |
4338 |
||
4339 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'! |
|
4340 |
||
5030 | 4341 |
currentLanguage |
5561 | 4342 |
^ languageList at:(self currentLanguageIndex) |
4343 |
! |
|
4344 |
||
4345 |
currentLanguageIndex |
|
4346 |
| langIdx | |
|
4347 |
||
4348 |
(Language ~= LanguageTerritory) ifTrue:[ |
|
4349 |
langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil. |
|
4350 |
]. |
|
4351 |
langIdx isNil ifTrue:[ |
|
4352 |
langIdx := listOfLanguages indexOf:Language ifAbsent:nil. |
|
4353 |
]. |
|
4354 |
langIdx isNil ifTrue:[ |
|
4355 |
langIdx := listOfLanguages indexOf:'en' ifAbsent:nil. |
|
4356 |
langIdx isNil ifTrue:[ |
|
4357 |
langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil. |
|
4358 |
||
4359 |
langIdx isNil ifTrue:[ |
|
4360 |
langIdx := 1. |
|
4361 |
] |
|
4362 |
] |
|
4363 |
]. |
|
4364 |
^ langIdx |
|
4286 | 4365 |
! |
4366 |
||
5030 | 4367 |
hasUnsavedChanges |
4286 | 4368 |
^ (self languageHolder value) ~= (self currentLanguage) |
4369 |
! ! |
|
4370 |
||
4312 | 4371 |
!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'! |
4372 |
||
5030 | 4373 |
defaultIcon |
4312 | 4374 |
"This resource specification was automatically generated |
4375 |
by the ImageEditor of ST/X." |
|
4376 |
||
4377 |
"Do not manually edit this!! If it is corrupted, |
|
4378 |
the ImageEditor may not be able to read the specification." |
|
4379 |
||
4380 |
" |
|
4381 |
self defaultIcon inspect |
|
4382 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
4383 |
Icon flushCachedIcons |
|
4384 |
" |
|
4385 |
||
4386 |
<resource: #image> |
|
4387 |
||
4388 |
^Icon |
|
4389 |
constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon' |
|
4948 | 4390 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
4391 |
@@@@@@@@@@@@@@@@@@@@@@?0@@@@@@@@@@@L;8;!!0@@@@@@@@@VL0W\,@@@@@@@L<T,W]43@@@@@@I,"8Z(R-10@@@@I<,,Z**Q78P@@@L24DZ****E0H@@@ |
|
4392 |
<,EM7Z**E00P@LTR9M7]7ZE0H50@=RE0C]7]E0BF?0<,E0@@C]Q0HREPBK-0@@@@Q0T?H\@KTA4@@@^-4_=\@@H A@@@^ JOG<@@@ID@P@^ GE3O@@@@AP@D |
|
4393 |
R EO:O0@@@@@T@4PT%3,@@@@@@@E4G_58%@@@@@@@@AZ\QGL0@@@@@@@@@@@1<@@@@@@@@@@@@@D@@@@@@@b') ; colorMapFromArray:#[0 0 0 80 80 80 160 160 160 240 240 240 64 64 64 144 144 144 224 224 224 48 48 48 128 128 128 208 208 208 32 32 32 112 112 112 192 192 192 16 16 16 96 96 96 176 176 176]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A @@G>@@G?@@_? @??0A??0C??8C??8O??<O??<_??8_??8_??0_?? O??@G??@C?<@A?8@@?8@@C @@A@@') ; yourself); yourself] |
|
4312 | 4394 |
! ! |
4395 |
||
4286 | 4396 |
!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'! |
4397 |
||
5433 | 4398 |
windowSpec |
4399 |
"This resource specification was automatically generated |
|
4400 |
by the UIPainter of ST/X." |
|
4401 |
||
4402 |
"Do not manually edit this!! If it is corrupted, |
|
4403 |
the UIPainter may not be able to read the specification." |
|
4404 |
||
4405 |
" |
|
4406 |
UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec |
|
4407 |
AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec |
|
4408 |
AbstractSettingsApplication::MemorySettingsAppl open |
|
4409 |
" |
|
4410 |
||
4411 |
<resource: #canvas> |
|
4412 |
||
4413 |
^ |
|
4414 |
#(FullSpec |
|
4415 |
name: windowSpec |
|
4416 |
window: |
|
4417 |
(WindowSpec |
|
4418 |
label: 'Memory Manager Settings' |
|
4419 |
name: 'Memory Manager Settings' |
|
4420 |
min: (Point 10 10) |
|
5441 | 4421 |
bounds: (Rectangle 13 23 465 745) |
5433 | 4422 |
) |
4423 |
component: |
|
4424 |
(SpecCollection |
|
4425 |
collection: ( |
|
5441 | 4426 |
(LabelSpec |
4427 |
label: 'Label' |
|
4428 |
name: 'Label1' |
|
4429 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0) |
|
4430 |
translateLabel: true |
|
4431 |
labelChannel: warningLabelHolder |
|
4432 |
adjust: left |
|
4433 |
) |
|
4434 |
(VerticalPanelViewSpec |
|
4435 |
name: 'VerticalPanel1' |
|
4436 |
layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0) |
|
4437 |
horizontalLayout: fit |
|
4438 |
verticalLayout: top |
|
4439 |
horizontalSpace: 0 |
|
4440 |
verticalSpace: 3 |
|
4441 |
ignoreInvisibleComponents: true |
|
4442 |
component: |
|
4443 |
(SpecCollection |
|
4444 |
collection: ( |
|
4445 |
(ViewSpec |
|
4446 |
name: 'NewSpaceSizeBox' |
|
4447 |
component: |
|
4448 |
(SpecCollection |
|
4449 |
collection: ( |
|
4450 |
(InputFieldSpec |
|
4451 |
name: 'EntryField23' |
|
4452 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4453 |
model: newSpaceSize |
|
4454 |
type: fileSize |
|
4455 |
acceptOnReturn: true |
|
4456 |
acceptOnTab: true |
|
4457 |
acceptOnLostFocus: true |
|
4458 |
acceptOnPointerLeave: true |
|
4459 |
) |
|
4460 |
(LabelSpec |
|
4461 |
label: 'Size of NewSpace:' |
|
4462 |
name: 'Label44' |
|
4463 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4464 |
translateLabel: true |
|
4465 |
adjust: right |
|
4466 |
) |
|
4467 |
(LabelSpec |
|
4468 |
label: 'Size of newSpace where objects are created' |
|
4469 |
name: 'Label45' |
|
4470 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4471 |
translateLabel: true |
|
4472 |
adjust: left |
|
4473 |
) |
|
4474 |
(DividerSpec |
|
4475 |
name: 'Separator24' |
|
4476 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4477 |
) |
|
4478 |
) |
|
4479 |
||
4480 |
) |
|
4481 |
extent: (Point 452 43) |
|
4482 |
) |
|
4483 |
(ViewSpec |
|
4484 |
name: 'MaximumMemoryLimitBox' |
|
4485 |
component: |
|
4486 |
(SpecCollection |
|
4487 |
collection: ( |
|
4488 |
(InputFieldSpec |
|
4489 |
name: 'EntryField24' |
|
4490 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4491 |
model: maxOldSpace |
|
4492 |
type: fileSize |
|
4493 |
formatString: '' |
|
4494 |
acceptOnReturn: true |
|
4495 |
acceptOnTab: true |
|
4496 |
acceptOnLostFocus: true |
|
4497 |
acceptOnPointerLeave: true |
|
4498 |
) |
|
4499 |
(LabelSpec |
|
4500 |
label: 'Maximum Memory Limit:' |
|
4501 |
name: 'Label46' |
|
4502 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4503 |
translateLabel: true |
|
4504 |
adjust: right |
|
4505 |
) |
|
4506 |
(LabelSpec |
|
4507 |
label: 'Never allocate more than this amount of memory' |
|
4508 |
name: 'Label47' |
|
4509 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4510 |
translateLabel: true |
|
4511 |
adjust: left |
|
4512 |
) |
|
4513 |
(DividerSpec |
|
4514 |
name: 'Separator25' |
|
4515 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4516 |
) |
|
4517 |
) |
|
4518 |
||
4519 |
) |
|
4520 |
extent: (Point 452 43) |
|
4521 |
) |
|
4522 |
(ViewSpec |
|
4523 |
name: 'QuickAllocationLimitBox' |
|
4524 |
component: |
|
4525 |
(SpecCollection |
|
4526 |
collection: ( |
|
4527 |
(InputFieldSpec |
|
4528 |
name: 'EntryField14' |
|
4529 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4530 |
model: fastMoreLimit |
|
4531 |
type: fileSize |
|
4532 |
acceptOnReturn: true |
|
4533 |
acceptOnTab: true |
|
4534 |
acceptOnLostFocus: true |
|
4535 |
acceptOnPointerLeave: true |
|
4536 |
) |
|
4537 |
(LabelSpec |
|
4538 |
label: 'Quick Allocation Limit:' |
|
4539 |
name: 'Label26' |
|
4540 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4541 |
translateLabel: true |
|
4542 |
adjust: right |
|
4543 |
) |
|
4544 |
(LabelSpec |
|
4545 |
label: 'Quickly allocate more memory (suppress GC) up to this limit' |
|
4546 |
name: 'Label27' |
|
4547 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4548 |
translateLabel: true |
|
4549 |
adjust: left |
|
4550 |
) |
|
4551 |
(DividerSpec |
|
4552 |
name: 'Separator15' |
|
4553 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4554 |
) |
|
4555 |
) |
|
4556 |
||
4557 |
) |
|
4558 |
extent: (Point 452 43) |
|
4559 |
) |
|
4560 |
(ViewSpec |
|
4561 |
name: 'IncrementalGCAllocationTriggerBox' |
|
4562 |
component: |
|
4563 |
(SpecCollection |
|
4564 |
collection: ( |
|
4565 |
(InputFieldSpec |
|
4566 |
name: 'EntryField25' |
|
4567 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4568 |
model: igcLimit |
|
4569 |
type: fileSize |
|
4570 |
acceptOnReturn: true |
|
4571 |
acceptOnTab: true |
|
4572 |
acceptOnLostFocus: true |
|
4573 |
acceptOnPointerLeave: true |
|
4574 |
) |
|
4575 |
(LabelSpec |
|
4576 |
label: 'Incremental GC Allocation Trigger:' |
|
4577 |
name: 'Label48' |
|
4578 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4579 |
translateLabel: true |
|
4580 |
adjust: right |
|
4581 |
) |
|
4582 |
(LabelSpec |
|
4583 |
label: 'Start IGC whenever this amount has been allocated' |
|
4584 |
name: 'Label49' |
|
4585 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4586 |
translateLabel: true |
|
4587 |
adjust: left |
|
4588 |
) |
|
4589 |
(DividerSpec |
|
4590 |
name: 'Separator26' |
|
4591 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4592 |
) |
|
4593 |
) |
|
4594 |
||
4595 |
) |
|
4596 |
extent: (Point 452 43) |
|
4597 |
) |
|
4598 |
(ViewSpec |
|
4599 |
name: 'IncrementalGCFreespaceTriggerBox' |
|
4600 |
component: |
|
4601 |
(SpecCollection |
|
4602 |
collection: ( |
|
4603 |
(InputFieldSpec |
|
4604 |
name: 'EntryField26' |
|
4605 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4606 |
model: igcFreeLimit |
|
4607 |
type: fileSize |
|
4608 |
acceptOnReturn: true |
|
4609 |
acceptOnTab: true |
|
4610 |
acceptOnLostFocus: true |
|
4611 |
acceptOnPointerLeave: true |
|
4612 |
) |
|
4613 |
(LabelSpec |
|
4614 |
label: 'Incremental GC Freespace Trigger:' |
|
4615 |
name: 'Label50' |
|
4616 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4617 |
translateLabel: true |
|
4618 |
adjust: right |
|
4619 |
) |
|
4620 |
(LabelSpec |
|
4621 |
label: 'Start IGC whenever freespace drops below this' |
|
4622 |
name: 'Label51' |
|
4623 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4624 |
translateLabel: true |
|
4625 |
adjust: left |
|
4626 |
) |
|
4627 |
(DividerSpec |
|
4628 |
name: 'Separator27' |
|
4629 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4630 |
) |
|
4631 |
) |
|
4632 |
||
4633 |
) |
|
4634 |
extent: (Point 452 43) |
|
4635 |
) |
|
4636 |
(ViewSpec |
|
4637 |
name: 'GCAmountBox' |
|
4638 |
component: |
|
4639 |
(SpecCollection |
|
4640 |
collection: ( |
|
4641 |
(InputFieldSpec |
|
4642 |
name: 'EntryField17' |
|
4643 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4644 |
model: igcFreeAmount |
|
4645 |
type: fileSize |
|
4646 |
acceptOnReturn: true |
|
4647 |
acceptOnTab: true |
|
4648 |
acceptOnLostFocus: true |
|
4649 |
acceptOnPointerLeave: true |
|
4650 |
) |
|
4651 |
(LabelSpec |
|
4652 |
label: 'Incremental GC Amount:' |
|
4653 |
name: 'Label32' |
|
4654 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4655 |
translateLabel: true |
|
4656 |
adjust: right |
|
4657 |
) |
|
4658 |
(LabelSpec |
|
4659 |
label: 'Try to keep this amount for peak requests' |
|
4660 |
name: 'Label33' |
|
4661 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4662 |
translateLabel: true |
|
4663 |
adjust: left |
|
4664 |
) |
|
4665 |
(DividerSpec |
|
4666 |
name: 'Separator18' |
|
4667 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4668 |
) |
|
4669 |
) |
|
4670 |
||
4671 |
) |
|
4672 |
extent: (Point 452 43) |
|
4673 |
) |
|
4674 |
(ViewSpec |
|
4675 |
name: 'OldspaceIncrementBox' |
|
4676 |
component: |
|
4677 |
(SpecCollection |
|
4678 |
collection: ( |
|
4679 |
(InputFieldSpec |
|
4680 |
name: 'EntryField18' |
|
4681 |
layout: (LayoutFrame -95 1 3 0 -5 1.0 23 0) |
|
4682 |
model: oldIncr |
|
4683 |
type: fileSize |
|
4684 |
acceptOnReturn: true |
|
4685 |
acceptOnTab: true |
|
4686 |
acceptOnLostFocus: true |
|
4687 |
acceptOnPointerLeave: true |
|
4688 |
) |
|
4689 |
(LabelSpec |
|
4690 |
label: 'Oldspace Increment:' |
|
4691 |
name: 'Label34' |
|
4692 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4693 |
translateLabel: true |
|
4694 |
adjust: right |
|
4695 |
) |
|
4696 |
(LabelSpec |
|
4697 |
label: 'Increase oldSpace in chunks of this size' |
|
4698 |
name: 'Label35' |
|
4699 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4700 |
translateLabel: true |
|
4701 |
adjust: left |
|
4702 |
) |
|
4703 |
(DividerSpec |
|
4704 |
name: 'Separator19' |
|
4705 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4706 |
) |
|
4707 |
) |
|
4708 |
||
4709 |
) |
|
4710 |
extent: (Point 452 43) |
|
4711 |
) |
|
4712 |
(ViewSpec |
|
4713 |
name: 'OldSpaceCompressLimitBox' |
|
4714 |
component: |
|
4715 |
(SpecCollection |
|
4716 |
collection: ( |
|
4717 |
(InputFieldSpec |
|
4718 |
name: 'EntryField19' |
|
4719 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4720 |
model: compressLimit |
|
4721 |
type: fileSize |
|
4722 |
acceptOnReturn: true |
|
4723 |
acceptOnTab: true |
|
4724 |
acceptOnLostFocus: true |
|
4725 |
acceptOnPointerLeave: true |
|
4726 |
) |
|
4727 |
(LabelSpec |
|
4728 |
label: 'Oldspace Compress Limit:' |
|
4729 |
name: 'Label36' |
|
4730 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4731 |
translateLabel: true |
|
4732 |
adjust: right |
|
4733 |
) |
|
4734 |
(LabelSpec |
|
4735 |
label: 'Use 2-pass compressing GC if > 0 and more memory is in use' |
|
4736 |
name: 'Label37' |
|
4737 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4738 |
translateLabel: true |
|
4739 |
adjust: left |
|
4740 |
) |
|
4741 |
(DividerSpec |
|
4742 |
name: 'Separator20' |
|
4743 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4744 |
) |
|
4745 |
) |
|
4746 |
||
4747 |
) |
|
4748 |
extent: (Point 452 43) |
|
4749 |
) |
|
4750 |
(ViewSpec |
|
4751 |
name: 'StackLimitBox' |
|
4752 |
component: |
|
4753 |
(SpecCollection |
|
4754 |
collection: ( |
|
4755 |
(InputFieldSpec |
|
4756 |
name: 'EntryField20' |
|
4757 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4758 |
enableChannel: supportsJustInTimeCompilation |
|
4759 |
model: stackLimit |
|
4760 |
type: fileSize |
|
4761 |
acceptOnReturn: true |
|
4762 |
acceptOnTab: true |
|
4763 |
acceptOnLostFocus: true |
|
4764 |
acceptOnPointerLeave: true |
|
4765 |
) |
|
4766 |
(LabelSpec |
|
4767 |
label: 'Stack Limit:' |
|
4768 |
name: 'Label38' |
|
4769 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4770 |
translateLabel: true |
|
4771 |
adjust: right |
|
4772 |
) |
|
4773 |
(LabelSpec |
|
4774 |
label: 'Trigger recursionInterrupt if more stack is used by a process' |
|
4775 |
name: 'Label39' |
|
4776 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4777 |
translateLabel: true |
|
4778 |
adjust: left |
|
4779 |
) |
|
4780 |
(DividerSpec |
|
4781 |
name: 'Separator21' |
|
4782 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4783 |
) |
|
4784 |
) |
|
4785 |
||
4786 |
) |
|
4787 |
extent: (Point 452 43) |
|
4788 |
) |
|
4789 |
(ViewSpec |
|
4790 |
name: 'CodeLimitBox' |
|
4791 |
component: |
|
4792 |
(SpecCollection |
|
4793 |
collection: ( |
|
4794 |
(InputFieldSpec |
|
4795 |
name: 'EntryField21' |
|
4796 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4797 |
enableChannel: supportsJustInTimeCompilation |
|
4798 |
model: codeLimit |
|
4799 |
type: fileSize |
|
4800 |
acceptOnReturn: true |
|
4801 |
acceptOnTab: true |
|
4802 |
acceptOnLostFocus: true |
|
4803 |
acceptOnPointerLeave: true |
|
4804 |
) |
|
4805 |
(LabelSpec |
|
4806 |
label: 'Dynamic code Limit:' |
|
4807 |
name: 'Label40' |
|
4808 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4809 |
translateLabel: true |
|
4810 |
adjust: right |
|
4811 |
) |
|
4812 |
(LabelSpec |
|
4813 |
label: 'Flush dynamic compiled code to stay within this limit' |
|
4814 |
name: 'Label41' |
|
4815 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4816 |
translateLabel: true |
|
4817 |
adjust: left |
|
4818 |
) |
|
4819 |
(DividerSpec |
|
4820 |
name: 'Separator22' |
|
4821 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4822 |
) |
|
4823 |
) |
|
4824 |
||
4825 |
) |
|
4826 |
extent: (Point 452 43) |
|
4827 |
) |
|
4828 |
(ViewSpec |
|
4829 |
name: 'CodeTriggerBox' |
|
4830 |
component: |
|
4831 |
(SpecCollection |
|
4832 |
collection: ( |
|
4833 |
(InputFieldSpec |
|
4834 |
name: 'EntryField22' |
|
4835 |
layout: (LayoutFrame -95 1 3 0 -5 1 23 0) |
|
4836 |
model: codeTrigger |
|
4837 |
type: fileSize |
|
4838 |
acceptOnReturn: true |
|
4839 |
acceptOnTab: true |
|
4840 |
acceptOnLostFocus: true |
|
4841 |
acceptOnPointerLeave: true |
|
4842 |
) |
|
4843 |
(LabelSpec |
|
4844 |
label: 'Dynamic code Limit:' |
|
4845 |
name: 'Label42' |
|
4846 |
layout: (LayoutFrame 0 0 3 0 -95 1 23 0) |
|
4847 |
translateLabel: true |
|
4848 |
adjust: right |
|
4849 |
) |
|
4850 |
(LabelSpec |
|
4851 |
label: 'Start incremental GC whenever this amount of code has been allocated' |
|
4852 |
name: 'Label43' |
|
4853 |
layout: (LayoutFrame 0 0.0 23 0 0 1.0 43 0) |
|
4854 |
translateLabel: true |
|
4855 |
adjust: left |
|
4856 |
) |
|
4857 |
(DividerSpec |
|
4858 |
name: 'Separator23' |
|
4859 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0) |
|
4860 |
) |
|
4861 |
) |
|
4862 |
||
4863 |
) |
|
4864 |
extent: (Point 452 43) |
|
4865 |
) |
|
4866 |
) |
|
4867 |
||
4868 |
) |
|
5433 | 4869 |
) |
4870 |
) |
|
4871 |
||
4872 |
) |
|
4873 |
) |
|
4286 | 4874 |
! ! |
4875 |
||
4876 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'! |
|
4877 |
||
5030 | 4878 |
basicSaveSettings |
4574 | 4879 |
|
4880 |
ObjectMemory freeSpaceGCAmount:self igcFreeAmount value. |
|
4881 |
ObjectMemory freeSpaceGCLimit:self igcFreeLimit value. |
|
4882 |
ObjectMemory incrementalGCLimit:self igcLimit value. |
|
4883 |
ObjectMemory newSpaceSize:self newSpaceSize value. |
|
4884 |
ObjectMemory oldSpaceIncrement:self oldIncr value. |
|
4885 |
Process defaultMaximumStackSize:self stackLimit value. |
|
4886 |
ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value. |
|
4887 |
ObjectMemory maxOldSpace:self maxOldSpace value. |
|
4888 |
ObjectMemory oldSpaceCompressLimit:self compressLimit value. |
|
4889 |
ObjectMemory dynamicCodeLimit:self codeLimit value. |
|
4890 |
ObjectMemory dynamicCodeGCTrigger:self codeTrigger value. |
|
4891 |
! |
|
4892 |
||
5101 | 4893 |
helpFilename |
4894 |
^ 'Launcher/memorySettings.html' |
|
4286 | 4895 |
! |
4896 |
||
5030 | 4897 |
readSettings |
4286 | 4898 |
self igcLimit value:ObjectMemory incrementalGCLimit. |
4899 |
self igcFreeLimit value:ObjectMemory freeSpaceGCLimit. |
|
4900 |
self igcFreeAmount value:ObjectMemory freeSpaceGCAmount. |
|
4901 |
self newSpaceSize value:ObjectMemory newSpaceSize. |
|
4902 |
self oldIncr value:ObjectMemory oldSpaceIncrement. |
|
4903 |
self compressLimit value:ObjectMemory oldSpaceCompressLimit. |
|
4904 |
self codeLimit value:ObjectMemory dynamicCodeLimit. |
|
4905 |
self codeTrigger value:ObjectMemory dynamicCodeGCTrigger. |
|
4906 |
self stackLimit value:Process defaultMaximumStackSize. |
|
4907 |
self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1). |
|
4908 |
self maxOldSpace value:ObjectMemory maxOldSpace. |
|
4574 | 4909 |
self modifiedChannel value:false |
4286 | 4910 |
! ! |
4911 |
||
4912 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'! |
|
4913 |
||
5030 | 4914 |
codeLimit |
5029 | 4915 |
|
4916 |
codeLimit isNil ifTrue:[ |
|
4917 |
codeLimit := ObjectMemory dynamicCodeLimit asValue. |
|
5041 | 4918 |
codeLimit onChangeSend:#updateModifiedChannel to:self |
5029 | 4919 |
]. |
4920 |
^ codeLimit. |
|
4921 |
! |
|
4922 |
||
5030 | 4923 |
codeTrigger |
5029 | 4924 |
|
4925 |
codeTrigger isNil ifTrue:[ |
|
4926 |
codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue. |
|
5041 | 4927 |
codeTrigger onChangeSend:#updateModifiedChannel to:self |
5029 | 4928 |
]. |
4929 |
^ codeTrigger. |
|
4930 |
! |
|
4931 |
||
5030 | 4932 |
compressLimit |
4933 |
||
4934 |
compressLimit isNil ifTrue:[ |
|
4935 |
compressLimit := ObjectMemory oldSpaceCompressLimit asValue. |
|
5041 | 4936 |
compressLimit onChangeSend:#updateModifiedChannel to:self |
5030 | 4937 |
]. |
4938 |
^ compressLimit. |
|
4939 |
! |
|
4940 |
||
4941 |
fastMoreLimit |
|
5029 | 4942 |
|
4943 |
fastMoreLimit isNil ifTrue:[ |
|
4944 |
fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue. |
|
5041 | 4945 |
fastMoreLimit onChangeSend:#updateModifiedChannel to:self |
5029 | 4946 |
]. |
4947 |
^ fastMoreLimit. |
|
4948 |
! |
|
4949 |
||
5030 | 4950 |
igcFreeAmount |
5029 | 4951 |
|
4952 |
igcFreeAmount isNil ifTrue:[ |
|
4953 |
igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue. |
|
5041 | 4954 |
igcFreeAmount onChangeSend:#updateModifiedChannel to:self |
5029 | 4955 |
]. |
4956 |
^ igcFreeAmount. |
|
4957 |
! |
|
4958 |
||
5030 | 4959 |
igcFreeLimit |
5029 | 4960 |
|
4961 |
igcFreeLimit isNil ifTrue:[ |
|
4962 |
igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue. |
|
5041 | 4963 |
igcFreeLimit onChangeSend:#updateModifiedChannel to:self |
5029 | 4964 |
]. |
4965 |
^ igcFreeLimit. |
|
4966 |
! |
|
4967 |
||
5030 | 4968 |
igcLimit |
5029 | 4969 |
|
4970 |
igcLimit isNil ifTrue:[ |
|
4971 |
igcLimit := ObjectMemory incrementalGCLimit asValue. |
|
5041 | 4972 |
igcLimit onChangeSend:#updateModifiedChannel to:self |
5029 | 4973 |
]. |
4974 |
^ igcLimit. |
|
4975 |
! |
|
4976 |
||
5030 | 4977 |
maxOldSpace |
5029 | 4978 |
|
4979 |
maxOldSpace isNil ifTrue:[ |
|
4980 |
maxOldSpace := ObjectMemory maxOldSpace asValue. |
|
5041 | 4981 |
maxOldSpace onChangeSend:#updateModifiedChannel to:self |
5029 | 4982 |
]. |
4983 |
^ maxOldSpace. |
|
4984 |
! |
|
4985 |
||
5030 | 4986 |
newSpaceSize |
5029 | 4987 |
|
4988 |
newSpaceSize isNil ifTrue:[ |
|
4989 |
newSpaceSize := ObjectMemory newSpaceSize asValue. |
|
5041 | 4990 |
newSpaceSize onChangeSend:#updateModifiedChannel to:self |
5029 | 4991 |
]. |
4992 |
^ newSpaceSize. |
|
4993 |
! |
|
4994 |
||
5030 | 4995 |
oldIncr |
4286 | 4996 |
|
4997 |
oldIncr isNil ifTrue:[ |
|
4998 |
oldIncr := ObjectMemory oldSpaceIncrement asValue. |
|
5041 | 4999 |
oldIncr onChangeSend:#updateModifiedChannel to:self |
4286 | 5000 |
]. |
5001 |
^ oldIncr. |
|
5002 |
! |
|
5003 |
||
5030 | 5004 |
stackLimit |
4286 | 5005 |
|
5006 |
stackLimit isNil ifTrue:[ |
|
5007 |
stackLimit := Process defaultMaximumStackSize asValue. |
|
5041 | 5008 |
stackLimit onChangeSend:#updateModifiedChannel to:self |
4286 | 5009 |
]. |
5010 |
^ stackLimit. |
|
5011 |
! |
|
5012 |
||
5030 | 5013 |
supportsJustInTimeCompilation |
4286 | 5014 |
|
5015 |
^ ObjectMemory supportsJustInTimeCompilation. |
|
5016 |
! |
|
5017 |
||
5030 | 5018 |
warningLabelHolder |
4286 | 5019 |
|
5020 |
warningLabelHolder isNil ifTrue:[ |
|
5021 |
warningLabelHolder := ValueHolder new. |
|
5022 |
]. |
|
5023 |
^ warningLabelHolder. |
|
5024 |
! ! |
|
5025 |
||
5026 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'! |
|
5027 |
||
5030 | 5028 |
initialize |
4574 | 5029 |
super initialize. |
5576 | 5030 |
self warningLabelHolder |
6023 | 5031 |
value:(StringCollection |
5032 |
with:(resources string:'Warning - invalid settings may result in failures or poor performance.') |
|
5033 |
with:(resources string:'You have been warned.') allBold |
|
5034 |
). |
|
4286 | 5035 |
! ! |
5036 |
||
5037 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'! |
|
5038 |
||
5030 | 5039 |
hasUnsavedChanges |
5918 | 5040 |
ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true]. |
5041 |
ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true]. |
|
5042 |
ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true]. |
|
5043 |
ObjectMemory newSpaceSize ~= self newSpaceSize value ifTrue:[^ true]. |
|
5044 |
ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true]. |
|
5045 |
Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true]. |
|
5046 |
(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true]. |
|
5047 |
ObjectMemory maxOldSpace ~= self maxOldSpace value ifTrue:[^ true]. |
|
5048 |
ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true]. |
|
5049 |
ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true]. |
|
5050 |
ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true]. |
|
5051 |
^ false |
|
4286 | 5052 |
! ! |
5053 |
||
4312 | 5054 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'! |
5055 |
||
5030 | 5056 |
defaultIcon |
4312 | 5057 |
"This resource specification was automatically generated |
5058 |
by the ImageEditor of ST/X." |
|
5059 |
||
5060 |
"Do not manually edit this!! If it is corrupted, |
|
5061 |
the ImageEditor may not be able to read the specification." |
|
5062 |
||
5063 |
" |
|
5064 |
self defaultIcon inspect |
|
5065 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
5066 |
Icon flushCachedIcons |
|
5067 |
" |
|
5068 |
||
5069 |
<resource: #image> |
|
5070 |
||
5071 |
^Icon |
|
5072 |
constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon' |
|
4948 | 5073 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
4949 | 5074 |
@@!!8@@@@@@BG @@@!!1]P@@@@AWE8@@!!1 '' @@@BGFB^@!!1 5Q8@@BGFBUG !!DWQPH@@B@Q]HD \QFA] @@A1DXE6X"DQ]VY&Y"HQE5I&@ ]QHD@FHBAED"TG |
5075 |
]QD$Q5IVI5ERQ5 !!TVPW]BUBEQIF$REXPT^FY1HV!!@$''HXPXIWU"]!!!!%@GI(BAFGUV\&!!FT@UGQ"PQEW^D]EYP@@PFHHETU5A@U%@@@@I@BGTRT@U%@@@@AH |
|
5076 |
P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b') ; colorMapFromArray:#[0 0 0 224 224 224 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160 96 96 96]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(W<?8_<???<=:^<???<???<???<_??<O??<O??<B?=\@?<8@?=0@?? @O?@@W>@@K @@D@@') ; yourself); yourself] |
|
4312 | 5077 |
! ! |
5078 |
||
4310 | 5079 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'! |
5080 |
||
5030 | 5081 |
windowSpec |
4310 | 5082 |
"This resource specification was automatically generated |
5083 |
by the UIPainter of ST/X." |
|
5084 |
||
5085 |
"Do not manually edit this!! If it is corrupted, |
|
5086 |
the UIPainter may not be able to read the specification." |
|
5087 |
||
5088 |
" |
|
4434 | 5089 |
UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec |
5090 |
AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec |
|
5091 |
AbstractSettingsApplication::MiscCommunicationSettingsAppl open |
|
4310 | 5092 |
" |
5093 |
||
5094 |
<resource: #canvas> |
|
5095 |
||
5096 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5097 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5098 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5099 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5100 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5101 |
label: 'Communication Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5102 |
name: 'Communication Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5103 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5104 |
bounds: (Rectangle 14 46 614 560) |
4310 | 5105 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5106 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5107 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5108 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5109 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5110 |
name: 'VerticalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5111 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5112 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5113 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5114 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5115 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5116 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5117 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5118 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5119 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5120 |
label: 'Remote browsing' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5121 |
name: 'Label1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5122 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5123 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5124 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5125 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5126 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5127 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5128 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5129 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5130 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5131 |
label: 'Remote browsing enabled' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5132 |
name: 'CheckBox1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5133 |
layout: (LayoutFrame 5 0 0 0 600 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5134 |
enableChannel: hasRemoteBrowsingSupport |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5135 |
model: remoteBrowsingEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5136 |
translateLabel: true |
5086 | 5137 |
) |
5138 |
) |
|
5139 |
||
5140 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5141 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5142 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5143 |
(DividerSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5144 |
name: 'Separator1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5145 |
extent: (Point 600 4) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5146 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5147 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5148 |
label: 'Window migration' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5149 |
name: 'Label2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5150 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5151 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5152 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5153 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5154 |
name: 'Box2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5155 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5156 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5157 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5158 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5159 |
label: 'Window migration enabled' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5160 |
name: 'CheckBox2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5161 |
layout: (LayoutFrame 5 0 0 0 600 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5162 |
enableChannel: hasWindowMigrationServer |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5163 |
model: windowMigrationEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5164 |
translateLabel: true |
5086 | 5165 |
) |
5166 |
) |
|
5167 |
||
5168 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5169 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5170 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5171 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5172 |
name: 'Box3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5173 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5174 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5175 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5176 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5177 |
label: 'Password check' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5178 |
name: 'CheckBox3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5179 |
layout: (LayoutFrame 5 0 0 0 600 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5180 |
enableChannel: enablePasswordCheck |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5181 |
model: windowMigrationAuthenticate |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5182 |
translateLabel: true |
5086 | 5183 |
) |
5184 |
) |
|
5185 |
||
5186 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5187 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5188 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5189 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5190 |
name: 'Box4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5191 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5192 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5193 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5194 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5195 |
label: 'Password:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5196 |
name: 'Label3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5197 |
layout: (LayoutFrame 0 0 0 0 150 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5198 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5199 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5200 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5201 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5202 |
name: 'EntryField1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5203 |
layout: (LayoutFrame 150 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5204 |
enableChannel: windowMigrationAuthenticate |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5205 |
model: windowMigrationPassword |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5206 |
type: password |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5207 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5208 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5209 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5210 |
acceptOnPointerLeave: true |
4310 | 5211 |
) |
5212 |
) |
|
5213 |
||
5214 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5215 |
extent: (Point 600 22) |
4310 | 5216 |
) |
5217 |
) |
|
5218 |
||
5219 |
) |
|
5220 |
) |
|
5221 |
) |
|
5222 |
||
5223 |
) |
|
5224 |
) |
|
5225 |
! ! |
|
5226 |
||
5227 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'! |
|
5228 |
||
5030 | 5229 |
basicSaveSettings |
4574 | 5230 |
|
5231 |
self hasRemoteBrowsingSupport ifTrue:[ |
|
5232 |
self remoteBrowsingEnabled value ifTrue:[ |
|
5233 |
SmalltalkShareServer serverRunning ifTrue:[ |
|
5234 |
SmalltalkShareServer killAll |
|
5235 |
]. |
|
5236 |
] ifFalse:[ |
|
5237 |
SmalltalkShareServer serverRunning not ifTrue:[ |
|
5238 |
SmalltalkShareServer start. |
|
5239 |
"/ must wait a bit; give it a chance to |
|
5240 |
"/ really start (before checking) |
|
5241 |
Delay waitForSeconds:0.5. |
|
5242 |
SmalltalkShareServer serverRunning ifFalse:[ |
|
5243 |
self warn:'SmalltalkShareServer startup failed (see stderr).' |
|
5244 |
] |
|
5245 |
]. |
|
5246 |
]. |
|
5247 |
]. |
|
5248 |
self hasWindowMigrationServer ifTrue:[ |
|
5249 |
self windowMigrationAuthenticate value ifTrue:[ |
|
5250 |
WindowMigrationServer password:self windowMigrationPassword value. |
|
5251 |
] ifFalse:[ |
|
5252 |
WindowMigrationServer password:nil |
|
5253 |
]. |
|
5254 |
self windowMigrationEnabled value ifTrue:[ |
|
5255 |
WindowMigrationServer serverRunning ifTrue:[ |
|
5256 |
WindowMigrationServer stop |
|
5257 |
]. |
|
5258 |
] ifFalse:[ |
|
5259 |
WindowMigrationServer serverRunning not ifTrue:[ |
|
5260 |
WindowMigrationServer start. |
|
5261 |
"/ must wait a bit; give it a chance to |
|
5262 |
"/ really start (before checking) |
|
5263 |
Delay waitForSeconds:0.5. |
|
5264 |
WindowMigrationServer serverRunning ifFalse:[ |
|
5265 |
self warn:'WindowMigrationServer startup failed (see stderr).' |
|
5266 |
] |
|
5267 |
]. |
|
5268 |
]. |
|
5269 |
]. |
|
5270 |
! |
|
5271 |
||
5101 | 5272 |
helpFilename |
5273 |
^ 'Launcher/communicationsSettings.html' |
|
4310 | 5274 |
! |
5275 |
||
5030 | 5276 |
readSettings |
5020
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5277 |
self remoteBrowsingEnabled |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5278 |
value:(self hasRemoteBrowsingSupport |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5279 |
and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]). |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5280 |
self windowMigrationEnabled |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5281 |
value:(self hasWindowMigrationServer |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5282 |
and:[ WindowMigrationServer isLoaded |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5283 |
and:[WindowMigrationServer serverRunning] |
4574 | 5284 |
]). |
4310 | 5285 |
(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[ |
5286 |
self windowMigrationPassword value:WindowMigrationServer password. |
|
4574 | 5287 |
self windowMigrationAuthenticate |
5288 |
value:self windowMigrationPassword value notNil |
|
4310 | 5289 |
] ifFalse:[ |
5290 |
self windowMigrationPassword value:nil. |
|
4574 | 5291 |
self windowMigrationAuthenticate value:false |
5292 |
]. |
|
5293 |
self modifiedChannel value:false |
|
4310 | 5294 |
! ! |
5295 |
||
5296 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'! |
|
5297 |
||
5030 | 5298 |
enablePasswordCheck |
4310 | 5299 |
|
5300 |
enablePasswordCheck isNil ifTrue:[ |
|
5301 |
self hasWindowMigrationServer not ifTrue:[ |
|
5302 |
enablePasswordCheck := false asValue. |
|
5303 |
] ifFalse:[ |
|
5304 |
enablePasswordCheck := self windowMigrationEnabled. |
|
5305 |
]. |
|
5306 |
]. |
|
5307 |
^ enablePasswordCheck. |
|
5308 |
! |
|
5309 |
||
5030 | 5310 |
remoteBrowsingEnabled |
4310 | 5311 |
|
5312 |
remoteBrowsingEnabled isNil ifTrue:[ |
|
5313 |
remoteBrowsingEnabled := true asValue. |
|
5041 | 5314 |
remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self. |
4310 | 5315 |
]. |
5316 |
^ remoteBrowsingEnabled. |
|
5317 |
! |
|
5318 |
||
5030 | 5319 |
windowMigrationAuthenticate |
4310 | 5320 |
|
5321 |
windowMigrationAuthenticate isNil ifTrue:[ |
|
5322 |
windowMigrationAuthenticate := true asValue. |
|
5041 | 5323 |
windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self. |
4310 | 5324 |
]. |
5325 |
^ windowMigrationAuthenticate. |
|
5326 |
! |
|
5327 |
||
5030 | 5328 |
windowMigrationEnabled |
4310 | 5329 |
|
5330 |
windowMigrationEnabled isNil ifTrue:[ |
|
5331 |
windowMigrationEnabled := true asValue. |
|
5041 | 5332 |
windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self. |
4310 | 5333 |
]. |
5334 |
^ windowMigrationEnabled. |
|
5335 |
! |
|
5336 |
||
5030 | 5337 |
windowMigrationPassword |
4310 | 5338 |
|
5339 |
windowMigrationPassword isNil ifTrue:[ |
|
5340 |
windowMigrationPassword := ValueHolder new. |
|
5041 | 5341 |
windowMigrationPassword onChangeSend:#updateModifiedChannel to:self. |
4310 | 5342 |
]. |
5343 |
^ windowMigrationPassword. |
|
5344 |
! ! |
|
5345 |
||
5346 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'! |
|
5347 |
||
5030 | 5348 |
update:something with:aParameter from:changedObject |
4310 | 5349 |
"Invoked when an object that I depend upon sends a change notification." |
5350 |
||
5351 |
"stub code automatically generated - please change as required" |
|
5352 |
||
5353 |
"/ changedObject == self allOfThem ifTrue:[ |
|
5354 |
"/ ^ self. |
|
5355 |
"/ ]. |
|
5356 |
||
5357 |
super update:something with:aParameter from:changedObject |
|
5358 |
! ! |
|
5359 |
||
5360 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'! |
|
5361 |
||
5030 | 5362 |
initialize |
4574 | 5363 |
super initialize. |
5364 |
self readSettings. |
|
4310 | 5365 |
! ! |
5366 |
||
5367 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'! |
|
5368 |
||
5030 | 5369 |
hasRemoteBrowsingSupport |
4310 | 5370 |
|
5371 |
^ SmalltalkShareServer notNil |
|
5372 |
! |
|
5373 |
||
5030 | 5374 |
hasUnsavedChanges |
5020
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5375 |
(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[ |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5376 |
self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[^ true]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5377 |
]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5378 |
self hasWindowMigrationServer ifTrue:[ |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5379 |
WindowMigrationServer isLoaded ifFalse:[ |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5380 |
self windowMigrationEnabled value ifTrue:[ |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5381 |
WindowMigrationServer autoload. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5382 |
]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5383 |
]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5384 |
(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[^ true]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5385 |
(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[^ true]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5386 |
(self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil) ifTrue:[^ true]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5387 |
]. |
85c86c53b688
dont crash if no WindowMigration class is loaded
Claus Gittinger <cg@exept.de>
parents:
5011
diff
changeset
|
5388 |
^ false |
4310 | 5389 |
! |
5390 |
||
5030 | 5391 |
hasWindowMigrationServer |
4310 | 5392 |
|
5393 |
^ WindowMigrationServer notNil |
|
5394 |
! ! |
|
5395 |
||
4398 | 5396 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'! |
5397 |
||
5030 | 5398 |
defaultIcon |
4398 | 5399 |
"This resource specification was automatically generated |
5400 |
by the ImageEditor of ST/X." |
|
5401 |
||
5402 |
"Do not manually edit this!! If it is corrupted, |
|
5403 |
the ImageEditor may not be able to read the specification." |
|
5404 |
||
5405 |
" |
|
5406 |
self defaultIcon inspect |
|
5407 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
5408 |
Icon flushCachedIcons |
|
5409 |
" |
|
5410 |
||
5411 |
<resource: #image> |
|
5412 |
||
5413 |
^Icon |
|
5414 |
constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon' |
|
5415 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
4948 | 5416 |
@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@ |
5417 |
@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB |
|
5418 |
@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O |
|
5419 |
DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB |
|
5420 |
@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB |
|
5421 |
B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself] |
|
4398 | 5422 |
! ! |
5423 |
||
5424 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'! |
|
4286 | 5425 |
|
5030 | 5426 |
windowSpec |
4286 | 5427 |
"This resource specification was automatically generated |
5428 |
by the UIPainter of ST/X." |
|
5429 |
||
5430 |
"Do not manually edit this!! If it is corrupted, |
|
5431 |
the UIPainter may not be able to read the specification." |
|
5432 |
||
5433 |
" |
|
4398 | 5434 |
UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec |
5435 |
AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec |
|
5436 |
AbstractSettingsApplication::MiscDisplaySettingsAppl open |
|
4286 | 5437 |
" |
5438 |
||
5439 |
<resource: #canvas> |
|
5440 |
||
5441 |
^ |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5442 |
#(FullSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5443 |
name: windowSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5444 |
window: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5445 |
(WindowSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5446 |
label: 'Display settings' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5447 |
name: 'Display settings' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5448 |
min: (Point 10 10) |
6015 | 5449 |
bounds: (Rectangle 0 0 445 483) |
4286 | 5450 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5451 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5452 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5453 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5454 |
(VerticalPanelViewSpec |
6008 | 5455 |
name: 'VerticalPanel1' |
6015 | 5456 |
layout: (LayoutFrame 0 0 0 0 0 1 434 0) |
6008 | 5457 |
horizontalLayout: fitSpace |
5458 |
verticalLayout: topSpace |
|
5459 |
horizontalSpace: 5 |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5460 |
verticalSpace: 3 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5461 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5462 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5463 |
collection: ( |
6008 | 5464 |
(CheckBoxSpec |
6015 | 5465 |
label: 'Use Native Widgets (Experimental & Unfinished Feature)' |
6014 | 5466 |
name: 'NativeWidgets' |
6008 | 5467 |
enableChannel: displaySupportsNativeWidgets |
5468 |
model: nativeWidgets |
|
5469 |
translateLabel: true |
|
6015 | 5470 |
extent: (Point 435 22) |
6008 | 5471 |
) |
6014 | 5472 |
(CheckBoxSpec |
6015 | 5473 |
label: 'Use Native Dialogs (Experimental & Unfinished Feature)' |
6014 | 5474 |
name: 'NativeDialogs' |
5475 |
enableChannel: displaySupportsNativeDialogs |
|
5476 |
model: nativeDialogs |
|
5477 |
translateLabel: true |
|
6015 | 5478 |
extent: (Point 435 22) |
6014 | 5479 |
) |
6012 | 5480 |
(ViewSpec |
5481 |
name: 'SeparatingSpace1' |
|
6015 | 5482 |
extent: (Point 435 5) |
6012 | 5483 |
) |
5484 |
(DividerSpec |
|
5485 |
name: 'Separator1' |
|
6015 | 5486 |
extent: (Point 435 4) |
6012 | 5487 |
) |
5488 |
(ViewSpec |
|
5489 |
name: 'SeparatingSpace2' |
|
6015 | 5490 |
extent: (Point 435 5) |
6012 | 5491 |
) |
6008 | 5492 |
(CheckBoxSpec |
5493 |
label: 'Shadows under PopUp Views' |
|
5494 |
name: 'shadows' |
|
5495 |
model: shadows |
|
5496 |
translateLabel: true |
|
6015 | 5497 |
extent: (Point 435 22) |
6008 | 5498 |
) |
5499 |
(CheckBoxSpec |
|
5500 |
label: 'Beeper enabled' |
|
5501 |
name: 'beepEnabled' |
|
5502 |
model: beepEnabled |
|
5503 |
translateLabel: true |
|
6015 | 5504 |
extent: (Point 435 22) |
6008 | 5505 |
) |
5506 |
(CheckBoxSpec |
|
5507 |
label: 'Boxes Return Focus to Previously Active View' |
|
5508 |
name: 'returnFocus' |
|
5509 |
model: returnFocus |
|
5510 |
translateLabel: true |
|
6015 | 5511 |
extent: (Point 435 22) |
6008 | 5512 |
) |
5513 |
(CheckBoxSpec |
|
5514 |
label: 'Views Catch Focus when Mapped' |
|
5515 |
name: 'takeFocus' |
|
5516 |
model: takeFocus |
|
5517 |
translateLabel: true |
|
6015 | 5518 |
extent: (Point 435 22) |
6008 | 5519 |
) |
5520 |
(CheckBoxSpec |
|
5521 |
label: 'Show Accelerator Keys in Menus' |
|
5522 |
name: 'showAccelerators' |
|
5523 |
model: showAccelerators |
|
5524 |
translateLabel: true |
|
6015 | 5525 |
extent: (Point 435 22) |
6008 | 5526 |
) |
5527 |
(CheckBoxSpec |
|
5528 |
label: 'Raise & Activate Windows on Click' |
|
5529 |
name: 'activateOnClick' |
|
5530 |
model: activateOnClick |
|
5531 |
translateLabel: true |
|
6015 | 5532 |
extent: (Point 435 22) |
6008 | 5533 |
) |
5534 |
(CheckBoxSpec |
|
5535 |
label: 'Focus Follows Mouse' |
|
5536 |
name: 'focusFollowsMouse' |
|
5537 |
model: focusFollowsMouse |
|
5538 |
translateLabel: true |
|
6015 | 5539 |
extent: (Point 435 22) |
6008 | 5540 |
) |
5541 |
(CheckBoxSpec |
|
5542 |
label: 'Opaque Variable Panel Resizing' |
|
5543 |
name: 'opaqueVariablePanelResize' |
|
5544 |
model: opaqueVariablePanelResize |
|
5545 |
translateLabel: true |
|
6015 | 5546 |
extent: (Point 435 22) |
6008 | 5547 |
) |
5548 |
(CheckBoxSpec |
|
5549 |
label: 'Opaque Table Column Resizing' |
|
5550 |
name: 'opaqueTableColumnResize' |
|
5551 |
model: opaqueTableColumnResize |
|
5552 |
translateLabel: true |
|
6015 | 5553 |
extent: (Point 435 22) |
6013 | 5554 |
) |
5555 |
(ViewSpec |
|
5556 |
name: 'SeparatingSpace3' |
|
6015 | 5557 |
extent: (Point 435 4) |
6013 | 5558 |
) |
5559 |
(DividerSpec |
|
5560 |
name: 'Separator2' |
|
6015 | 5561 |
extent: (Point 435 4) |
6013 | 5562 |
) |
5563 |
(ViewSpec |
|
5564 |
name: 'SeparatingSpace4' |
|
6015 | 5565 |
extent: (Point 435 3) |
6008 | 5566 |
) |
5567 |
(LabelSpec |
|
5568 |
label: 'Label' |
|
5569 |
name: 'Label1' |
|
5570 |
translateLabel: true |
|
5571 |
labelChannel: formatHostNameWindowLabel |
|
5572 |
adjust: right |
|
5573 |
useDefaultExtent: true |
|
5574 |
) |
|
5575 |
(ViewSpec |
|
6012 | 5576 |
name: 'WindowLabelBox' |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5577 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5578 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5579 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
5580 |
(CheckBoxSpec |
6008 | 5581 |
label: 'Window Label Format' |
5582 |
name: 'hostNameInLabelHolder' |
|
5583 |
layout: (LayoutFrame 0 0 -22 1 216 0 0 1) |
|
5584 |
model: hostNameInLabelHolder |
|
5585 |
translateLabel: true |
|
5586 |
) |
|
5587 |
(InputFieldSpec |
|
5588 |
name: 'hostNameInLabelEntryField' |
|
5589 |
layout: (LayoutFrame 218 0 -22 1 -5 1 0 1) |
|
5590 |
enableChannel: hostNameInLabelHolder |
|
5591 |
model: newWindowLabelFormat |
|
5592 |
immediateAccept: true |
|
5593 |
acceptOnReturn: true |
|
5594 |
acceptOnTab: true |
|
5595 |
acceptOnLostFocus: true |
|
5596 |
acceptOnPointerLeave: true |
|
4310 | 5597 |
) |
5598 |
) |
|
5599 |
||
5600 |
) |
|
6015 | 5601 |
extent: (Point 435 30) |
4387 | 5602 |
) |
4286 | 5603 |
) |
5604 |
||
5605 |
) |
|
5606 |
) |
|
5607 |
) |
|
5608 |
||
5609 |
) |
|
5610 |
) |
|
4398 | 5611 |
! ! |
5612 |
||
5613 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'! |
|
4286 | 5614 |
|
5030 | 5615 |
basicSaveSettings |
6030 | 5616 |
|currentScreen mustReopenTools| |
5617 |
||
5618 |
currentScreen := Screen current. |
|
5619 |
||
6025 | 5620 |
self displaySupportsNativeWidgets ifTrue:[ |
6030 | 5621 |
currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[ |
5622 |
mustReopenTools := true. |
|
5623 |
currentScreen nativeWidgets:self nativeWidgets value. |
|
5624 |
]. |
|
6025 | 5625 |
]. |
5626 |
self displaySupportsNativeDialogs ifTrue:[ |
|
6030 | 5627 |
currentScreen nativeDialogs:self nativeDialogs value. |
6025 | 5628 |
]. |
4574 | 5629 |
PopUpView shadows:self shadows value. |
6008 | 5630 |
|
4574 | 5631 |
(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel |
5632 |
or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[ |
|
5633 |
StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value. |
|
5634 |
self newWindowLabelFormat value notNil ifTrue:[ |
|
5635 |
StandardSystemView windowLabelFormat:self newWindowLabelFormat value |
|
5636 |
]. |
|
5637 |
||
5638 |
Screen allScreens do:[:aDisplay | |
|
5639 |
aDisplay allViewsDo:[:aView | |
|
5640 |
|l| |
|
5641 |
||
5642 |
aView isTopView ifTrue:[ |
|
5643 |
l := aView label. |
|
5644 |
l notNil ifTrue:[ |
|
5645 |
aView label:(l , ' '); label:l. "/ force a change |
|
5646 |
] |
|
5647 |
] |
|
5648 |
] |
|
5649 |
] |
|
5650 |
]. |
|
5651 |
||
5652 |
currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value. |
|
5653 |
currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value. |
|
5654 |
||
5655 |
currentUserPrefs beepEnabled:self beepEnabled value. |
|
5656 |
||
5657 |
StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value. |
|
5658 |
StandardSystemView takeFocusWhenMapped:self takeFocus value. |
|
5659 |
currentUserPrefs focusFollowsMouse:self focusFollowsMouse value. |
|
6030 | 5660 |
currentScreen activateOnClick:self activateOnClick value. |
4574 | 5661 |
|
5662 |
MenuView showAcceleratorKeys:self showAccelerators value. |
|
5663 |
||
6030 | 5664 |
mustReopenTools ifTrue:[ |
5665 |
self reopenToolsAfterChangedViewStyleSetting. |
|
5666 |
]. |
|
4574 | 5667 |
"Modified: / 16.12.2002 / 18:06:31 / penk" |
5668 |
! |
|
5669 |
||
5030 | 5670 |
formatHostNameinWindowLabels |
5041 | 5671 |
|newFormat| |
5672 |
||
5673 |
newFormat := Dialog |
|
5674 |
request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\' |
|
5675 |
withCRs |
|
5676 |
initialAnswer:newWindowLabelFormat. |
|
5677 |
newFormat size > 0 ifTrue:[ |
|
5678 |
newWindowLabelFormat := newFormat. |
|
5679 |
self updateModifiedChannel |
|
5680 |
] |
|
4286 | 5681 |
! |
5682 |
||
5101 | 5683 |
helpFilename |
5684 |
^ 'Launcher/miscSettings.html' |
|
4286 | 5685 |
! |
5686 |
||
5030 | 5687 |
readSettings |
4286 | 5688 |
self shadows value:PopUpView shadows. |
6025 | 5689 |
self nativeWidgets value:Screen current nativeWidgets. |
6014 | 5690 |
self nativeDialogs value:Screen current nativeDialogs. |
4286 | 5691 |
self beepEnabled value:currentUserPrefs beepEnabled. |
4387 | 5692 |
self newWindowLabelFormat value:StandardSystemView windowLabelFormat. |
4574 | 5693 |
self hostNameInLabelHolder |
5694 |
value:StandardSystemView includeHostNameInLabel. |
|
5695 |
self returnFocus |
|
5696 |
value:StandardSystemView returnFocusWhenClosingModalBoxes. |
|
5697 |
self takeFocus value:StandardSystemView takeFocusWhenMapped. |
|
5698 |
self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true). |
|
4286 | 5699 |
self activateOnClick value:(Display activateOnClick:nil). |
4574 | 5700 |
self opaqueVariablePanelResize |
5701 |
value:currentUserPrefs opaqueVariablePanelResizing. |
|
5702 |
self opaqueTableColumnResize |
|
5703 |
value:currentUserPrefs opaqueTableColumnResizing. |
|
4286 | 5704 |
self showAccelerators value:MenuView showAcceleratorKeys. |
4574 | 5705 |
self modifiedChannel value:false |
4286 | 5706 |
! ! |
5707 |
||
4398 | 5708 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'! |
4286 | 5709 |
|
5030 | 5710 |
activateOnClick |
4286 | 5711 |
activateOnClick isNil ifTrue:[ |
5712 |
activateOnClick := true asValue. |
|
5041 | 5713 |
activateOnClick onChangeSend:#updateModifiedChannel to:self |
4286 | 5714 |
]. |
5715 |
^ activateOnClick. |
|
5716 |
! |
|
5717 |
||
5030 | 5718 |
beepEnabled |
4286 | 5719 |
beepEnabled isNil ifTrue:[ |
5720 |
beepEnabled := true asValue. |
|
5041 | 5721 |
beepEnabled onChangeSend:#updateModifiedChannel to:self |
4286 | 5722 |
]. |
5723 |
^ beepEnabled. |
|
5724 |
! |
|
5725 |
||
6025 | 5726 |
displaySupportsNativeDialogs |
5727 |
^ Screen current supportsNativeDialogs |
|
5728 |
! |
|
5729 |
||
6008 | 5730 |
displaySupportsNativeWidgets |
5731 |
^ Screen current supportsNativeWidgets |
|
5732 |
! |
|
5733 |
||
5030 | 5734 |
focusFollowsMouse |
4286 | 5735 |
focusFollowsMouse isNil ifTrue:[ |
5736 |
focusFollowsMouse := true asValue. |
|
5041 | 5737 |
focusFollowsMouse onChangeSend:#updateModifiedChannel to:self |
4286 | 5738 |
]. |
5739 |
^ focusFollowsMouse. |
|
5740 |
! |
|
5741 |
||
5030 | 5742 |
formatHostNameWindowLabel |
4387 | 5743 |
formatHostNameWindowLabel isNil ifTrue:[ |
5744 |
formatHostNameWindowLabel := |
|
5713 | 5745 |
(resources string:'Window Label Format:\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId') withCRs. |
4387 | 5746 |
]. |
5747 |
^ formatHostNameWindowLabel. |
|
5748 |
||
5749 |
"Created: / 16.12.2002 / 17:50:49 / penk" |
|
5750 |
"Modified: / 16.12.2002 / 17:55:18 / penk" |
|
5751 |
! |
|
5752 |
||
5030 | 5753 |
hostNameInLabelHolder |
5754 |
hostNameInLabelHolder isNil ifTrue:[ |
|
5755 |
hostNameInLabelHolder := true asValue. |
|
5041 | 5756 |
hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self |
5030 | 5757 |
]. |
5758 |
^ hostNameInLabelHolder. |
|
5759 |
! |
|
5760 |
||
6014 | 5761 |
nativeDialogs |
5762 |
nativeDialogs isNil ifTrue:[ |
|
5763 |
nativeDialogs := Screen current nativeDialogs asValue. |
|
5764 |
nativeDialogs onChangeSend:#updateModifiedChannel to:self |
|
5765 |
]. |
|
5766 |
^ nativeDialogs. |
|
5767 |
! |
|
5768 |
||
6008 | 5769 |
nativeWidgets |
5770 |
nativeWidgets isNil ifTrue:[ |
|
6025 | 5771 |
nativeWidgets := Screen current nativeWidgets asValue. |
6008 | 5772 |
nativeWidgets onChangeSend:#updateModifiedChannel to:self |
5773 |
]. |
|
5774 |
^ nativeWidgets. |
|
5775 |
! |
|
5776 |
||
5030 | 5777 |
newWindowLabelFormat |
4387 | 5778 |
newWindowLabelFormat isNil ifTrue:[ |
5779 |
newWindowLabelFormat := true asValue. |
|
5041 | 5780 |
newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self |
4387 | 5781 |
]. |
5782 |
^ newWindowLabelFormat. |
|
5783 |
||
5784 |
"Created: / 16.12.2002 / 17:50:49 / penk" |
|
5785 |
! |
|
5786 |
||
5030 | 5787 |
opaqueTableColumnResize |
4286 | 5788 |
opaqueTableColumnResize isNil ifTrue:[ |
5789 |
opaqueTableColumnResize := true asValue. |
|
5041 | 5790 |
opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self |
4286 | 5791 |
]. |
5792 |
^ opaqueTableColumnResize. |
|
5793 |
! |
|
5794 |
||
5030 | 5795 |
opaqueVariablePanelResize |
4286 | 5796 |
opaqueVariablePanelResize isNil ifTrue:[ |
5797 |
opaqueVariablePanelResize := true asValue. |
|
5041 | 5798 |
opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self |
4286 | 5799 |
]. |
5800 |
^ opaqueVariablePanelResize. |
|
5801 |
! |
|
5802 |
||
5030 | 5803 |
returnFocus |
4286 | 5804 |
returnFocus isNil ifTrue:[ |
5805 |
returnFocus := true asValue. |
|
5041 | 5806 |
returnFocus onChangeSend:#updateModifiedChannel to:self |
4286 | 5807 |
]. |
5808 |
^ returnFocus. |
|
5809 |
! |
|
5810 |
||
5030 | 5811 |
shadows |
4286 | 5812 |
shadows isNil ifTrue:[ |
6008 | 5813 |
shadows := PopUpView shadows asValue. |
5041 | 5814 |
shadows onChangeSend:#updateModifiedChannel to:self |
4286 | 5815 |
]. |
5816 |
^ shadows. |
|
5817 |
! |
|
5818 |
||
5030 | 5819 |
showAccelerators |
4286 | 5820 |
showAccelerators isNil ifTrue:[ |
5821 |
showAccelerators := true asValue. |
|
5041 | 5822 |
showAccelerators onChangeSend:#updateModifiedChannel to:self |
4286 | 5823 |
]. |
5824 |
^ showAccelerators. |
|
5825 |
! |
|
5826 |
||
5030 | 5827 |
takeFocus |
4286 | 5828 |
takeFocus isNil ifTrue:[ |
5829 |
takeFocus := true asValue. |
|
5041 | 5830 |
takeFocus onChangeSend:#updateModifiedChannel to:self |
4286 | 5831 |
]. |
5832 |
^ takeFocus. |
|
5833 |
! ! |
|
5834 |
||
4398 | 5835 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'! |
4286 | 5836 |
|
5030 | 5837 |
hasUnsavedChanges |
5918 | 5838 |
self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true]. |
6025 | 5839 |
self nativeWidgets value ~= Screen current nativeWidgets ifTrue:[^ true]. |
6014 | 5840 |
self nativeDialogs value ~= Screen current nativeDialogs ifTrue:[^ true]. |
5918 | 5841 |
self shadows value ~= PopUpView shadows ifTrue:[^ true]. |
5842 |
self beepEnabled value ~= currentUserPrefs beepEnabled ifTrue:[^ true]. |
|
5843 |
self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true]. |
|
5844 |
self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true]. |
|
5845 |
self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true]. |
|
5846 |
self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) ifTrue:[^ true]. |
|
5847 |
self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true]. |
|
5848 |
self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing ifTrue:[^ true]. |
|
5849 |
self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing ifTrue:[^ true]. |
|
5850 |
self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true]. |
|
5851 |
^ false |
|
4286 | 5852 |
! ! |
5853 |
||
4312 | 5854 |
!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'! |
5855 |
||
5030 | 5856 |
defaultIcon |
4948 | 5857 |
<resource: #programImage> |
5858 |
^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon. |
|
4312 | 5859 |
! ! |
5860 |
||
4310 | 5861 |
!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'! |
5862 |
||
5030 | 5863 |
windowSpec |
4310 | 5864 |
"This resource specification was automatically generated |
5865 |
by the UIPainter of ST/X." |
|
5866 |
||
5867 |
"Do not manually edit this!! If it is corrupted, |
|
5868 |
the UIPainter may not be able to read the specification." |
|
5869 |
||
5870 |
" |
|
5871 |
UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec |
|
5872 |
AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec |
|
5873 |
AbstractSettingsApplication::OsiSettingsAppl open |
|
5874 |
" |
|
5875 |
||
5876 |
<resource: #canvas> |
|
5877 |
||
5878 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5879 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5880 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5881 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5882 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5883 |
label: 'OSI Protocols Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5884 |
name: 'OSI Protocols Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5885 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5886 |
bounds: (Rectangle 14 46 614 596) |
4310 | 5887 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5888 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5889 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5890 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5891 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5892 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5893 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5894 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5895 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5896 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5897 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5898 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5899 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5900 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5901 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5902 |
label: 'ACSE' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5903 |
name: 'Label1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5904 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5905 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5906 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5907 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5908 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5909 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5910 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5911 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5912 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5913 |
label: 'Log Errors' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5914 |
name: 'CheckBox1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5915 |
layout: (LayoutFrame 5 0 0 0 -2 0.33 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5916 |
enableChannel: osiACSEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5917 |
model: osiACSEErrorLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5918 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5919 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5920 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5921 |
label: 'Log Connections' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5922 |
name: 'CheckBox2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5923 |
layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5924 |
enableChannel: osiACSEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5925 |
model: osiACSEConnectionLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5926 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5927 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5928 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5929 |
label: 'Log Data Xfer' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5930 |
name: 'CheckBox3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5931 |
layout: (LayoutFrame 2 0.66 0 0 -2 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5932 |
enableChannel: osiACSEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5933 |
model: osiACSEDataLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5934 |
translateLabel: true |
4310 | 5935 |
) |
5936 |
) |
|
5937 |
||
5938 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5939 |
extent: (Point 600 27) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5940 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5941 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5942 |
name: 'Box9' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5943 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5944 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5945 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5946 |
label: 'ROSE' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5947 |
name: 'Label2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5948 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5949 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5950 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5951 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5952 |
name: 'Box4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5953 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5954 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5955 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5956 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5957 |
label: 'Log Errors' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5958 |
name: 'CheckBox4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5959 |
layout: (LayoutFrame 5 0 0 0 -2 0.33 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5960 |
enableChannel: osiROSEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5961 |
model: osiROSEErrorLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5962 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5963 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5964 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5965 |
label: 'Log Invoactions' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5966 |
name: 'CheckBox5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5967 |
layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5968 |
enableChannel: osiROSEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5969 |
model: osiROSEInvokationLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5970 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5971 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5972 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5973 |
label: 'Log Responses' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5974 |
name: 'CheckBox6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5975 |
layout: (LayoutFrame 0 0.66 0 0 -2 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5976 |
enableChannel: osiROSEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5977 |
model: osiROSEResponseLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5978 |
translateLabel: true |
5086 | 5979 |
) |
5980 |
) |
|
5981 |
||
5982 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5983 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5984 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5985 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5986 |
name: 'Box6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5987 |
extent: (Point 600 23) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5988 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5989 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5990 |
label: 'CMISE' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5991 |
name: 'Label3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5992 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5993 |
extent: (Point 600 22) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5994 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5995 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5996 |
name: 'Box7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5997 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5998 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
5999 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6000 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6001 |
label: 'Log Errors' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6002 |
name: 'CheckBox7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6003 |
layout: (LayoutFrame 2 0 0 0 -2 0.33 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6004 |
enableChannel: osiCMISEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6005 |
model: osiCMISEErrorLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6006 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6007 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6008 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6009 |
label: 'Log Messages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6010 |
name: 'CheckBox8' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6011 |
layout: (LayoutFrame 2 0.33 0 0 -2 0.66 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6012 |
enableChannel: osiCMISEPresent |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6013 |
model: osiCMISEMessageLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6014 |
translateLabel: true |
5086 | 6015 |
) |
6016 |
) |
|
6017 |
||
6018 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
6019 |
extent: (Point 600 22) |
4310 | 6020 |
) |
6021 |
) |
|
6022 |
||
6023 |
) |
|
6024 |
) |
|
6025 |
) |
|
6026 |
||
6027 |
) |
|
6028 |
) |
|
6029 |
! ! |
|
6030 |
||
6031 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'! |
|
6032 |
||
5030 | 6033 |
basicSaveSettings |
4574 | 6034 |
|
6035 |
self osiACSEPresent value ifTrue:[ |
|
6036 |
OSI::ACSE errorLogging:self osiACSEErrorLogging value. |
|
6037 |
OSI::ACSE connectionLogging:self osiACSEConnectionLogging value. |
|
6038 |
OSI::ACSE dataLogging:self osiACSEDataLogging value. |
|
6039 |
]. |
|
6040 |
self osiROSEPresent value ifTrue:[ |
|
6041 |
OSI::ROSE errorLogging:self osiROSEErrorLogging value. |
|
6042 |
OSI::ROSE invocationLogging:self osiROSEInvokationLogging value. |
|
6043 |
OSI::ROSE responseLogging:self osiROSEResponseLogging value. |
|
6044 |
]. |
|
6045 |
self osiCMISEPresent value ifTrue:[ |
|
6046 |
OSI::CMISE errorLogging:self osiCMISEErrorLogging value. |
|
6047 |
OSI::CMISE messageLogging:self osiCMISEMessageLogging value. |
|
6048 |
]. |
|
6049 |
! |
|
6050 |
||
5101 | 6051 |
helpFilename |
6052 |
^ 'Launcher/communicationsSettings.html' |
|
4310 | 6053 |
! |
6054 |
||
5030 | 6055 |
readSettings |
4310 | 6056 |
self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]). |
6057 |
self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]). |
|
6058 |
self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]). |
|
6059 |
self osiACSEPresent value ifTrue:[ |
|
6060 |
self osiACSEErrorLogging value:OSI::ACSE errorLogging. |
|
6061 |
self osiACSEConnectionLogging value:OSI::ACSE connectionLogging. |
|
4574 | 6062 |
self osiACSEDataLogging value:OSI::ACSE dataLogging |
4310 | 6063 |
]. |
6064 |
self osiROSEPresent value ifTrue:[ |
|
6065 |
self osiROSEErrorLogging value:OSI::ROSE errorLogging. |
|
6066 |
self osiROSEInvokationLogging value:OSI::ROSE invocationLogging. |
|
4574 | 6067 |
self osiROSEResponseLogging value:OSI::ROSE responseLogging |
4310 | 6068 |
]. |
6069 |
self osiCMISEPresent value ifTrue:[ |
|
6070 |
self osiCMISEErrorLogging value:OSI::CMISE errorLogging. |
|
4574 | 6071 |
self osiCMISEMessageLogging value:OSI::CMISE messageLogging |
6072 |
]. |
|
6073 |
self modifiedChannel value:false |
|
4310 | 6074 |
! ! |
6075 |
||
6076 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'! |
|
6077 |
||
5030 | 6078 |
osiACSEConnectionLogging |
4310 | 6079 |
"automatically generated by UIPainter ..." |
6080 |
||
6081 |
"*** the code below creates a default model when invoked." |
|
6082 |
"*** (which may not be the one you wanted)" |
|
6083 |
"*** Please change as required and accept it in the browser." |
|
6084 |
"*** (and replace this comment by something more useful ;-)" |
|
6085 |
||
6086 |
osiACSEConnectionLogging isNil ifTrue:[ |
|
6087 |
osiACSEConnectionLogging := true asValue. |
|
6088 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6089 |
"/ osiACSEConnectionLogging addDependent:self. |
|
6090 |
"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self. |
|
6091 |
]. |
|
6092 |
^ osiACSEConnectionLogging. |
|
6093 |
! |
|
6094 |
||
5030 | 6095 |
osiACSEDataLogging |
4310 | 6096 |
"automatically generated by UIPainter ..." |
6097 |
||
6098 |
"*** the code below creates a default model when invoked." |
|
6099 |
"*** (which may not be the one you wanted)" |
|
6100 |
"*** Please change as required and accept it in the browser." |
|
6101 |
"*** (and replace this comment by something more useful ;-)" |
|
6102 |
||
6103 |
osiACSEDataLogging isNil ifTrue:[ |
|
6104 |
osiACSEDataLogging := true asValue. |
|
6105 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6106 |
"/ osiACSEDataLogging addDependent:self. |
|
6107 |
"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self. |
|
6108 |
]. |
|
6109 |
^ osiACSEDataLogging. |
|
6110 |
! |
|
6111 |
||
5030 | 6112 |
osiACSEErrorLogging |
4310 | 6113 |
"automatically generated by UIPainter ..." |
6114 |
||
6115 |
"*** the code below creates a default model when invoked." |
|
6116 |
"*** (which may not be the one you wanted)" |
|
6117 |
"*** Please change as required and accept it in the browser." |
|
6118 |
"*** (and replace this comment by something more useful ;-)" |
|
6119 |
||
6120 |
osiACSEErrorLogging isNil ifTrue:[ |
|
6121 |
osiACSEErrorLogging := true asValue. |
|
6122 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6123 |
"/ osiACSEErrorLogging addDependent:self. |
|
6124 |
"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self. |
|
6125 |
]. |
|
6126 |
^ osiACSEErrorLogging. |
|
6127 |
! |
|
6128 |
||
5030 | 6129 |
osiACSEPresent |
4310 | 6130 |
"automatically generated by UIPainter ..." |
6131 |
||
6132 |
"*** the code below creates a default model when invoked." |
|
6133 |
"*** (which may not be the one you wanted)" |
|
6134 |
"*** Please change as required and accept it in the browser." |
|
6135 |
"*** (and replace this comment by something more useful ;-)" |
|
6136 |
||
6137 |
osiACSEPresent isNil ifTrue:[ |
|
6138 |
osiACSEPresent := true asValue. |
|
6139 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6140 |
"/ osiACSEPresent addDependent:self. |
|
6141 |
"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self. |
|
6142 |
]. |
|
6143 |
^ osiACSEPresent. |
|
6144 |
! |
|
6145 |
||
5030 | 6146 |
osiCMISEErrorLogging |
4310 | 6147 |
"automatically generated by UIPainter ..." |
6148 |
||
6149 |
"*** the code below creates a default model when invoked." |
|
6150 |
"*** (which may not be the one you wanted)" |
|
6151 |
"*** Please change as required and accept it in the browser." |
|
6152 |
"*** (and replace this comment by something more useful ;-)" |
|
6153 |
||
6154 |
osiCMISEErrorLogging isNil ifTrue:[ |
|
6155 |
osiCMISEErrorLogging := true asValue. |
|
6156 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6157 |
"/ osiCMISEErrorLogging addDependent:self. |
|
6158 |
"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self. |
|
6159 |
]. |
|
6160 |
^ osiCMISEErrorLogging. |
|
6161 |
! |
|
6162 |
||
5030 | 6163 |
osiCMISEMessageLogging |
4310 | 6164 |
"automatically generated by UIPainter ..." |
6165 |
||
6166 |
"*** the code below creates a default model when invoked." |
|
6167 |
"*** (which may not be the one you wanted)" |
|
6168 |
"*** Please change as required and accept it in the browser." |
|
6169 |
"*** (and replace this comment by something more useful ;-)" |
|
6170 |
||
6171 |
osiCMISEMessageLogging isNil ifTrue:[ |
|
6172 |
osiCMISEMessageLogging := true asValue. |
|
6173 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6174 |
"/ osiCMISEMessageLogging addDependent:self. |
|
6175 |
"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self. |
|
6176 |
]. |
|
6177 |
^ osiCMISEMessageLogging. |
|
6178 |
! |
|
6179 |
||
5030 | 6180 |
osiCMISEPresent |
4310 | 6181 |
"automatically generated by UIPainter ..." |
6182 |
||
6183 |
"*** the code below creates a default model when invoked." |
|
6184 |
"*** (which may not be the one you wanted)" |
|
6185 |
"*** Please change as required and accept it in the browser." |
|
6186 |
"*** (and replace this comment by something more useful ;-)" |
|
6187 |
||
6188 |
osiCMISEPresent isNil ifTrue:[ |
|
6189 |
osiCMISEPresent := true asValue. |
|
6190 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6191 |
"/ osiCMISEPresent addDependent:self. |
|
6192 |
"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self. |
|
6193 |
]. |
|
6194 |
^ osiCMISEPresent. |
|
6195 |
! |
|
6196 |
||
5030 | 6197 |
osiROSEErrorLogging |
4310 | 6198 |
"automatically generated by UIPainter ..." |
6199 |
||
6200 |
"*** the code below creates a default model when invoked." |
|
6201 |
"*** (which may not be the one you wanted)" |
|
6202 |
"*** Please change as required and accept it in the browser." |
|
6203 |
"*** (and replace this comment by something more useful ;-)" |
|
6204 |
||
6205 |
osiROSEErrorLogging isNil ifTrue:[ |
|
6206 |
osiROSEErrorLogging := true asValue. |
|
6207 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6208 |
"/ osiROSEErrorLogging addDependent:self. |
|
6209 |
"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self. |
|
6210 |
]. |
|
6211 |
^ osiROSEErrorLogging. |
|
6212 |
! |
|
6213 |
||
5030 | 6214 |
osiROSEInvokationLogging |
4310 | 6215 |
"automatically generated by UIPainter ..." |
6216 |
||
6217 |
"*** the code below creates a default model when invoked." |
|
6218 |
"*** (which may not be the one you wanted)" |
|
6219 |
"*** Please change as required and accept it in the browser." |
|
6220 |
"*** (and replace this comment by something more useful ;-)" |
|
6221 |
||
6222 |
osiROSEInvokationLogging isNil ifTrue:[ |
|
6223 |
osiROSEInvokationLogging := true asValue. |
|
6224 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6225 |
"/ osiROSEInvokationLogging addDependent:self. |
|
6226 |
"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self. |
|
6227 |
]. |
|
6228 |
^ osiROSEInvokationLogging. |
|
6229 |
! |
|
6230 |
||
5030 | 6231 |
osiROSEPresent |
4310 | 6232 |
"automatically generated by UIPainter ..." |
6233 |
||
6234 |
"*** the code below creates a default model when invoked." |
|
6235 |
"*** (which may not be the one you wanted)" |
|
6236 |
"*** Please change as required and accept it in the browser." |
|
6237 |
"*** (and replace this comment by something more useful ;-)" |
|
6238 |
||
6239 |
osiROSEPresent isNil ifTrue:[ |
|
6240 |
osiROSEPresent := true asValue. |
|
6241 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6242 |
"/ osiROSEPresent addDependent:self. |
|
6243 |
"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self. |
|
6244 |
]. |
|
6245 |
^ osiROSEPresent. |
|
6246 |
! |
|
6247 |
||
5030 | 6248 |
osiROSEResponseLogging |
4310 | 6249 |
"automatically generated by UIPainter ..." |
6250 |
||
6251 |
"*** the code below creates a default model when invoked." |
|
6252 |
"*** (which may not be the one you wanted)" |
|
6253 |
"*** Please change as required and accept it in the browser." |
|
6254 |
"*** (and replace this comment by something more useful ;-)" |
|
6255 |
||
6256 |
osiROSEResponseLogging isNil ifTrue:[ |
|
6257 |
osiROSEResponseLogging := true asValue. |
|
6258 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
6259 |
"/ osiROSEResponseLogging addDependent:self. |
|
6260 |
"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self. |
|
6261 |
]. |
|
6262 |
^ osiROSEResponseLogging. |
|
6263 |
! ! |
|
6264 |
||
6265 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'! |
|
6266 |
||
5030 | 6267 |
hasUnsavedChanges |
4310 | 6268 |
|
6269 |
^ (( |
|
6270 |
(self osiACSEPresent value and:[ |
|
6271 |
self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[ |
|
6272 |
self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[ |
|
6273 |
self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[ |
|
6274 |
self osiROSEPresent value and:[ |
|
6275 |
self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[ |
|
6276 |
self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[ |
|
6277 |
self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[ |
|
6278 |
(self osiCMISEPresent value) and:[ |
|
6279 |
self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[ |
|
6280 |
self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]]) |
|
6281 |
! ! |
|
6282 |
||
4312 | 6283 |
!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'! |
6284 |
||
5030 | 6285 |
defaultIcon |
4312 | 6286 |
"This resource specification was automatically generated |
6287 |
by the ImageEditor of ST/X." |
|
6288 |
||
6289 |
"Do not manually edit this!! If it is corrupted, |
|
6290 |
the ImageEditor may not be able to read the specification." |
|
6291 |
||
6292 |
" |
|
6293 |
self defaultIcon inspect |
|
6294 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
6295 |
Icon flushCachedIcons |
|
6296 |
" |
|
6297 |
||
6298 |
<resource: #image> |
|
6299 |
||
6300 |
^Icon |
|
6301 |
constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon' |
|
4948 | 6302 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
6303 |
QDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQ@@@@@@@@@ADQDQ@QDQDQDQDADQDQDAD@@AD@@PDQDQD |
|
6304 |
ADQDQDQDPDQDQDPD@@P@P@P@@DQDPDQDQDQDQ@DAADP@@@@@@@@@DA@DPADQDQDQDQDA@0Q@@@@@@@@@@@@3AD@3L3L3L2H#LCADPCL3L3L3H"L0ADQ@@@@@ |
|
6305 |
@@@@@@ADQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDPb') ; colorMapFromArray:#[0 0 0 194 194 194 255 255 0 105 133 190 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@??0A?? A?? C??@C??0G??8O??8_??8_??8_??0_?? _??@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself] |
|
4312 | 6306 |
! ! |
6307 |
||
4286 | 6308 |
!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'! |
6309 |
||
5030 | 6310 |
windowSpec |
4286 | 6311 |
"This resource specification was automatically generated |
6312 |
by the UIPainter of ST/X." |
|
6313 |
||
6314 |
"Do not manually edit this!! If it is corrupted, |
|
6315 |
the UIPainter may not be able to read the specification." |
|
6316 |
||
6317 |
" |
|
4310 | 6318 |
UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec |
6319 |
AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec |
|
6320 |
AbstractSettingsApplication::PrinterSettingsAppl open |
|
4286 | 6321 |
" |
6322 |
||
6323 |
<resource: #canvas> |
|
6324 |
||
6325 |
^ |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6326 |
#(FullSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6327 |
name: windowSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6328 |
window: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6329 |
(WindowSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6330 |
label: 'Printer Settings' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6331 |
name: 'Printer Settings' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6332 |
min: (Point 10 10) |
5623 | 6333 |
bounds: (Rectangle 0 0 616 385) |
4286 | 6334 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6335 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6336 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6337 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6338 |
(VerticalPanelViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6339 |
name: 'VerticalPanel1' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6340 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6341 |
horizontalLayout: fit |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6342 |
verticalLayout: top |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6343 |
horizontalSpace: 3 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6344 |
verticalSpace: 3 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6345 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6346 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6347 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6348 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6349 |
name: 'PrinterSelectBox' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6350 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6351 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6352 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6353 |
(LabelSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6354 |
label: 'Printer Type:' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6355 |
name: 'PrinterTypeLabel' |
5623 | 6356 |
layout: (LayoutFrame 0 0 5 0 181 0 27 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6357 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6358 |
adjust: right |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6359 |
) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6360 |
(ComboListSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6361 |
name: 'PrinterTypeComboList' |
5623 | 6362 |
layout: (LayoutFrame 183 0 5 0 -5 1 27 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6363 |
model: printerTypeSelection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6364 |
comboList: printerType |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6365 |
useIndex: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6366 |
) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6367 |
(LabelSpec |
5623 | 6368 |
label: 'Print Command:' |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6369 |
name: 'PrinterCommandLabel' |
5623 | 6370 |
layout: (LayoutFrame 0 0 31 0 181 0 53 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6371 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6372 |
adjust: right |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6373 |
) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6374 |
(ComboBoxSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6375 |
name: 'CommandComboBox' |
5623 | 6376 |
layout: (LayoutFrame 183 0 31 0 -5 1 53 0) |
5181 | 6377 |
enableChannel: printCommandEnabled |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6378 |
model: printCommand |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6379 |
acceptOnLostFocus: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6380 |
acceptOnPointerLeave: false |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6381 |
comboList: printCommandList |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6382 |
useIndex: false |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6383 |
) |
5181 | 6384 |
(LabelSpec |
6385 |
label: 'Print to File:' |
|
6386 |
name: 'PrinterFileLabel' |
|
5623 | 6387 |
layout: (LayoutFrame 0 0 57 0 181 0 79 0) |
5181 | 6388 |
translateLabel: true |
6389 |
adjust: right |
|
6390 |
) |
|
6391 |
(FilenameInputFieldSpec |
|
6392 |
name: 'PrinterFileEntryField' |
|
5623 | 6393 |
layout: (LayoutFrame 183 0 57 0 -5 1 79 0) |
5181 | 6394 |
model: printFilename |
5623 | 6395 |
formatString: '' |
5181 | 6396 |
immediateAccept: true |
6397 |
acceptOnLeave: true |
|
6398 |
acceptOnLostFocus: true |
|
6399 |
acceptOnPointerLeave: false |
|
4310 | 6400 |
) |
6401 |
) |
|
6402 |
||
6403 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6404 |
extent: (Point 600 84) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6405 |
) |
5181 | 6406 |
(DividerSpec |
6407 |
name: 'Separator1' |
|
6408 |
extent: (Point 600 3) |
|
6409 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6410 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6411 |
name: 'FormatBox' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6412 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6413 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6414 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6415 |
(LabelSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6416 |
label: 'Page Format:' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6417 |
name: 'PageFormatLabel' |
5623 | 6418 |
layout: (LayoutFrame 0 0 4 0 181 0 26 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6419 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6420 |
adjust: right |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6421 |
) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6422 |
(PopUpListSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6423 |
label: 'PopUp List' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6424 |
name: 'PageFormatPopUpList' |
5623 | 6425 |
layout: (LayoutFrame 183 0 4 0 333 0 26 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6426 |
tabable: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6427 |
model: pageFormat |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6428 |
enableChannel: enableFormat |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6429 |
menu: pageFormatList |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6430 |
) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6431 |
(CheckBoxSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6432 |
label: 'Landscape' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6433 |
name: 'LandscapeCheckBox' |
5181 | 6434 |
layout: (LayoutFrame 380 0 4 0 -5 1 26 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6435 |
enableChannel: enablelandscape |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6436 |
model: landscape |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6437 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6438 |
) |
4310 | 6439 |
) |
6440 |
||
6441 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6442 |
extent: (Point 600 30) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6443 |
) |
5181 | 6444 |
(DividerSpec |
6445 |
name: 'Separator5' |
|
6446 |
extent: (Point 600 3) |
|
6447 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6448 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6449 |
name: 'MarginBox' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6450 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6451 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6452 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6453 |
(VerticalPanelViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6454 |
name: 'VerticalPanel2' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6455 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6456 |
horizontalLayout: fit |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6457 |
verticalLayout: center |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6458 |
horizontalSpace: 3 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6459 |
verticalSpace: 3 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6460 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6461 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6462 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6463 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6464 |
name: 'Box1' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6465 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6466 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6467 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6468 |
(LabelSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6469 |
label: 'Top Margin:' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6470 |
name: 'TopMarginLabel' |
5623 | 6471 |
layout: (LayoutFrame 0 0 0 0 181 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6472 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6473 |
adjust: right |
4310 | 6474 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6475 |
(InputFieldSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6476 |
name: 'TopMarginEntryField' |
5623 | 6477 |
layout: (LayoutFrame 183 0 0 0 283 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6478 |
enableChannel: enableMargins |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6479 |
model: topMargin |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6480 |
type: numberOrNil |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6481 |
acceptOnReturn: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6482 |
acceptOnTab: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6483 |
acceptOnLostFocus: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6484 |
acceptOnPointerLeave: true |
4310 | 6485 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6486 |
(PopUpListSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6487 |
label: 'PopUp List' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6488 |
name: 'PopUpList2' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6489 |
layout: (LayoutFrame -155 1 0 0 -5 1 21 0) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6490 |
tabable: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6491 |
model: selectedUnit |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6492 |
menu: unitList |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6493 |
useIndex: true |
4310 | 6494 |
) |
6495 |
) |
|
6496 |
||
6497 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6498 |
extent: (Point 600 24) |
4310 | 6499 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6500 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6501 |
name: 'Box2' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6502 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6503 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6504 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6505 |
(LabelSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6506 |
label: 'Left Margin:' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6507 |
name: 'LeftMarginLabel' |
5623 | 6508 |
layout: (LayoutFrame 0 0 0 0 181 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6509 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6510 |
adjust: right |
4310 | 6511 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6512 |
(InputFieldSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6513 |
name: 'LeftMarginEntryField' |
5623 | 6514 |
layout: (LayoutFrame 183 0 0 0 283 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6515 |
enableChannel: enableMargins |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6516 |
model: leftMargin |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6517 |
type: numberOrNil |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6518 |
acceptOnReturn: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6519 |
acceptOnTab: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6520 |
acceptOnLostFocus: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6521 |
acceptOnPointerLeave: true |
4310 | 6522 |
) |
6523 |
) |
|
6524 |
||
6525 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6526 |
extent: (Point 600 24) |
4310 | 6527 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6528 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6529 |
name: 'Box3' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6530 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6531 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6532 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6533 |
(LabelSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6534 |
label: 'Right Margin:' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6535 |
name: 'RightMarginLabel' |
5623 | 6536 |
layout: (LayoutFrame 0 0 0 0 181 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6537 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6538 |
adjust: right |
4310 | 6539 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6540 |
(InputFieldSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6541 |
name: 'RightMarginEntryField' |
5623 | 6542 |
layout: (LayoutFrame 183 0 0 0 283 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6543 |
enableChannel: enableMargins |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6544 |
model: rightMargin |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6545 |
type: numberOrNil |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6546 |
acceptOnReturn: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6547 |
acceptOnTab: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6548 |
acceptOnLostFocus: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6549 |
acceptOnPointerLeave: true |
4310 | 6550 |
) |
6551 |
) |
|
6552 |
||
6553 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6554 |
extent: (Point 600 24) |
4310 | 6555 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6556 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6557 |
name: 'Box4' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6558 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6559 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6560 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6561 |
(LabelSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6562 |
label: 'Bottom Margin:' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6563 |
name: 'BottomMarginLabel' |
5623 | 6564 |
layout: (LayoutFrame 0 0 0 0 181 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6565 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6566 |
adjust: right |
4310 | 6567 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6568 |
(InputFieldSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6569 |
name: 'BottomMarginEntryField' |
5623 | 6570 |
layout: (LayoutFrame 183 0 0 0 283 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6571 |
enableChannel: enableMargins |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6572 |
model: bottomMargin |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6573 |
type: numberOrNil |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6574 |
acceptOnReturn: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6575 |
acceptOnTab: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6576 |
acceptOnLostFocus: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6577 |
acceptOnPointerLeave: true |
4310 | 6578 |
) |
6579 |
) |
|
6580 |
||
6581 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6582 |
extent: (Point 600 24) |
4310 | 6583 |
) |
6584 |
) |
|
6585 |
||
6586 |
) |
|
6587 |
) |
|
6588 |
) |
|
6589 |
||
6590 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6591 |
extent: (Point 600 100) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6592 |
) |
5181 | 6593 |
(DividerSpec |
6594 |
name: 'Separator6' |
|
6595 |
extent: (Point 600 3) |
|
6596 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6597 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6598 |
name: 'Box5' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6599 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6600 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6601 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6602 |
(CheckBoxSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6603 |
label: 'Color Printer' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6604 |
name: 'ColorPrinterCheckBox' |
5623 | 6605 |
layout: (LayoutFrame 183 0 0 0 782 0 21 0) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6606 |
enableChannel: enableColorBox |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6607 |
model: supportsColor |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6608 |
translateLabel: true |
4310 | 6609 |
) |
6610 |
) |
|
6611 |
||
6612 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
6613 |
extent: (Point 600 27) |
4286 | 6614 |
) |
6615 |
) |
|
6616 |
||
6617 |
) |
|
6618 |
) |
|
6619 |
) |
|
6620 |
||
6621 |
) |
|
6622 |
) |
|
6623 |
! ! |
|
6624 |
||
6625 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'! |
|
6626 |
||
5030 | 6627 |
basicSaveSettings |
4574 | 6628 |
|
6629 |
Printer := self possiblePrinters at:(self printerTypeSelection value). |
|
6630 |
Printer printCommand:self printCommand value. |
|
5181 | 6631 |
Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]). |
4574 | 6632 |
|
6633 |
Printer supportsPageSizes ifTrue:[ |
|
6634 |
Printer pageFormat:(self pageFormat value). |
|
6635 |
Printer landscape:(self landscape value). |
|
6636 |
]. |
|
6637 |
Printer supportsMargins ifTrue:[ |
|
6638 |
| unit | |
|
6639 |
self selectedUnit value == 2 ifTrue:[ |
|
6640 |
unit := #mm |
|
6641 |
] ifFalse:[ |
|
6642 |
unit := #inch |
|
6643 |
]. |
|
6644 |
Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch). |
|
6645 |
Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch). |
|
6646 |
Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch). |
|
6647 |
Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch). |
|
6648 |
]. |
|
6649 |
Printer supportsPostscript ifTrue:[ |
|
6650 |
Printer supportsColor:self supportsColor value. |
|
6651 |
]. |
|
6652 |
! |
|
6653 |
||
5101 | 6654 |
helpFilename |
6655 |
^ 'Launcher/printerSettings.html' |
|
4286 | 6656 |
! |
6657 |
||
5030 | 6658 |
readSettings |
4371 | 6659 |
self bottomMargin value:Printer bottomMargin. |
6660 |
self landscape value:Printer landscape. |
|
6661 |
self leftMargin value:Printer leftMargin. |
|
6662 |
self rightMargin value:Printer rightMargin. |
|
6663 |
self topMargin value:Printer topMargin. |
|
6664 |
self printCommand value:Printer printCommand. |
|
5181 | 6665 |
self printFilename value:Printer printFilename. |
4574 | 6666 |
self printerTypeSelection |
6667 |
value:(self possiblePrinters identityIndexOf:Printer). |
|
4371 | 6668 |
self supportsColor value:Printer supportsColor. |
6669 |
self pageFormatList notEmpty ifTrue:[ |
|
4574 | 6670 |
self pageFormat value:Printer pageFormat |
4371 | 6671 |
]. |
6672 |
self printerTypeSelectionOrUnitListChanged. |
|
4574 | 6673 |
self modifiedChannel value:false |
4286 | 6674 |
! ! |
6675 |
||
6676 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'! |
|
6677 |
||
5030 | 6678 |
bottomMargin |
4286 | 6679 |
|
6680 |
bottomMargin isNil ifTrue:[ |
|
6681 |
bottomMargin := Printer bottomMargin asValue. |
|
5041 | 6682 |
bottomMargin onChangeSend:#updateModifiedChannel to:self |
4286 | 6683 |
]. |
6684 |
^ bottomMargin. |
|
6685 |
! |
|
6686 |
||
5030 | 6687 |
enableColorBox |
6688 |
||
6689 |
enableColorBox isNil ifTrue:[ |
|
6690 |
enableColorBox := true asValue. |
|
6691 |
]. |
|
6692 |
^ enableColorBox. |
|
6693 |
! |
|
6694 |
||
6695 |
enableFormat |
|
6696 |
||
6697 |
enableFormat isNil ifTrue:[ |
|
6698 |
enableFormat := true asValue. |
|
6699 |
]. |
|
6700 |
^ enableFormat. |
|
6701 |
! |
|
6702 |
||
6703 |
enableMargins |
|
6704 |
||
6705 |
enableMargins isNil ifTrue:[ |
|
6706 |
enableMargins := true asValue. |
|
6707 |
]. |
|
6708 |
^ enableMargins. |
|
6709 |
! |
|
6710 |
||
6711 |
enablelandscape |
|
6712 |
||
6713 |
enablelandscape isNil ifTrue:[ |
|
6714 |
enablelandscape := true asValue. |
|
6715 |
]. |
|
6716 |
^ enablelandscape. |
|
6717 |
! |
|
6718 |
||
6719 |
landscape |
|
4286 | 6720 |
|
6721 |
landscape isNil ifTrue:[ |
|
6722 |
landscape := Printer landscape asValue. |
|
5041 | 6723 |
landscape onChangeSend:#updateModifiedChannel to:self |
4286 | 6724 |
]. |
6725 |
^ landscape. |
|
6726 |
! |
|
6727 |
||
5030 | 6728 |
leftMargin |
6729 |
||
6730 |
leftMargin isNil ifTrue:[ |
|
6731 |
leftMargin := Printer leftMargin asValue. |
|
5041 | 6732 |
leftMargin onChangeSend:#updateModifiedChannel to:self |
5030 | 6733 |
]. |
6734 |
^ leftMargin. |
|
6735 |
! |
|
6736 |
||
6737 |
pageFormat |
|
4286 | 6738 |
|
6739 |
pageFormat isNil ifTrue:[ |
|
6740 |
self pageFormatList notEmpty ifTrue:[ |
|
6741 |
| index | |
|
6742 |
(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[ |
|
6743 |
pageFormat := index asValue. |
|
6744 |
] ifFalse:[ |
|
6745 |
pageFormat := 1 asValue. |
|
6746 |
] |
|
6747 |
]. |
|
5041 | 6748 |
pageFormat onChangeSend:#updateModifiedChannel to:self |
4286 | 6749 |
]. |
6750 |
^ pageFormat. |
|
6751 |
! |
|
6752 |
||
5030 | 6753 |
pageFormatList |
4286 | 6754 |
|
6755 |
pageFormatList isNil ifTrue:[ |
|
6756 |
pageFormatList := Printer defaultPageFormats asList. |
|
6757 |
]. |
|
6758 |
^ pageFormatList. |
|
6759 |
! |
|
6760 |
||
5030 | 6761 |
printCommand |
4286 | 6762 |
|
6763 |
printCommand isNil ifTrue:[ |
|
6764 |
printCommand := Printer printCommand asValue. |
|
5041 | 6765 |
printCommand onChangeSend:#updateModifiedChannel to:self |
4286 | 6766 |
]. |
6767 |
^ printCommand. |
|
6768 |
! |
|
6769 |
||
5181 | 6770 |
printCommandEnabled |
6771 |
^ BlockValue |
|
6772 |
with:[:m | m value isEmptyOrNil] |
|
6773 |
argument:(self printFilename). |
|
6774 |
! |
|
6775 |
||
5030 | 6776 |
printCommandList |
4286 | 6777 |
|
6778 |
printCommandList isNil ifTrue:[ |
|
4574 | 6779 |
printCommandList := self commandList asList. |
4286 | 6780 |
]. |
6781 |
^ printCommandList. |
|
6782 |
! |
|
6783 |
||
5181 | 6784 |
printFilename |
6785 |
printFilename isNil ifTrue:[ |
|
6786 |
printFilename := (Printer printFilename ? '') asValue. |
|
6787 |
printFilename onChangeSend:#updateModifiedChannel to:self |
|
6788 |
]. |
|
6789 |
^ printFilename. |
|
6790 |
! |
|
6791 |
||
5030 | 6792 |
printerType |
4286 | 6793 |
|
6794 |
printerType isNil ifTrue:[ |
|
4574 | 6795 |
printerType := (self possiblePrinters collect:[:cls | cls printerTypeName]) asList. |
5041 | 6796 |
printerType onChangeSend:#updateModifiedChannel to:self |
4286 | 6797 |
]. |
6798 |
^ printerType. |
|
6799 |
! |
|
6800 |
||
5030 | 6801 |
printerTypeSelection |
4286 | 6802 |
|
6803 |
printerTypeSelection isNil ifTrue:[ |
|
4574 | 6804 |
printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue. |
4286 | 6805 |
"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self. |
6806 |
printerTypeSelection addDependent:self. |
|
6807 |
printerTypeSelection changed. |
|
5041 | 6808 |
printerTypeSelection onChangeSend:#updateModifiedChannel to:self |
4286 | 6809 |
]. |
6810 |
^ printerTypeSelection. |
|
6811 |
! |
|
6812 |
||
5030 | 6813 |
rightMargin |
4286 | 6814 |
|
6815 |
rightMargin isNil ifTrue:[ |
|
6816 |
rightMargin := Printer rightMargin asValue. |
|
5041 | 6817 |
rightMargin onChangeSend:#updateModifiedChannel to:self |
4286 | 6818 |
]. |
6819 |
^ rightMargin. |
|
6820 |
! |
|
6821 |
||
5030 | 6822 |
selectedUnit |
4286 | 6823 |
|
6824 |
selectedUnit isNil ifTrue:[ |
|
6825 |
selectedUnit := 1 asValue. |
|
6826 |
selectedUnit addDependent:self. |
|
6827 |
selectedUnit changed. |
|
5041 | 6828 |
selectedUnit onChangeSend:#updateModifiedChannel to:self |
4286 | 6829 |
]. |
6830 |
^ selectedUnit. |
|
6831 |
! |
|
6832 |
||
5030 | 6833 |
supportsColor |
4286 | 6834 |
|
6835 |
supportsColor isNil ifTrue:[ |
|
6836 |
supportsColor := Printer supportsColor asValue. |
|
5041 | 6837 |
supportsColor onChangeSend:#updateModifiedChannel to:self |
4286 | 6838 |
]. |
6839 |
^ supportsColor. |
|
6840 |
! |
|
6841 |
||
5030 | 6842 |
topMargin |
4286 | 6843 |
|
6844 |
topMargin isNil ifTrue:[ |
|
6845 |
topMargin := Printer topMargin asValue. |
|
5041 | 6846 |
topMargin onChangeSend:#updateModifiedChannel to:self |
4286 | 6847 |
]. |
6848 |
^ topMargin. |
|
6849 |
! |
|
6850 |
||
5030 | 6851 |
unitList |
4286 | 6852 |
|
6853 |
unitList isNil ifTrue:[ |
|
6854 |
unitList := #('inch' 'mm') asList. |
|
6855 |
]. |
|
6856 |
^ unitList. |
|
6857 |
! ! |
|
6858 |
||
6859 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'! |
|
6860 |
||
5030 | 6861 |
printerTypeSelectionChanged |
4286 | 6862 |
| p hasPageSize hasMargins| |
5181 | 6863 |
|
4371 | 6864 |
self printerType selectionIndex ~~ 0 ifTrue:[ |
4574 | 6865 |
p := self possiblePrinters at:(self printerType selectionIndex). |
4286 | 6866 |
hasPageSize := p supportsPageSizes. |
6867 |
hasMargins := p supportsMargins. |
|
6868 |
] ifFalse:[ |
|
6869 |
hasPageSize := false. |
|
6870 |
hasMargins := false. |
|
6871 |
]. |
|
6872 |
! |
|
6873 |
||
5030 | 6874 |
printerTypeSelectionOrUnitListChanged |
4286 | 6875 |
| p hasPageSize hasMargins unit| |
6876 |
||
6877 |
self printerTypeSelection value ~~ 0 ifTrue:[ |
|
4574 | 6878 |
p := self possiblePrinters at:(self printerTypeSelection value). |
4286 | 6879 |
hasPageSize := p supportsPageSizes. |
6880 |
hasMargins := p supportsMargins. |
|
6881 |
] ifFalse:[ |
|
6882 |
hasPageSize := false. |
|
6883 |
hasMargins := false. |
|
6884 |
]. |
|
6885 |
self enablelandscape value:hasPageSize. |
|
6886 |
self enableFormat value:hasPageSize. |
|
6887 |
hasPageSize ifTrue:[ |
|
6888 |
self pageFormat value:(p pageFormat). |
|
6889 |
self landscape value:(p landscape). |
|
6890 |
] ifFalse:[ |
|
6891 |
self landscape value:false. |
|
6892 |
]. |
|
6893 |
hasMargins ifTrue:[ |
|
6894 |
self selectedUnit value == 2 ifTrue:[ |
|
6895 |
unit := #mm |
|
6896 |
] ifFalse:[ |
|
6897 |
unit := #inch |
|
6898 |
]. |
|
6899 |
||
4371 | 6900 |
self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit). |
6901 |
self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit). |
|
6902 |
self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit). |
|
6903 |
self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit). |
|
4286 | 6904 |
|
6905 |
] ifFalse:[ |
|
6906 |
]. |
|
6907 |
self enableMargins value:hasMargins. |
|
6908 |
||
6909 |
p notNil ifTrue:[ |
|
6910 |
| newCommandList | |
|
6911 |
newCommandList := p defaultCommands. |
|
6912 |
newCommandList notNil ifTrue:[ |
|
6913 |
self printCommandList contents:(newCommandList asList). |
|
6914 |
self printCommandList changed. |
|
6915 |
]. |
|
6916 |
self printCommand value:(p printCommand). |
|
5181 | 6917 |
self printFilename value:(p printFilename ? ''). |
4286 | 6918 |
]. |
6919 |
self enableColorBox value:p supportsPostscript. |
|
6920 |
p supportsPostscript ifFalse:[ |
|
6921 |
self supportsColor value:false |
|
6922 |
] ifTrue:[ |
|
6923 |
self supportsColor value:(Printer supportsColor). |
|
6924 |
] |
|
6925 |
! |
|
6926 |
||
5030 | 6927 |
unitListChanged |
6928 |
! |
|
6929 |
||
6930 |
update:something with:aParameter from:changedObject |
|
4286 | 6931 |
(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[ |
6932 |
self printerTypeSelectionOrUnitListChanged. |
|
6933 |
^ self. |
|
6934 |
]. |
|
6935 |
||
6936 |
super update:something with:aParameter from:changedObject |
|
6937 |
! ! |
|
6938 |
||
6939 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'! |
|
6940 |
||
5030 | 6941 |
commandList |
6942 |
commandList isNil ifTrue:[ |
|
6943 |
commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil. |
|
6944 |
commandList isNil ifTrue:[ |
|
6945 |
commandList := PrinterStream defaultCommands. |
|
6946 |
commandList isNil ifTrue:[ |
|
5151
53c19d72ff59
Avoid warning about slow grow operation
Stefan Vogel <sv@exept.de>
parents:
5149
diff
changeset
|
6947 |
commandList := #('lpr' 'lp'). |
5030 | 6948 |
]. |
5151
53c19d72ff59
Avoid warning about slow grow operation
Stefan Vogel <sv@exept.de>
parents:
5149
diff
changeset
|
6949 |
(commandList includes:self printCommand value) ifFalse:[ |
53c19d72ff59
Avoid warning about slow grow operation
Stefan Vogel <sv@exept.de>
parents:
5149
diff
changeset
|
6950 |
commandList := commandList copyWith:self printCommand value. |
5030 | 6951 |
]. |
6952 |
]. |
|
6953 |
]. |
|
6954 |
^ commandList |
|
6955 |
! |
|
6956 |
||
6957 |
hasUnsavedChanges |
|
4286 | 6958 |
| printer unit| |
5181 | 6959 |
|
4286 | 6960 |
self selectedUnit value == 2 ifTrue:[ |
6961 |
unit := #mm |
|
6962 |
] ifFalse:[ |
|
6963 |
unit := #inch |
|
6964 |
]. |
|
4574 | 6965 |
printer := self possiblePrinters at:(self printerTypeSelection value). |
5181 | 6966 |
|
5918 | 6967 |
printer ~= Printer ifTrue:[^ true]. |
6968 |
||
6969 |
Printer printCommand ~= self printCommand value ifTrue:[^ true]. |
|
6970 |
(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true]. |
|
6971 |
||
6972 |
Printer supportsPageSizes ifTrue:[ |
|
6973 |
Printer pageFormat ~= self pageFormat value ifTrue:[^ true]. |
|
6974 |
Printer landscape ~= (self landscape value) ifTrue:[^ true]. |
|
6975 |
]. |
|
6976 |
Printer supportsMargins ifTrue:[ |
|
6977 |
Printer topMargin ~= ((UnitConverter convert:(self topMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true]. |
|
6978 |
Printer leftMargin ~= ((UnitConverter convert:(self leftMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true]. |
|
6979 |
Printer rightMargin ~= ((UnitConverter convert:(self rightMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true]. |
|
6980 |
Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true]. |
|
6981 |
]. |
|
6982 |
Printer supportsPostscript ifTrue:[ |
|
6983 |
Printer supportsColor ~= self supportsColor value ifTrue:[^ true]. |
|
6984 |
]. |
|
6985 |
^ false |
|
4574 | 6986 |
! |
6987 |
||
5030 | 6988 |
possiblePrinters |
4574 | 6989 |
possiblePrinters isNil ifTrue:[ |
6990 |
possiblePrinters := PrinterStream withAllSubclasses asArray. |
|
6991 |
]. |
|
6992 |
^ possiblePrinters |
|
4286 | 6993 |
! ! |
6994 |
||
4398 | 6995 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'! |
6996 |
||
5030 | 6997 |
defaultIcon |
4398 | 6998 |
"This resource specification was automatically generated |
6999 |
by the ImageEditor of ST/X." |
|
7000 |
||
7001 |
"Do not manually edit this!! If it is corrupted, |
|
7002 |
the ImageEditor may not be able to read the specification." |
|
7003 |
||
7004 |
" |
|
7005 |
self defaultIcon inspect |
|
7006 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
7007 |
Icon flushCachedIcons |
|
7008 |
" |
|
7009 |
||
7010 |
<resource: #image> |
|
7011 |
||
7012 |
^Icon |
|
7013 |
constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon' |
|
4948 | 7014 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
7015 |
@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB |
|
7016 |
DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ |
|
7017 |
DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @@?<@A?>@C??@G?? O??0O??0O??0_??8_??8_??8_??8O??0O??0O??0G?? C??@A?>@@?<@@G @@@@@') ; yourself); yourself] |
|
4398 | 7018 |
! ! |
7019 |
||
7020 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'! |
|
7021 |
||
5030 | 7022 |
windowSpec |
4398 | 7023 |
"This resource specification was automatically generated |
7024 |
by the UIPainter of ST/X." |
|
7025 |
||
7026 |
"Do not manually edit this!! If it is corrupted, |
|
7027 |
the UIPainter may not be able to read the specification." |
|
7028 |
||
7029 |
" |
|
7030 |
UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec |
|
7031 |
AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec |
|
7032 |
AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open |
|
7033 |
" |
|
7034 |
||
7035 |
<resource: #canvas> |
|
7036 |
||
7037 |
^ |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7038 |
#(FullSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7039 |
name: windowSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7040 |
window: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7041 |
(WindowSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7042 |
label: 'Processor and Scheduler Settings' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7043 |
name: 'Processor and Scheduler Settings' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7044 |
min: (Point 10 10) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7045 |
bounds: (Rectangle 14 46 614 366) |
4398 | 7046 |
) |
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7047 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7048 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7049 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7050 |
(VerticalPanelViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7051 |
name: 'VerticalPanel2' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7052 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7053 |
horizontalLayout: fit |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7054 |
verticalLayout: topSpace |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7055 |
horizontalSpace: 3 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7056 |
verticalSpace: 5 |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7057 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7058 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7059 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7060 |
(CheckBoxSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7061 |
label: 'Preemptive Scheduling' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7062 |
name: 'CheckBox11' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7063 |
model: preemptive |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7064 |
translateLabel: true |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7065 |
extent: (Point 600 22) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7066 |
) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7067 |
(ViewSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7068 |
name: 'Box2' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7069 |
component: |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7070 |
(SpecCollection |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7071 |
collection: ( |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7072 |
(CheckBoxSpec |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7073 |
label: 'Dynamic Priorities' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7074 |
name: 'CheckBox12' |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7075 |
layout: (LayoutFrame 30 0.0 0 0 0 1.0 22 0) |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7076 |
enableChannel: preemptive |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7077 |
model: dynamicPrios |
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7078 |
translateLabel: true |
4398 | 7079 |
) |
7080 |
) |
|
7081 |
||
7082 |
) |
|
5154
54806be0518e
Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents:
5151
diff
changeset
|
7083 |
extent: (Point 600 23) |
4398 | 7084 |
) |
7085 |
) |
|
7086 |
||
7087 |
) |
|
7088 |
) |
|
7089 |
) |
|
7090 |
||
7091 |
) |
|
7092 |
) |
|
7093 |
! ! |
|
7094 |
||
7095 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'! |
|
7096 |
||
5030 | 7097 |
basicSaveSettings |
4574 | 7098 |
|
7099 |
Processor isTimeSlicing ~~ self preemptive value ifTrue:[ |
|
7100 |
self preemptive value ifTrue:[ |
|
7101 |
Processor startTimeSlicing |
|
7102 |
] ifFalse:[ |
|
7103 |
Processor stopTimeSlicing |
|
7104 |
] |
|
7105 |
]. |
|
7106 |
Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[ |
|
7107 |
Processor supportDynamicPriorities:self dynamicPrios value |
|
7108 |
]. |
|
7109 |
! |
|
7110 |
||
5101 | 7111 |
helpFilename |
7112 |
^ 'Launcher/miscSettings.html' |
|
4398 | 7113 |
! |
7114 |
||
5030 | 7115 |
readSettings |
4398 | 7116 |
self preemptive value:Processor isTimeSlicing. |
7117 |
self dynamicPrios value:Processor supportDynamicPriorities. |
|
4574 | 7118 |
self modifiedChannel value:false |
4398 | 7119 |
! ! |
7120 |
||
7121 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'! |
|
7122 |
||
5030 | 7123 |
dynamicPrios |
4398 | 7124 |
dynamicPrios isNil ifTrue:[ |
7125 |
dynamicPrios := true asValue. |
|
5085 | 7126 |
dynamicPrios onChangeSend:#updateModifiedChannel to:self. |
4398 | 7127 |
]. |
7128 |
^ dynamicPrios. |
|
7129 |
! |
|
7130 |
||
5030 | 7131 |
preemptive |
4398 | 7132 |
preemptive isNil ifTrue:[ |
7133 |
preemptive := true asValue. |
|
5085 | 7134 |
preemptive onChangeSend:#updateModifiedChannel to:self. |
4398 | 7135 |
]. |
7136 |
^ preemptive. |
|
7137 |
! ! |
|
7138 |
||
7139 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'! |
|
7140 |
||
5030 | 7141 |
hasUnsavedChanges |
5918 | 7142 |
self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true]. |
7143 |
self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true]. |
|
7144 |
^ false |
|
4398 | 7145 |
! ! |
7146 |
||
4312 | 7147 |
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'! |
7148 |
||
5030 | 7149 |
defaultIcon |
4312 | 7150 |
"This resource specification was automatically generated |
7151 |
by the ImageEditor of ST/X." |
|
7152 |
||
7153 |
"Do not manually edit this!! If it is corrupted, |
|
7154 |
the ImageEditor may not be able to read the specification." |
|
7155 |
||
7156 |
" |
|
7157 |
self defaultIcon inspect |
|
7158 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
7159 |
Icon flushCachedIcons |
|
7160 |
" |
|
7161 |
||
7162 |
<resource: #image> |
|
7163 |
||
7164 |
^Icon |
|
7165 |
constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon' |
|
4948 | 7166 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
7167 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&Y&Y&Y&Y&Y3@@@BY&Y&Y&Y&Y''L@@@I$[]7_]7]6,1P@@&QL3L>:1GZ3E@@BY83L3L>D]+LT@@I |
|
7168 |
''#L3L38Q6,1P@@&[L3L8 @]7''E@@BYE3NH (@@_LT@@I$WNBBDAH L1P@@&Q]8P$IB"@3E@@BY4W $ B$@CLT@@L3L $!!H@$"@1P@@3L2DJB DJHCE@@@@UV |
|
7169 |
!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 240 240 0 80 112 112 240 240 240 64 64 64 48 64 80 64 96 96 128 128 0 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@O?@@O?@@G>@@A0@@@@@') ; yourself); yourself] |
|
4312 | 7170 |
! ! |
7171 |
||
4310 | 7172 |
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'! |
7173 |
||
5030 | 7174 |
windowSpec |
4310 | 7175 |
"This resource specification was automatically generated |
7176 |
by the UIPainter of ST/X." |
|
7177 |
||
7178 |
"Do not manually edit this!! If it is corrupted, |
|
7179 |
the UIPainter may not be able to read the specification." |
|
7180 |
||
7181 |
" |
|
7182 |
UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec |
|
7183 |
AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec |
|
7184 |
AbstractSettingsApplication::RDoItServerSettingsAppl open |
|
7185 |
" |
|
7186 |
||
7187 |
<resource: #canvas> |
|
7188 |
||
7189 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7190 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7191 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7192 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7193 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7194 |
label: 'RDoIt Server Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7195 |
name: 'RDoIt Server Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7196 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7197 |
bounds: (Rectangle 14 46 614 596) |
4310 | 7198 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7199 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7200 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7201 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7202 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7203 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7204 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7205 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7206 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7207 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7208 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7209 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7210 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7211 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7212 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7213 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7214 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7215 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7216 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7217 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7218 |
label: 'Remote doits enabled' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7219 |
name: 'CheckBox1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7220 |
layout: (LayoutFrame 5 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7221 |
enableChannel: hasRDoitServerClass |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7222 |
model: rDoitsEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7223 |
translateLabel: true |
5086 | 7224 |
) |
7225 |
) |
|
7226 |
||
7227 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7228 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7229 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7230 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7231 |
name: 'Box2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7232 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7233 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7234 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7235 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7236 |
label: 'Port/Path:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7237 |
name: 'Label2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7238 |
layout: (LayoutFrame 5 0 0 0 150 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7239 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7240 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7241 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7242 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7243 |
name: 'EntryField1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7244 |
layout: (LayoutFrame 150 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7245 |
enableChannel: rDoitsEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7246 |
model: rDoitServerPortOrPath |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7247 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7248 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7249 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7250 |
acceptOnPointerLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7251 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7252 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7253 |
label: 'Port-number for tcp socket; path-string for unix domain socket.' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7254 |
name: 'Label3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7255 |
layout: (LayoutFrame 150 0 28 0 596 0 50 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7256 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7257 |
adjust: left |
4310 | 7258 |
) |
7259 |
) |
|
7260 |
||
7261 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7262 |
extent: (Point 600 72) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7263 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7264 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7265 |
name: 'Box3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7266 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7267 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7268 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7269 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7270 |
label: 'Log errors' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7271 |
name: 'CheckBox2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7272 |
layout: (LayoutFrame 25 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7273 |
enableChannel: rDoitsEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7274 |
model: rDoitErrorLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7275 |
translateLabel: true |
5086 | 7276 |
) |
7277 |
) |
|
7278 |
||
7279 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7280 |
extent: (Point 600 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7281 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7282 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7283 |
name: 'Box4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7284 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7285 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7286 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7287 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7288 |
label: 'Log requests' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7289 |
name: 'CheckBox3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7290 |
layout: (LayoutFrame 25 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7291 |
enableChannel: rDoitsEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7292 |
model: rDoitLogging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7293 |
translateLabel: true |
5086 | 7294 |
) |
7295 |
) |
|
7296 |
||
7297 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7298 |
extent: (Point 600 24) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7299 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7300 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7301 |
name: 'Box5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7302 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7303 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7304 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7305 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7306 |
label: 'Debug errors' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7307 |
name: 'CheckBox4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7308 |
layout: (LayoutFrame 25 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7309 |
enableChannel: rDoitsEnabled |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7310 |
model: rDoitErrorDebugging |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7311 |
translateLabel: true |
5086 | 7312 |
) |
7313 |
) |
|
7314 |
||
7315 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7316 |
extent: (Point 600 23) |
4310 | 7317 |
) |
7318 |
) |
|
7319 |
||
7320 |
) |
|
7321 |
) |
|
7322 |
) |
|
7323 |
||
7324 |
) |
|
7325 |
) |
|
7326 |
! ! |
|
7327 |
||
7328 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'! |
|
7329 |
||
5030 | 7330 |
basicSaveSettings |
4574 | 7331 |
|
5991
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7332 |
|shouldRun portOrPath| |
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7333 |
|
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7334 |
portOrPath := self rDoitServerPortOrPath value. |
6064 | 7335 |
portOrPath isNumber ifFalse:[ |
5991
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7336 |
"a numeric string means it is a TCP port number" |
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7337 |
portOrPath := portOrPath asInteger. |
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7338 |
]. |
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7339 |
|
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7340 |
RDoItServer defaultPortNumberOrPath:portOrPath. |
4574 | 7341 |
RDoItServer logging:self rDoitLogging value. |
7342 |
RDoItServer errorLogging:self rDoitErrorLogging value. |
|
7343 |
RDoItServer errorCatching:(self rDoitErrorDebugging value not). |
|
5991
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7344 |
shouldRun := self rDoitsEnabled value. |
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7345 |
shouldRun ~~ RDoItServer serverRunning ifTrue:[ |
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7346 |
shouldRun ifFalse:[ |
4574 | 7347 |
RDoItServer stop |
7348 |
] ifTrue:[ |
|
7349 |
RDoItServer start. |
|
7350 |
"/ must wait a bit; give it a chance to |
|
7351 |
"/ really start (before checking) |
|
5991
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7352 |
Delay waitForSeconds:1. |
4574 | 7353 |
RDoItServer serverRunning ifFalse:[ |
7354 |
self warn:'RDoit startup failed (see stderr).' |
|
7355 |
] |
|
7356 |
] |
|
7357 |
]. |
|
7358 |
! |
|
7359 |
||
5101 | 7360 |
helpFilename |
7361 |
^ 'Launcher/communicationsSettings.html' |
|
4310 | 7362 |
! |
7363 |
||
5030 | 7364 |
readSettings |
4310 | 7365 |
(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[ |
7366 |
self rDoitsEnabled value:RDoItServer serverRunning. |
|
7367 |
self rDoitLogging value:RDoItServer isLogging. |
|
7368 |
self rDoitErrorLogging value:RDoItServer isErrorLogging. |
|
7369 |
self rDoitErrorDebugging value:RDoItServer isErrorCatching not. |
|
5032
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7370 |
self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath |
4310 | 7371 |
] ifFalse:[ |
7372 |
self rDoitsEnabled value:false. |
|
7373 |
self rDoitLogging value:false. |
|
7374 |
self rDoitErrorLogging value:false. |
|
7375 |
self rDoitErrorDebugging value:false. |
|
5032
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7376 |
self rDoitServerPortOrPath value:nil |
4574 | 7377 |
]. |
7378 |
self modifiedChannel value:false |
|
4310 | 7379 |
! ! |
7380 |
||
7381 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'! |
|
7382 |
||
5030 | 7383 |
rDoitErrorDebugging |
4310 | 7384 |
|
7385 |
rDoitErrorDebugging isNil ifTrue:[ |
|
7386 |
rDoitErrorDebugging := true asValue. |
|
5041 | 7387 |
rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self |
4310 | 7388 |
]. |
7389 |
^ rDoitErrorDebugging. |
|
7390 |
! |
|
7391 |
||
5030 | 7392 |
rDoitErrorLogging |
4310 | 7393 |
|
7394 |
rDoitErrorLogging isNil ifTrue:[ |
|
7395 |
rDoitErrorLogging := true asValue. |
|
5041 | 7396 |
rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self |
4310 | 7397 |
]. |
7398 |
^ rDoitErrorLogging. |
|
7399 |
! |
|
7400 |
||
5030 | 7401 |
rDoitLogging |
4310 | 7402 |
|
7403 |
rDoitLogging isNil ifTrue:[ |
|
7404 |
rDoitLogging := true asValue. |
|
5041 | 7405 |
rDoitLogging onChangeSend:#updateModifiedChannel to:self |
4310 | 7406 |
]. |
7407 |
^ rDoitLogging. |
|
7408 |
! |
|
7409 |
||
5032
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7410 |
rDoitServerPortOrPath |
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7411 |
|
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7412 |
rDoitServerPortOrPath isNil ifTrue:[ |
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7413 |
rDoitServerPortOrPath := ValueHolder new. |
5041 | 7414 |
rDoitServerPortOrPath onChangeSend:#updateModifiedChannel to:self |
5032
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7415 |
]. |
2a26da89dada
allow for rdoitPort to be a string (for ud sockets)
Claus Gittinger <cg@exept.de>
parents:
5031
diff
changeset
|
7416 |
^ rDoitServerPortOrPath. |
4310 | 7417 |
! |
7418 |
||
5030 | 7419 |
rDoitsEnabled |
4310 | 7420 |
|
7421 |
rDoitsEnabled isNil ifTrue:[ |
|
7422 |
rDoitsEnabled := true asValue. |
|
4675 | 7423 |
rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self |
4310 | 7424 |
]. |
7425 |
^ rDoitsEnabled. |
|
7426 |
! ! |
|
7427 |
||
7428 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'! |
|
7429 |
||
5030 | 7430 |
rDoitsEnabledChanged |
5041 | 7431 |
self updateModifiedChannel. |
4310 | 7432 |
self rDoitsEnabled value ifTrue:[ |
5991
1f8b715b9c06
Fix rdoit settings: allow to specify a port number
Stefan Vogel <sv@exept.de>
parents:
5943
diff
changeset
|
7433 |
rDoitServerPortOrPath value isEmptyOrNil ifTrue:[ |
5041 | 7434 |
rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath) |
4310 | 7435 |
] |
5041 | 7436 |
] |
4310 | 7437 |
! |
7438 |
||
5030 | 7439 |
update:something with:aParameter from:changedObject |
4310 | 7440 |
changedObject == self rDoitsEnabled ifTrue:[ |
7441 |
self rDoitsEnabledChanged. |
|
7442 |
^ self. |
|
7443 |
]. |
|
7444 |
||
7445 |
super update:something with:aParameter from:changedObject |
|
7446 |
! ! |
|
7447 |
||
7448 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'! |
|
7449 |
||
5030 | 7450 |
hasRDoitServer |
4310 | 7451 |
|
7452 |
^ RDoItServer notNil and:[RDoItServer isLoaded] |
|
7453 |
! |
|
7454 |
||
5030 | 7455 |
hasRDoitServerClass |
4675 | 7456 |
^ RDoItServer notNil |
7457 |
! |
|
7458 |
||
5030 | 7459 |
hasUnsavedChanges |
4310 | 7460 |
(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[ |
5918 | 7461 |
self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true]. |
7462 |
RDoItServer serverRunning ifTrue:[ |
|
7463 |
self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true]. |
|
7464 |
self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true]. |
|
7465 |
self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true]. |
|
7466 |
self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true]. |
|
7467 |
] |
|
4310 | 7468 |
]. |
7469 |
^ false |
|
7470 |
! ! |
|
7471 |
||
4387 | 7472 |
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'! |
7473 |
||
5030 | 7474 |
stcCompilationOptions |
4387 | 7475 |
|
5278
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7476 |
^ #(default never) |
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7477 |
! |
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7478 |
|
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7479 |
stcCompilationStrings |
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7480 |
|
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7481 |
^ #('primitive code only' 'never') |
4387 | 7482 |
! ! |
7483 |
||
7484 |
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'! |
|
7485 |
||
5030 | 7486 |
defaultIcon |
4387 | 7487 |
"This resource specification was automatically generated |
7488 |
by the ImageEditor of ST/X." |
|
7489 |
||
7490 |
"Do not manually edit this!! If it is corrupted, |
|
7491 |
the ImageEditor may not be able to read the specification." |
|
7492 |
||
7493 |
" |
|
7494 |
self defaultIcon inspect |
|
7495 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
7496 |
Icon flushCachedIcons |
|
7497 |
" |
|
7498 |
||
7499 |
<resource: #image> |
|
7500 |
||
7501 |
^Icon |
|
7502 |
constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon' |
|
4948 | 7503 |
ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B@@@B@@@@@@@AG.=1G.=0D*%PG.=0@@@@G??1FHH0E>7PE>70F^70G.71G.7PD^80G??0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself] |
4387 | 7504 |
! ! |
7505 |
||
7506 |
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'! |
|
7507 |
||
5030 | 7508 |
windowSpec |
4387 | 7509 |
"This resource specification was automatically generated |
7510 |
by the UIPainter of ST/X." |
|
7511 |
||
7512 |
"Do not manually edit this!! If it is corrupted, |
|
7513 |
the UIPainter may not be able to read the specification." |
|
7514 |
||
7515 |
" |
|
7516 |
UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec |
|
7517 |
AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec |
|
7518 |
AbstractSettingsApplication::STCCompilerSettingsAppl open |
|
7519 |
" |
|
7520 |
||
7521 |
<resource: #canvas> |
|
7522 |
||
7523 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7524 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7525 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7526 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7527 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7528 |
label: 'STC Compiler Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7529 |
name: 'STC Compiler Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7530 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7531 |
bounds: (Rectangle 14 46 614 660) |
4387 | 7532 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7533 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7534 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7535 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7536 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7537 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7538 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7539 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7540 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7541 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7542 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7543 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7544 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7545 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7546 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7547 |
name: 'Box11' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7548 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7549 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7550 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7551 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7552 |
label: 'STC Compilation to Machine Code' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7553 |
name: 'Label11' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7554 |
layout: (LayoutFrame 0 0 0 0 200 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7555 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7556 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7557 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7558 |
(PopUpListSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7559 |
label: 'PopUp List' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7560 |
name: 'StcCompilation' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7561 |
layout: (LayoutFrame 201 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7562 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7563 |
model: stcCompilationSelection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7564 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7565 |
menu: stcCompilationList |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7566 |
useIndex: true |
4387 | 7567 |
) |
7568 |
) |
|
7569 |
||
7570 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7571 |
extent: (Point 600 29) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7572 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7573 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7574 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7575 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7576 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7577 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7578 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7579 |
label: 'STC Command:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7580 |
name: 'Label1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7581 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7582 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7583 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7584 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7585 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7586 |
name: 'EntryField1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7587 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7588 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7589 |
model: stc |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7590 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7591 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7592 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7593 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7594 |
acceptOnPointerLeave: true |
4387 | 7595 |
) |
7596 |
) |
|
7597 |
||
7598 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7599 |
extent: (Point 600 35) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7600 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7601 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7602 |
name: 'Box2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7603 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7604 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7605 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7606 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7607 |
label: 'STC Options:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7608 |
name: 'Label2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7609 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7610 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7611 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7612 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7613 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7614 |
name: 'EntryField2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7615 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7616 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7617 |
model: stcOptions |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7618 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7619 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7620 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7621 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7622 |
acceptOnPointerLeave: true |
4387 | 7623 |
) |
7624 |
) |
|
7625 |
||
7626 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7627 |
extent: (Point 600 35) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7628 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7629 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7630 |
name: 'Box3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7631 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7632 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7633 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7634 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7635 |
label: 'CC Command:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7636 |
name: 'Label3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7637 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7638 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7639 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7640 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7641 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7642 |
name: 'EntryField3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7643 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7644 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7645 |
model: cc |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7646 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7647 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7648 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7649 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7650 |
acceptOnPointerLeave: true |
4387 | 7651 |
) |
7652 |
) |
|
7653 |
||
7654 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7655 |
extent: (Point 600 35) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7656 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7657 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7658 |
name: 'Box4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7659 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7660 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7661 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7662 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7663 |
label: 'CC Options:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7664 |
name: 'Label4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7665 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7666 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7667 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7668 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7669 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7670 |
name: 'EntryField4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7671 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7672 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7673 |
model: ccOptions |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7674 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7675 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7676 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7677 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7678 |
acceptOnPointerLeave: true |
4387 | 7679 |
) |
7680 |
) |
|
7681 |
||
7682 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7683 |
extent: (Point 600 35) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7684 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7685 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7686 |
name: 'Box5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7687 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7688 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7689 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7690 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7691 |
label: 'Include Directories:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7692 |
name: 'Label5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7693 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7694 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7695 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7696 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7697 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7698 |
name: 'EntryField5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7699 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7700 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7701 |
model: stcIncludes |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7702 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7703 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7704 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7705 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7706 |
acceptOnPointerLeave: true |
4387 | 7707 |
) |
7708 |
) |
|
7709 |
||
7710 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7711 |
extent: (Point 600 35) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7712 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7713 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7714 |
name: 'Box6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7715 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7716 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7717 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7718 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7719 |
label: 'Defines:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7720 |
name: 'Label6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7721 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7722 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7723 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7724 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7725 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7726 |
name: 'EntryField6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7727 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7728 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7729 |
model: stcDefines |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7730 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7731 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7732 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7733 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7734 |
acceptOnPointerLeave: true |
4387 | 7735 |
) |
7736 |
) |
|
7737 |
||
7738 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7739 |
extent: (Point 600 34) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7740 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7741 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7742 |
name: 'Box7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7743 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7744 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7745 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7746 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7747 |
label: 'Link Command:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7748 |
name: 'Label7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7749 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7750 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7751 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7752 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7753 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7754 |
name: 'EntryField7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7755 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7756 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7757 |
model: linkCommand |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7758 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7759 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7760 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7761 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7762 |
acceptOnPointerLeave: true |
4387 | 7763 |
) |
7764 |
) |
|
7765 |
||
7766 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7767 |
extent: (Point 600 33) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7768 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7769 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7770 |
name: 'Box8' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7771 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7772 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7773 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7774 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7775 |
label: 'Link Arguments:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7776 |
name: 'Label8' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7777 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7778 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7779 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7780 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7781 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7782 |
name: 'EntryField8' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7783 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7784 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7785 |
model: linkArgs |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7786 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7787 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7788 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7789 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7790 |
acceptOnPointerLeave: true |
4387 | 7791 |
) |
7792 |
) |
|
7793 |
||
7794 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7795 |
extent: (Point 600 32) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7796 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7797 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7798 |
name: 'Box9' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7799 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7800 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7801 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7802 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7803 |
label: 'C-Libraries:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7804 |
name: 'Label9' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7805 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7806 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7807 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7808 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7809 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7810 |
name: 'EntryField9' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7811 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7812 |
enableChannel: canLoadBinaries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7813 |
model: stcLibraries |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7814 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7815 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7816 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7817 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7818 |
acceptOnPointerLeave: true |
4387 | 7819 |
) |
7820 |
) |
|
7821 |
||
7822 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7823 |
extent: (Point 600 31) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7824 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7825 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7826 |
name: 'Box10' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7827 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7828 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7829 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7830 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7831 |
label: 'STC Library Path:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7832 |
name: 'Label10' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7833 |
layout: (LayoutFrame 5 0 0 0 132 0 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7834 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7835 |
adjust: right |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7836 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7837 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7838 |
name: 'EntryField10' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7839 |
layout: (LayoutFrame 139 0 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7840 |
enableChannel: enableStcLibraryPath |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7841 |
model: stcLibraryPath |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7842 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7843 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7844 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7845 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7846 |
acceptOnPointerLeave: true |
4387 | 7847 |
) |
7848 |
) |
|
7849 |
||
7850 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
7851 |
extent: (Point 600 30) |
4387 | 7852 |
) |
7853 |
) |
|
7854 |
||
7855 |
) |
|
7856 |
) |
|
7857 |
) |
|
7858 |
||
7859 |
) |
|
7860 |
) |
|
7861 |
! ! |
|
7862 |
||
7863 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'! |
|
7864 |
||
5030 | 7865 |
basicSaveSettings |
4574 | 7866 |
|
7867 |
Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value). |
|
7868 |
Compiler stcCompilationIncludes:self stcIncludes value. |
|
7869 |
Compiler stcCompilationDefines:self stcDefines value. |
|
7870 |
Compiler stcCompilationOptions:self stcOptions value. |
|
7871 |
Compiler ccCompilationOptions:self ccOptions value. |
|
7872 |
Compiler ccPath:self cc value. |
|
7873 |
self stc value ~= Compiler stcPath ifTrue:[ |
|
7874 |
Compiler stcPath:self stc value |
|
7875 |
]. |
|
7876 |
ObjectFileLoader linkCommand:self linkCommand value. |
|
7877 |
ObjectFileLoader linkArgs:self linkArgs value. |
|
7878 |
ObjectFileLoader notNil ifTrue:[ |
|
7879 |
self stcLibraries value notNil ifTrue:[ |
|
7880 |
ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords). |
|
7881 |
]. |
|
7882 |
stcLibraryPath notNil ifTrue:[ |
|
7883 |
ObjectFileLoader libPath:(self stcLibraryPath value). |
|
7884 |
] |
|
7885 |
]. |
|
7886 |
! |
|
7887 |
||
5101 | 7888 |
helpFilename |
7889 |
^ 'Launcher/compilerSettings.html' |
|
4387 | 7890 |
! |
7891 |
||
5030 | 7892 |
readSettings |
4574 | 7893 |
self canLoadBinaries |
7894 |
value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]). |
|
4387 | 7895 |
self stcIncludes value:Compiler stcCompilationIncludes. |
7896 |
self stcDefines value:Compiler stcCompilationDefines. |
|
7897 |
self stcOptions value:Compiler stcCompilationOptions. |
|
7898 |
self ccOptions value:Compiler ccCompilationOptions. |
|
7899 |
self cc value:Compiler ccPath. |
|
7900 |
self stc value:Compiler stcPath. |
|
7901 |
self linkCommand value:ObjectFileLoader linkCommand. |
|
7902 |
self linkArgs value:ObjectFileLoader linkArgs. |
|
7903 |
ObjectFileLoader notNil ifTrue:[ |
|
4574 | 7904 |
|t| |
7905 |
||
4387 | 7906 |
(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[ |
4574 | 7907 |
self stcLibraries value:(String fromStringCollection:t separatedBy:' ') |
4387 | 7908 |
]. |
7909 |
(t := ObjectFileLoader libPath) notNil ifTrue:[ |
|
4574 | 7910 |
self stcLibraryPath value:t |
4387 | 7911 |
] |
7912 |
]. |
|
5278
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7913 |
|
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7914 |
self stcCompilationSelection value:(self class stcCompilationOptions |
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7915 |
indexOf:(Compiler stcCompilation) |
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7916 |
ifAbsent:1). |
4574 | 7917 |
self modifiedChannel value:false |
4387 | 7918 |
! ! |
7919 |
||
7920 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'! |
|
7921 |
||
5030 | 7922 |
canLoadBinaries |
4387 | 7923 |
|
7924 |
canLoadBinaries isNil ifTrue:[ |
|
7925 |
canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue. |
|
7926 |
]. |
|
7927 |
^ canLoadBinaries. |
|
7928 |
! |
|
7929 |
||
5030 | 7930 |
cc |
7931 |
||
7932 |
cc isNil ifTrue:[ |
|
7933 |
cc := ValueHolder new. |
|
5041 | 7934 |
cc onChangeSend:#updateModifiedChannel to:self. |
5030 | 7935 |
]. |
7936 |
^ cc. |
|
7937 |
! |
|
7938 |
||
7939 |
ccOptions |
|
4387 | 7940 |
|
7941 |
ccOptions isNil ifTrue:[ |
|
7942 |
ccOptions := ValueHolder new. |
|
5041 | 7943 |
ccOptions onChangeSend:#updateModifiedChannel to:self. |
4387 | 7944 |
]. |
7945 |
^ ccOptions. |
|
7946 |
! |
|
7947 |
||
5030 | 7948 |
enableStcLibraryPath |
4387 | 7949 |
|
7950 |
^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries]) |
|
7951 |
! |
|
7952 |
||
5030 | 7953 |
linkArgs |
4387 | 7954 |
|
7955 |
linkArgs isNil ifTrue:[ |
|
7956 |
linkArgs := ValueHolder new. |
|
5041 | 7957 |
linkArgs onChangeSend:#updateModifiedChannel to:self. |
4387 | 7958 |
]. |
7959 |
^ linkArgs. |
|
7960 |
! |
|
7961 |
||
5030 | 7962 |
linkCommand |
4387 | 7963 |
|
7964 |
linkCommand isNil ifTrue:[ |
|
7965 |
linkCommand := ValueHolder new. |
|
5041 | 7966 |
linkCommand onChangeSend:#updateModifiedChannel to:self. |
4387 | 7967 |
]. |
7968 |
^ linkCommand. |
|
7969 |
! |
|
7970 |
||
5030 | 7971 |
stc |
7972 |
||
7973 |
stc isNil ifTrue:[ |
|
4387 | 7974 |
stc := ValueHolder new. |
5041 | 7975 |
stc onChangeSend:#updateModifiedChannel to:self. |
4387 | 7976 |
]. |
7977 |
^ stc. |
|
7978 |
! |
|
7979 |
||
5030 | 7980 |
stcCompilationList |
4387 | 7981 |
|
7982 |
stcCompilationList isNil ifTrue:[ |
|
5278
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7983 |
stcCompilationList := (resources array:(self class stcCompilationStrings)) asList. |
4387 | 7984 |
]. |
7985 |
^ stcCompilationList. |
|
7986 |
! |
|
7987 |
||
5030 | 7988 |
stcCompilationSelection |
4387 | 7989 |
|
7990 |
stcCompilationSelection isNil ifTrue:[ |
|
5278
67cd86f196dc
fixed compiler settings - removed #always option for stc
Michael Beyl <mb@exept.de>
parents:
5214
diff
changeset
|
7991 |
stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:1) asValue. |
5041 | 7992 |
stcCompilationSelection onChangeSend:#updateModifiedChannel to:self. |
4387 | 7993 |
]. |
7994 |
^ stcCompilationSelection. |
|
7995 |
! |
|
7996 |
||
5030 | 7997 |
stcDefines |
4387 | 7998 |
|
7999 |
stcDefines isNil ifTrue:[ |
|
8000 |
stcDefines := ValueHolder new. |
|
5041 | 8001 |
stcDefines onChangeSend:#updateModifiedChannel to:self. |
4387 | 8002 |
]. |
8003 |
^ stcDefines. |
|
8004 |
! |
|
8005 |
||
5030 | 8006 |
stcIncludes |
4387 | 8007 |
|
8008 |
stcIncludes isNil ifTrue:[ |
|
8009 |
stcIncludes := ValueHolder new. |
|
5041 | 8010 |
stcIncludes onChangeSend:#updateModifiedChannel to:self. |
4387 | 8011 |
]. |
8012 |
^ stcIncludes. |
|
8013 |
! |
|
8014 |
||
5030 | 8015 |
stcLibraries |
4387 | 8016 |
|
8017 |
stcLibraries isNil ifTrue:[ |
|
8018 |
stcLibraries := ValueHolder new. |
|
5041 | 8019 |
stcLibraries onChangeSend:#updateModifiedChannel to:self. |
4387 | 8020 |
]. |
8021 |
^ stcLibraries. |
|
8022 |
! |
|
8023 |
||
5030 | 8024 |
stcLibraryPath |
4387 | 8025 |
|
8026 |
stcLibraryPath isNil ifTrue:[ |
|
8027 |
stcLibraryPath := ValueHolder new. |
|
5041 | 8028 |
stcLibraryPath onChangeSend:#updateModifiedChannel to:self. |
4387 | 8029 |
]. |
8030 |
^ stcLibraryPath. |
|
8031 |
! |
|
8032 |
||
5030 | 8033 |
stcOptions |
4387 | 8034 |
|
8035 |
stcOptions isNil ifTrue:[ |
|
8036 |
stcOptions := ValueHolder new. |
|
5041 | 8037 |
stcOptions onChangeSend:#updateModifiedChannel to:self. |
4387 | 8038 |
]. |
8039 |
^ stcOptions. |
|
8040 |
! ! |
|
8041 |
||
8042 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'! |
|
8043 |
||
5030 | 8044 |
hasUnsavedChanges |
4387 | 8045 |
| searchedLibs | |
5918 | 8046 |
|
4387 | 8047 |
searchedLibs := ObjectFileLoader searchedLibraries. |
5918 | 8048 |
|
8049 |
((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true]. |
|
8050 |
((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true]. |
|
8051 |
((Compiler stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true]. |
|
8052 |
((Compiler stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true]. |
|
8053 |
((Compiler stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true]. |
|
8054 |
((Compiler ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true]. |
|
8055 |
((Compiler ccPath) ~= self cc value) ifTrue:[^ true]. |
|
8056 |
((Compiler stcPath) ~= self stc value) ifTrue:[^ true]. |
|
8057 |
((ObjectFileLoader linkCommand) ~= self linkCommand value) ifTrue:[^ true]. |
|
8058 |
((ObjectFileLoader linkArgs) ~= self linkArgs value) ifTrue:[^ true]. |
|
8059 |
||
8060 |
ObjectFileLoader notNil ifTrue:[ |
|
8061 |
searchedLibs notNil ifTrue:[ |
|
8062 |
(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true]. |
|
8063 |
]. |
|
8064 |
ObjectFileLoader libPath notNil ifTrue:[ |
|
8065 |
ObjectFileLoader libPath ~= self stcLibraryPath value ifTrue:[^ true]. |
|
8066 |
]. |
|
8067 |
]. |
|
8068 |
^ false. |
|
4387 | 8069 |
! ! |
8070 |
||
4398 | 8071 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'! |
8072 |
||
5030 | 8073 |
exampleText |
4398 | 8074 |
|
8075 |
^ 'methodSelector:methodArg |
|
8076 |
"method comment: |
|
8077 |
some stupid code to show the current settings" |
|
8078 |
||
8079 |
|index| |
|
8080 |
||
8081 |
"/ another comment ... |
|
5072 | 8082 |
self at:index+1. "/ a message |
4398 | 8083 |
self at:index put:methodArg. "/ a two arg message |
8084 |
self from:1 to:index put:methodArg. "/ a three arg message |
|
8085 |
methodArg ifTrue:[ |
|
8086 |
Transcript showCR:''hello''. "/ condition |
|
8087 |
]. |
|
8088 |
methodArg ifTrue:[ |
|
8089 |
Transcript showCR:''hello''. "/ condition |
|
8090 |
] ifFalse:[ |
|
8091 |
Transcript showCR:''world''. |
|
8092 |
]. |
|
8093 |
[methodArg] whileTrue:[ |
|
8094 |
Transcript showCR:''hello''. "/ looping |
|
8095 |
]. |
|
8096 |
[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[ |
|
8097 |
Transcript showCR:''hello''. "/ long blocks |
|
8098 |
]. |
|
8099 |
methodArg do:[:element | |
|
8100 |
Transcript showCR:''hello''. "/ looping |
|
8101 |
]. |
|
8102 |
1 to:methodArg size do:[:index | |
|
8103 |
Transcript showCR:''hello''. "/ looping |
|
8104 |
]. |
|
8105 |
methodArg keysAndValuesDo:[:index | |
|
8106 |
Transcript showCR:''hello''. "/ looping |
|
8107 |
]. |
|
8108 |
Object errorSignal handle:[:ex | |
|
8109 |
ex return |
|
8110 |
] do:[ "/ exception handling |
|
8111 |
self someAction "/ blocks |
|
8112 |
]. |
|
8113 |
^ self. |
|
8114 |
'. |
|
8115 |
! ! |
|
8116 |
||
8117 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'! |
|
4312 | 8118 |
|
5030 | 8119 |
defaultIcon |
4312 | 8120 |
"This resource specification was automatically generated |
8121 |
by the ImageEditor of ST/X." |
|
8122 |
||
8123 |
"Do not manually edit this!! If it is corrupted, |
|
8124 |
the ImageEditor may not be able to read the specification." |
|
8125 |
||
8126 |
" |
|
8127 |
self defaultIcon inspect |
|
8128 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
8129 |
Icon flushCachedIcons |
|
8130 |
" |
|
8131 |
||
8132 |
<resource: #image> |
|
8133 |
||
8134 |
^Icon |
|
4948 | 8135 |
constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon' |
8136 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
8137 |
*******************************("H"H"H"H"J(@**"EUUU%UUUU@@^**HUUUVUUUU@@]:*(!!UUUYUUUT@A7**"FY&Y&Y&X@]7^**HUUUVUU@@]7\Z*( |
|
8138 |
!!UUUYU@@]7\R**"EUUU%T@A7]1J**HY&Y&XC]7\Q&**(!!UUU(3M7\Y&***"EUUU#L3L2QJ***HY&Z#L3L6)D***(!!&Y*L3L6Z$R***"EUUP3M&ZEQJ***HUU |
|
8139 |
RRY(UUUD***("*)J*****$R***"J)J******QJ***HUUUZUUUUUD***TQDQDQDQDQDR***************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself] |
|
4398 | 8140 |
! ! |
8141 |
||
8142 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'! |
|
8143 |
||
5030 | 8144 |
windowSpec |
4398 | 8145 |
"This resource specification was automatically generated |
8146 |
by the UIPainter of ST/X." |
|
8147 |
||
8148 |
"Do not manually edit this!! If it is corrupted, |
|
8149 |
the UIPainter may not be able to read the specification." |
|
8150 |
||
8151 |
" |
|
8152 |
UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec |
|
8153 |
AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec |
|
8154 |
AbstractSettingsApplication::SourceCodeFormatSettingsAppl open |
|
8155 |
" |
|
8156 |
||
8157 |
<resource: #canvas> |
|
8158 |
||
8159 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8160 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8161 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8162 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8163 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8164 |
label: 'Code Format Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8165 |
name: 'Code Format Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8166 |
min: (Point 10 10) |
6017 | 8167 |
bounds: (Rectangle 0 0 604 676) |
4398 | 8168 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8169 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8170 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8171 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8172 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8173 |
name: 'VerticalPanel3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8174 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8175 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8176 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8177 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8178 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8179 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8180 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8181 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8182 |
(VerticalPanelViewSpec |
6017 | 8183 |
name: 'VerticalPanel1' |
8184 |
horizontalLayout: fit |
|
8185 |
verticalLayout: bottom |
|
8186 |
horizontalSpace: 3 |
|
8187 |
verticalSpace: 3 |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8188 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8189 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8190 |
collection: ( |
6017 | 8191 |
(ViewSpec |
8192 |
name: 'Box1' |
|
8193 |
component: |
|
8194 |
(SpecCollection |
|
8195 |
collection: ( |
|
8196 |
(CheckBoxSpec |
|
8197 |
label: 'Space around Temporaries' |
|
8198 |
name: 'CheckBox3' |
|
8199 |
layout: (LayoutFrame 0 0 0 0 250 0 22 0) |
|
8200 |
model: spaceAroundTemporaries |
|
8201 |
translateLabel: true |
|
8202 |
) |
|
8203 |
(CheckBoxSpec |
|
8204 |
label: 'Blank line after local Var Declaration' |
|
8205 |
name: 'CheckBox4' |
|
8206 |
layout: (LayoutFrame 250 0 0 0 0 1 22 0) |
|
8207 |
model: emptyLineAfterTemporaries |
|
8208 |
translateLabel: true |
|
8209 |
) |
|
8210 |
) |
|
8211 |
||
8212 |
) |
|
8213 |
extent: (Point 604 22) |
|
8214 |
) |
|
8215 |
(ViewSpec |
|
8216 |
name: 'Box11' |
|
8217 |
component: |
|
8218 |
(SpecCollection |
|
8219 |
collection: ( |
|
8220 |
(CheckBoxSpec |
|
8221 |
label: 'Space after ''^''' |
|
8222 |
name: 'CheckBox5' |
|
8223 |
layout: (LayoutFrame 0 0 0 0 250 0 22 0) |
|
8224 |
model: spaceAfterReturnToken |
|
8225 |
translateLabel: true |
|
8226 |
) |
|
8227 |
(CheckBoxSpec |
|
8228 |
label: 'Space after '':'' in Keywords' |
|
8229 |
name: 'CheckBox6' |
|
8230 |
layout: (LayoutFrame 250 0 0 0 -5 1 22 0) |
|
8231 |
model: spaceAfterKeywordSelector |
|
8232 |
translateLabel: true |
|
8233 |
) |
|
8234 |
) |
|
8235 |
||
8236 |
) |
|
8237 |
extent: (Point 604 22) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8238 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8239 |
(ViewSpec |
6017 | 8240 |
name: 'Box15' |
8241 |
component: |
|
8242 |
(SpecCollection |
|
8243 |
collection: ( |
|
8244 |
(CheckBoxSpec |
|
8245 |
label: 'Space after ''[''' |
|
8246 |
name: 'CheckBox9' |
|
8247 |
layout: (LayoutFrame 0 0 0 0 250 0 22 0) |
|
8248 |
model: spaceAfterBlockStart |
|
8249 |
translateLabel: true |
|
8250 |
) |
|
8251 |
(CheckBoxSpec |
|
8252 |
label: 'Space before '']''' |
|
8253 |
name: 'CheckBox10' |
|
8254 |
layout: (LayoutFrame 250 0 0 0 -5 1 22 0) |
|
8255 |
model: spaceBeforeBlockEnd |
|
8256 |
translateLabel: true |
|
8257 |
) |
|
8258 |
) |
|
8259 |
||
8260 |
) |
|
8261 |
extent: (Point 604 22) |
|
8262 |
) |
|
8263 |
(ViewSpec |
|
8264 |
name: 'Box12' |
|
8265 |
component: |
|
8266 |
(SpecCollection |
|
8267 |
collection: ( |
|
8268 |
(CheckBoxSpec |
|
8269 |
label: 'Block Args on new Line' |
|
8270 |
name: 'CheckBox7' |
|
8271 |
layout: (LayoutFrame 250 0 0 0 -5 1 22 0) |
|
8272 |
model: blockArgumentsOnNewLine |
|
8273 |
translateLabel: true |
|
8274 |
) |
|
8275 |
(CheckBoxSpec |
|
8276 |
label: 'C-Style Blocks' |
|
8277 |
name: 'CheckBox8' |
|
8278 |
layout: (LayoutFrame 0 0 0 0 250 0 22 0) |
|
8279 |
model: cStyleBlocks |
|
8280 |
translateLabel: true |
|
8281 |
) |
|
8282 |
) |
|
8283 |
||
8284 |
) |
|
8285 |
extent: (Point 604 22) |
|
8286 |
) |
|
8287 |
(ViewSpec |
|
8288 |
name: 'Box13' |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8289 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8290 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8291 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8292 |
(LabelSpec |
6017 | 8293 |
label: 'Indent:' |
8294 |
name: 'Label1' |
|
8295 |
layout: (LayoutFrame 0 0 0 0 250 0 22 0) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8296 |
translateLabel: true |
6017 | 8297 |
adjust: right |
4398 | 8298 |
) |
6017 | 8299 |
(InputFieldSpec |
8300 |
name: 'EntryField1' |
|
8301 |
layout: (LayoutFrame 253 0 0 0 300 0 22 0) |
|
8302 |
model: tabIndent |
|
8303 |
type: number |
|
8304 |
acceptOnReturn: true |
|
8305 |
acceptOnTab: true |
|
8306 |
acceptOnLostFocus: true |
|
8307 |
acceptOnPointerLeave: true |
|
4398 | 8308 |
) |
8309 |
) |
|
8310 |
||
8311 |
) |
|
6017 | 8312 |
extent: (Point 604 30) |
8313 |
) |
|
8314 |
(ViewSpec |
|
8315 |
name: 'Box16' |
|
8316 |
component: |
|
8317 |
(SpecCollection |
|
8318 |
collection: ( |
|
8319 |
(LabelSpec |
|
8320 |
label: 'Max Length for Single Line Blocks:' |
|
8321 |
name: 'Label5' |
|
8322 |
layout: (LayoutFrame 0 0 0 0 250 0 22 0) |
|
8323 |
translateLabel: true |
|
8324 |
adjust: right |
|
8325 |
) |
|
8326 |
(InputFieldSpec |
|
8327 |
name: 'EntryField4' |
|
8328 |
layout: (LayoutFrame 253 0 0 0 300 0 22 0) |
|
8329 |
model: maxLengthForSingleLineBlocks |
|
8330 |
type: number |
|
8331 |
acceptOnReturn: true |
|
8332 |
acceptOnTab: true |
|
8333 |
acceptOnLostFocus: true |
|
8334 |
acceptOnPointerLeave: true |
|
8335 |
) |
|
8336 |
) |
|
8337 |
||
8338 |
) |
|
8339 |
extent: (Point 604 29) |
|
8340 |
) |
|
8341 |
(HorizontalPanelViewSpec |
|
8342 |
name: 'HorizontalPanel1' |
|
8343 |
horizontalLayout: fitSpace |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8344 |
verticalLayout: bottom |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8345 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8346 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8347 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8348 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8349 |
collection: ( |
6017 | 8350 |
(ActionButtonSpec |
8351 |
label: 'Reset to ST/X Default' |
|
8352 |
name: 'Button1' |
|
8353 |
translateLabel: true |
|
8354 |
model: resetToStxDefault |
|
8355 |
extent: (Point 297 22) |
|
5072 | 8356 |
) |
6017 | 8357 |
(ActionButtonSpec |
8358 |
label: 'Reset to RefactoryBrowser Default' |
|
8359 |
name: 'Button2' |
|
8360 |
translateLabel: true |
|
8361 |
model: resetToRBDefault |
|
8362 |
extent: (Point 298 22) |
|
4398 | 8363 |
) |
8364 |
) |
|
8365 |
||
8366 |
) |
|
6017 | 8367 |
extent: (Point 604 30) |
4398 | 8368 |
) |
8369 |
) |
|
8370 |
||
8371 |
) |
|
6017 | 8372 |
extent: (Point 604 180) |
8373 |
) |
|
8374 |
(ViewSpec |
|
6020 | 8375 |
name: 'SpacingBox1' |
8376 |
extent: (Point 604 10) |
|
6017 | 8377 |
) |
8378 |
(ViewSpec |
|
8379 |
name: 'Box14' |
|
8380 |
component: |
|
8381 |
(SpecCollection |
|
8382 |
collection: ( |
|
8383 |
(LabelSpec |
|
8384 |
label: 'Sample Output:' |
|
8385 |
name: 'Label3' |
|
8386 |
layout: (LayoutFrame 0 0 0 0 0 1 22 0) |
|
8387 |
translateLabel: true |
|
8388 |
adjust: left |
|
8389 |
) |
|
8390 |
(TextEditorSpec |
|
8391 |
name: 'TextEditor3' |
|
8392 |
layout: (LayoutFrame 0 0 22 0 0 1 300 0) |
|
8393 |
model: editorText |
|
8394 |
hasHorizontalScrollBar: true |
|
8395 |
hasVerticalScrollBar: true |
|
8396 |
isReadOnly: true |
|
8397 |
postBuildCallback: postBuildTextEditor: |
|
8398 |
) |
|
8399 |
) |
|
8400 |
||
8401 |
) |
|
8402 |
extent: (Point 604 300) |
|
8403 |
) |
|
8404 |
(ViewSpec |
|
6020 | 8405 |
name: 'SpacingBox2' |
8406 |
extent: (Point 604 10) |
|
6017 | 8407 |
) |
8408 |
(CheckBoxSpec |
|
8409 |
label: 'Auto Format' |
|
8410 |
name: 'CheckBox2' |
|
8411 |
model: autoFormat |
|
8412 |
translateLabel: true |
|
8413 |
extent: (Point 604 22) |
|
4398 | 8414 |
) |
8415 |
) |
|
8416 |
||
8417 |
) |
|
8418 |
) |
|
8419 |
) |
|
8420 |
||
8421 |
) |
|
8422 |
) |
|
8423 |
! ! |
|
8424 |
||
8425 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'! |
|
8426 |
||
5030 | 8427 |
basicSaveSettings |
4574 | 8428 |
|
8429 |
currentUserPrefs autoFormatting:self autoFormat value. |
|
8430 |
currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value. |
|
8431 |
currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value. |
|
8432 |
currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value. |
|
8433 |
currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value. |
|
8434 |
currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value. |
|
5072 | 8435 |
currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value. |
8436 |
currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value. |
|
4574 | 8437 |
currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value. |
8438 |
currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value. |
|
8439 |
currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value. |
|
8440 |
RBFormatter |
|
8441 |
tabIndent:self tabIndent value; |
|
8442 |
spaceAroundTemporaries:self spaceAroundTemporaries value; |
|
8443 |
emptyLineAfterTemporaries:self emptyLineAfterTemporaries value; |
|
8444 |
spaceAfterReturnToken:self spaceAfterReturnToken value; |
|
8445 |
spaceAfterKeywordSelector:self spaceAfterKeywordSelector value; |
|
5072 | 8446 |
spaceAfterBlockStart:self spaceAfterBlockStart value; |
8447 |
spaceBeforeBlockEnd:self spaceBeforeBlockEnd value; |
|
4574 | 8448 |
cStyleBlocks:self cStyleBlocks value; |
8449 |
blockArgumentsOnNewLine:self blockArgumentsOnNewLine value; |
|
4658 | 8450 |
maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger. |
4574 | 8451 |
! |
8452 |
||
5101 | 8453 |
helpFilename |
8454 |
^ 'Launcher/sourceFormatSettings.html' |
|
5030 | 8455 |
! |
8456 |
||
8457 |
readSettings |
|
4398 | 8458 |
reformatLocked := true. |
8459 |
self autoFormat value:currentUserPrefs autoFormatting. |
|
8460 |
self tabIndent value:RBFormatter tabIndent. |
|
8461 |
self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries. |
|
4574 | 8462 |
self emptyLineAfterTemporaries |
5041 | 8463 |
value:RBFormatter emptyLineAfterTemporaries. |
4398 | 8464 |
self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken. |
4574 | 8465 |
self spaceAfterKeywordSelector |
5041 | 8466 |
value:RBFormatter spaceAfterKeywordSelector. |
5072 | 8467 |
self spaceAfterBlockStart value:RBFormatter spaceAfterBlockStart. |
8468 |
self spaceBeforeBlockEnd value:RBFormatter spaceBeforeBlockEnd. |
|
4398 | 8469 |
self cStyleBlocks value:RBFormatter cStyleBlocks. |
8470 |
self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine. |
|
4574 | 8471 |
self maxLengthForSingleLineBlocks |
5041 | 8472 |
value:RBFormatter maxLengthForSingleLineBlocks. |
8473 |
self updateModifiedChannel. |
|
4398 | 8474 |
reformatLocked := false. |
4581 | 8475 |
self reformat. |
8476 |
self modifiedChannel value:false |
|
4398 | 8477 |
! |
8478 |
||
5030 | 8479 |
reformat |
4398 | 8480 |
|
8481 |
|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries |
|
8482 |
s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks |
|
5072 | 8483 |
s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine |
8484 |
s_spaceAfterBlockStart s_spaceBeforeBlockEnd| |
|
4398 | 8485 |
|
8486 |
reformatLocked ifFalse:[ |
|
8487 |
"/ |
|
8488 |
"/ temporary change the RBFormatters settings ... |
|
8489 |
"/ |
|
8490 |
s_tabIndent := RBFormatter tabIndent. |
|
8491 |
s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries. |
|
8492 |
s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries. |
|
8493 |
s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken. |
|
8494 |
s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector. |
|
5072 | 8495 |
s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart. |
8496 |
s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd. |
|
4398 | 8497 |
s_cStyleBlocks := RBFormatter cStyleBlocks. |
8498 |
s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine. |
|
8499 |
s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks. |
|
8500 |
||
8501 |
RBFormatter |
|
8502 |
tabIndent:self tabIndent value; |
|
8503 |
spaceAroundTemporaries:self spaceAroundTemporaries value; |
|
8504 |
emptyLineAfterTemporaries:self emptyLineAfterTemporaries value; |
|
8505 |
spaceAfterReturnToken:self spaceAfterReturnToken value; |
|
8506 |
spaceAfterKeywordSelector:self spaceAfterKeywordSelector value; |
|
5072 | 8507 |
spaceAfterBlockStart:self spaceAfterBlockStart value; |
8508 |
spaceBeforeBlockEnd:self spaceBeforeBlockEnd value; |
|
4398 | 8509 |
cStyleBlocks:self cStyleBlocks value; |
8510 |
blockArgumentsOnNewLine:self blockArgumentsOnNewLine value; |
|
8511 |
maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value. |
|
8512 |
||
5076 | 8513 |
"/ tree := RBParser |
8514 |
"/ parseMethod:self class exampleText |
|
8515 |
"/ onError: [:aString :position | nil]. |
|
8516 |
"/ tree do:[:node | |
|
8517 |
"/ (node ~~ tree and:[node parent isNil]) ifTrue:[ |
|
8518 |
"/ self error:'No parent for node'. |
|
8519 |
"/ ] |
|
8520 |
"/ ]. |
|
8521 |
"/ self editorText value:tree printString. |
|
8522 |
self editorText value:(RBFormatter format:(self class exampleText)). |
|
4398 | 8523 |
|
8524 |
RBFormatter |
|
8525 |
tabIndent:s_tabIndent; |
|
8526 |
spaceAroundTemporaries:s_spaceAroundTemporaries; |
|
8527 |
emptyLineAfterTemporaries:s_emptyLineAfterTemporaries; |
|
8528 |
spaceAfterReturnToken:s_spaceAfterReturnToken; |
|
8529 |
spaceAfterKeywordSelector:s_spaceAfterKeywordSelector; |
|
5072 | 8530 |
spaceAfterBlockStart:s_spaceAfterBlockStart; |
8531 |
spaceBeforeBlockEnd:s_spaceBeforeBlockEnd; |
|
4398 | 8532 |
cStyleBlocks:s_cStyleBlocks; |
8533 |
blockArgumentsOnNewLine:s_blockArgumentsOnNewLine; |
|
8534 |
maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks. |
|
8535 |
]. |
|
8536 |
! |
|
8537 |
||
5030 | 8538 |
resetToRBDefault |
4398 | 8539 |
|
8540 |
reformatLocked := true. |
|
8541 |
self tabIndent value: 8. |
|
8542 |
self spaceAfterReturnToken value:false. |
|
8543 |
self spaceAfterKeywordSelector value:true. |
|
8544 |
self spaceAroundTemporaries value:true. |
|
5072 | 8545 |
self spaceAfterBlockStart value:true. |
8546 |
self spaceBeforeBlockEnd value:true. |
|
4398 | 8547 |
self emptyLineAfterTemporaries value:false. |
8548 |
self cStyleBlocks value:false. |
|
8549 |
self blockArgumentsOnNewLine value:false. |
|
8550 |
self maxLengthForSingleLineBlocks value: 20. |
|
8551 |
reformatLocked := false. |
|
8552 |
self reformat. |
|
8553 |
! |
|
8554 |
||
5030 | 8555 |
resetToStxDefault |
4398 | 8556 |
|
8557 |
reformatLocked := true. |
|
8558 |
self tabIndent value: 4. |
|
8559 |
self spaceAfterReturnToken value: true. |
|
8560 |
self spaceAfterKeywordSelector value: false. |
|
8561 |
self spaceAroundTemporaries value: false. |
|
5072 | 8562 |
self spaceAfterBlockStart value:false. |
8563 |
self spaceBeforeBlockEnd value:false. |
|
4398 | 8564 |
self emptyLineAfterTemporaries value: true. |
8565 |
self cStyleBlocks value: true. |
|
8566 |
self blockArgumentsOnNewLine value:false. |
|
8567 |
self maxLengthForSingleLineBlocks value: 20. |
|
8568 |
reformatLocked := false. |
|
8569 |
self reformat. |
|
8570 |
! ! |
|
8571 |
||
8572 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'! |
|
8573 |
||
5030 | 8574 |
autoFormat |
4398 | 8575 |
|
8576 |
autoFormat isNil ifTrue:[ |
|
8577 |
autoFormat := currentUserPrefs autoFormatting asValue. |
|
5041 | 8578 |
autoFormat onChangeSend:#updateModifiedChannel to:self |
4398 | 8579 |
]. |
8580 |
^ autoFormat. |
|
8581 |
! |
|
8582 |
||
5030 | 8583 |
blockArgumentsOnNewLine |
4398 | 8584 |
|
8585 |
blockArgumentsOnNewLine isNil ifTrue:[ |
|
8586 |
blockArgumentsOnNewLine := true asValue. |
|
8587 |
blockArgumentsOnNewLine addDependent:self. |
|
8588 |
]. |
|
8589 |
^ blockArgumentsOnNewLine. |
|
8590 |
! |
|
8591 |
||
5030 | 8592 |
cStyleBlocks |
4398 | 8593 |
|
8594 |
cStyleBlocks isNil ifTrue:[ |
|
8595 |
cStyleBlocks := true asValue. |
|
8596 |
cStyleBlocks addDependent:self. |
|
8597 |
]. |
|
8598 |
^ cStyleBlocks. |
|
8599 |
! |
|
8600 |
||
5030 | 8601 |
editorText |
4398 | 8602 |
|
8603 |
editorText isNil ifTrue:[ |
|
8604 |
editorText := ValueHolder new. |
|
8605 |
]. |
|
8606 |
^ editorText. |
|
8607 |
! |
|
8608 |
||
5030 | 8609 |
emptyLineAfterTemporaries |
4398 | 8610 |
|
8611 |
emptyLineAfterTemporaries isNil ifTrue:[ |
|
8612 |
emptyLineAfterTemporaries := true asValue. |
|
8613 |
emptyLineAfterTemporaries addDependent:self. |
|
8614 |
]. |
|
8615 |
^ emptyLineAfterTemporaries. |
|
8616 |
! |
|
8617 |
||
5030 | 8618 |
maxLengthForSingleLineBlocks |
4398 | 8619 |
|
8620 |
maxLengthForSingleLineBlocks isNil ifTrue:[ |
|
8621 |
maxLengthForSingleLineBlocks := ValueHolder new. |
|
8622 |
maxLengthForSingleLineBlocks addDependent:self. |
|
8623 |
]. |
|
8624 |
^ maxLengthForSingleLineBlocks. |
|
8625 |
! |
|
8626 |
||
5072 | 8627 |
spaceAfterBlockStart |
8628 |
||
8629 |
spaceAfterBlockStart isNil ifTrue:[ |
|
8630 |
spaceAfterBlockStart := true asValue. |
|
8631 |
spaceAfterBlockStart addDependent:self. |
|
8632 |
]. |
|
8633 |
^ spaceAfterBlockStart. |
|
8634 |
! |
|
8635 |
||
5030 | 8636 |
spaceAfterKeywordSelector |
4398 | 8637 |
|
8638 |
spaceAfterKeywordSelector isNil ifTrue:[ |
|
8639 |
spaceAfterKeywordSelector := true asValue. |
|
8640 |
spaceAfterKeywordSelector addDependent:self. |
|
8641 |
]. |
|
8642 |
^ spaceAfterKeywordSelector. |
|
8643 |
! |
|
8644 |
||
5030 | 8645 |
spaceAfterReturnToken |
4398 | 8646 |
|
8647 |
spaceAfterReturnToken isNil ifTrue:[ |
|
8648 |
spaceAfterReturnToken := true asValue. |
|
8649 |
spaceAfterReturnToken addDependent:self. |
|
8650 |
]. |
|
8651 |
^ spaceAfterReturnToken. |
|
8652 |
! |
|
8653 |
||
5030 | 8654 |
spaceAroundTemporaries |
4398 | 8655 |
|
8656 |
spaceAroundTemporaries isNil ifTrue:[ |
|
8657 |
spaceAroundTemporaries := true asValue. |
|
8658 |
spaceAroundTemporaries addDependent:self. |
|
8659 |
]. |
|
8660 |
^ spaceAroundTemporaries. |
|
8661 |
! |
|
8662 |
||
5072 | 8663 |
spaceBeforeBlockEnd |
8664 |
||
8665 |
spaceBeforeBlockEnd isNil ifTrue:[ |
|
8666 |
spaceBeforeBlockEnd := true asValue. |
|
8667 |
spaceBeforeBlockEnd addDependent:self. |
|
8668 |
]. |
|
8669 |
^ spaceBeforeBlockEnd. |
|
8670 |
! |
|
8671 |
||
5030 | 8672 |
tabIndent |
4398 | 8673 |
|
8674 |
tabIndent isNil ifTrue:[ |
|
8675 |
tabIndent := ValueHolder new. |
|
8676 |
tabIndent addDependent:self. |
|
8677 |
]. |
|
8678 |
^ tabIndent. |
|
8679 |
! ! |
|
8680 |
||
8681 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'! |
|
8682 |
||
5041 | 8683 |
update:something with:aParameter from:changedObject |
4398 | 8684 |
(changedObject == self blockArgumentsOnNewLine or:[ |
8685 |
changedObject == self cStyleBlocks or:[ |
|
8686 |
changedObject == self emptyLineAfterTemporaries or:[ |
|
8687 |
changedObject == self maxLengthForSingleLineBlocks or:[ |
|
8688 |
changedObject == self spaceAfterKeywordSelector or:[ |
|
8689 |
changedObject == self spaceAfterReturnToken or:[ |
|
5072 | 8690 |
changedObject == self spaceAfterBlockStart or:[ |
8691 |
changedObject == self spaceBeforeBlockEnd or:[ |
|
4398 | 8692 |
changedObject == self spaceAroundTemporaries or:[ |
5072 | 8693 |
changedObject == self tabIndent]]]]]]]]]) ifTrue:[ |
5041 | 8694 |
self updateModifiedChannel. |
4398 | 8695 |
self reformat. |
5041 | 8696 |
^ self |
8697 |
]. |
|
8698 |
super |
|
8699 |
update:something |
|
8700 |
with:aParameter |
|
8701 |
from:changedObject |
|
4398 | 8702 |
! ! |
8703 |
||
8704 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'! |
|
8705 |
||
5030 | 8706 |
initialize |
4574 | 8707 |
super initialize. |
4398 | 8708 |
RBFormatter isNil ifTrue:[ |
4574 | 8709 |
^ self warn:'Sorry, no RBFormatter class' |
8710 |
]. |
|
4398 | 8711 |
RBFormatter isLoaded ifFalse:[ |
4574 | 8712 |
WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload] |
8713 |
]. |
|
4398 | 8714 |
reformatLocked := false. |
8715 |
! |
|
8716 |
||
5030 | 8717 |
postBuildTextEditor:aWidget |
4398 | 8718 |
|
8719 |
aWidget cursorMovementWhenUpdating:nil; |
|
8720 |
scrollWhenUpdating:nil. |
|
8721 |
! ! |
|
8722 |
||
8723 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'! |
|
8724 |
||
5030 | 8725 |
hasUnsavedChanges |
5918 | 8726 |
self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true]. |
8727 |
self tabIndent value ~= RBFormatter tabIndent ifTrue:[^ true]. |
|
8728 |
self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries ifTrue:[^ true]. |
|
8729 |
self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries ifTrue:[^ true]. |
|
8730 |
self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken ifTrue:[^ true]. |
|
8731 |
self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector ifTrue:[^ true]. |
|
8732 |
self spaceAfterBlockStart value ~= RBFormatter spaceAfterBlockStart ifTrue:[^ true]. |
|
8733 |
self spaceBeforeBlockEnd value ~= RBFormatter spaceBeforeBlockEnd ifTrue:[^ true]. |
|
8734 |
self cStyleBlocks value ~= RBFormatter cStyleBlocks ifTrue:[^ true]. |
|
8735 |
self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine ifTrue:[^ true]. |
|
8736 |
self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks ifTrue:[^ true]. |
|
8737 |
^ false |
|
4398 | 8738 |
! ! |
8739 |
||
8740 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
|
8741 |
||
5030 | 8742 |
defaultIcon |
4398 | 8743 |
"This resource specification was automatically generated |
8744 |
by the ImageEditor of ST/X." |
|
8745 |
||
8746 |
"Do not manually edit this!! If it is corrupted, |
|
8747 |
the ImageEditor may not be able to read the specification." |
|
8748 |
||
8749 |
" |
|
8750 |
self defaultIcon inspect |
|
8751 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
8752 |
Icon flushCachedIcons |
|
8753 |
" |
|
8754 |
||
8755 |
<resource: #image> |
|
8756 |
||
8757 |
^Icon |
|
8758 |
constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon' |
|
8759 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
4948 | 8760 |
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@ |
8761 |
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S |
|
8762 |
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E |
|
8763 |
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@ |
|
8764 |
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W |
|
8765 |
EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself] |
|
4398 | 8766 |
! ! |
8767 |
||
8768 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
|
4286 | 8769 |
|
5030 | 8770 |
windowSpec |
4286 | 8771 |
"This resource specification was automatically generated |
8772 |
by the UIPainter of ST/X." |
|
8773 |
||
8774 |
"Do not manually edit this!! If it is corrupted, |
|
8775 |
the UIPainter may not be able to read the specification." |
|
8776 |
||
8777 |
" |
|
4405 | 8778 |
UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec |
8779 |
AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec |
|
8780 |
AbstractSettingsApplication::SourceCodeManagementSettingsAppl open |
|
4286 | 8781 |
" |
8782 |
||
8783 |
<resource: #canvas> |
|
8784 |
||
8785 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8786 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8787 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8788 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8789 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8790 |
label: 'Source Code Manager Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8791 |
name: 'Source Code Manager Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8792 |
min: (Point 10 10) |
5343 | 8793 |
bounds: (Rectangle 16 52 677 605) |
4286 | 8794 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8795 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8796 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8797 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8798 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8799 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8800 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8801 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8802 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8803 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8804 |
verticalSpace: 20 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8805 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8806 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8807 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8808 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8809 |
name: 'VerticalPanel3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8810 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8811 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8812 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8813 |
verticalSpace: 10 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8814 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8815 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8816 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8817 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8818 |
name: 'Box3' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8819 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8820 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8821 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8822 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8823 |
label: 'Sourcecode Management' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8824 |
name: 'SourcecodeManagementCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8825 |
layout: (LayoutFrame 5 0 5 0.0 300 0 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8826 |
enableChannel: cvsIsSetup |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8827 |
model: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8828 |
translateLabel: true |
4398 | 8829 |
) |
4405 | 8830 |
) |
8831 |
||
8832 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8833 |
extent: (Point 661 30) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8834 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8835 |
(FramedBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8836 |
label: 'Source Code Manager Setup' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8837 |
name: 'FramedBox1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8838 |
labelPosition: topLeft |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8839 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8840 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8841 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8842 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8843 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8844 |
name: 'Box1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8845 |
layout: (LayoutFrame 0 0 0 0 0 1 32 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8846 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8847 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8848 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8849 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8850 |
label: 'CVS BinDirectory:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8851 |
name: 'Label1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8852 |
layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8853 |
level: 0 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8854 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8855 |
adjust: right |
4405 | 8856 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8857 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8858 |
name: 'BinDirectoryField' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8859 |
layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8860 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8861 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8862 |
model: cvsBinDirectoryHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8863 |
acceptChannel: acceptChannel |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8864 |
acceptOnPointerLeave: true |
4405 | 8865 |
) |
8866 |
) |
|
8867 |
||
8868 |
) |
|
8869 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8870 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8871 |
name: 'Box7' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8872 |
layout: (LayoutFrame 0 0.0 27 0 0 1 52 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8873 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8874 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8875 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8876 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8877 |
label: 'CVSRoot default:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8878 |
name: 'defaultCvsRootLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8879 |
layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8880 |
level: 0 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8881 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8882 |
adjust: right |
4405 | 8883 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8884 |
(ComboBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8885 |
name: 'cvsRootComboBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8886 |
layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8887 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8888 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8889 |
model: cvsRootHolder |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8890 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8891 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8892 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8893 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8894 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8895 |
acceptChannel: acceptChannel |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8896 |
acceptOnPointerLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8897 |
comboList: cvsRootPrototypeList |
4405 | 8898 |
) |
8899 |
) |
|
8900 |
||
8901 |
) |
|
8902 |
) |
|
5343 | 8903 |
(HorizontalPanelViewSpec |
8904 |
name: 'HorizontalPanel3' |
|
8905 |
layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0) |
|
8906 |
horizontalLayout: fitSpace |
|
8907 |
verticalLayout: center |
|
8908 |
horizontalSpace: 3 |
|
8909 |
verticalSpace: 3 |
|
8910 |
component: |
|
8911 |
(SpecCollection |
|
8912 |
collection: ( |
|
8913 |
(ViewSpec |
|
8914 |
name: 'Box8' |
|
8915 |
extent: (Point 103 10) |
|
8916 |
) |
|
8917 |
(ViewSpec |
|
8918 |
name: 'Box9' |
|
8919 |
extent: (Point 103 10) |
|
8920 |
) |
|
8921 |
(ViewSpec |
|
8922 |
name: 'Box10' |
|
8923 |
extent: (Point 103 10) |
|
8924 |
) |
|
8925 |
(ActionButtonSpec |
|
8926 |
label: 'CVS-Login' |
|
8927 |
name: 'loginButton1' |
|
8928 |
translateLabel: true |
|
8929 |
tabable: true |
|
8930 |
model: loginCVSRoot |
|
8931 |
enableChannel: cvsLoginEnabled |
|
8932 |
extent: (Point 103 22) |
|
8933 |
) |
|
8934 |
) |
|
8935 |
||
8936 |
) |
|
8937 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8938 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8939 |
label: 'CVSRoot per Module:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8940 |
name: 'knownModulesLabel' |
5343 | 8941 |
layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8942 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8943 |
adjust: right |
4405 | 8944 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8945 |
(SequenceViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8946 |
name: 'List1' |
5343 | 8947 |
layout: (LayoutFrame 44 0.25 82 0 -5 1 201 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8948 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8949 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8950 |
model: selectedPerModuleRoot |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8951 |
hasHorizontalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8952 |
hasVerticalScrollBar: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8953 |
miniScrollerHorizontal: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8954 |
useIndex: false |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8955 |
sequenceList: listOfModules |
4405 | 8956 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8957 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8958 |
label: 'Module:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8959 |
name: 'moduleLabel' |
5343 | 8960 |
layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8961 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8962 |
adjust: right |
4405 | 8963 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8964 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8965 |
name: 'perModuleRootModuleEntryField' |
5343 | 8966 |
layout: (LayoutFrame 44 0.25 207 0 -5 1 229 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8967 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8968 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8969 |
model: perModuleRootModule |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8970 |
acceptChannel: acceptChannel |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8971 |
acceptOnPointerLeave: true |
4405 | 8972 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8973 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8974 |
label: 'CVSRoot:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8975 |
name: 'cvsRootLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8976 |
layout: (LayoutFrame 0 0.0 236 0 40 0.25 253 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8977 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8978 |
adjust: right |
4405 | 8979 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8980 |
(ComboBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8981 |
name: 'perModuleRootComboBox' |
5343 | 8982 |
layout: (LayoutFrame 44 0.25 232 0 -5 1.0 254 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8983 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8984 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8985 |
model: perModuleRoot |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8986 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8987 |
acceptOnLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8988 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8989 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8990 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8991 |
acceptChannel: acceptChannel |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8992 |
acceptOnPointerLeave: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8993 |
comboList: cvsRootPrototypeList |
4405 | 8994 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8995 |
(HorizontalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8996 |
name: 'HorizontalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8997 |
layout: (LayoutFrame 44 0.25 258 0 -1 1 289 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8998 |
horizontalLayout: fitSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
8999 |
verticalLayout: center |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9000 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9001 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9002 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9003 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9004 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9005 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9006 |
label: 'Add/Apply' |
5343 | 9007 |
name: 'addButton' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9008 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9009 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9010 |
model: addPerModuleRoot |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9011 |
enableChannel: useManager |
5343 | 9012 |
extent: (Point 103 22) |
4405 | 9013 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9014 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9015 |
label: 'Remove' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9016 |
name: 'removeButton' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9017 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9018 |
tabable: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9019 |
model: removePerModuleRoot |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9020 |
enableChannel: removeEnabled |
5343 | 9021 |
extent: (Point 103 22) |
9022 |
) |
|
9023 |
(ViewSpec |
|
9024 |
name: 'Box11' |
|
9025 |
extent: (Point 103 10) |
|
9026 |
) |
|
9027 |
(ActionButtonSpec |
|
9028 |
label: 'CVS-Login' |
|
9029 |
name: 'loginButton2' |
|
9030 |
translateLabel: true |
|
9031 |
tabable: true |
|
9032 |
model: loginPerModuleRoot |
|
9033 |
enableChannel: cvsLoginInModuleEnabled |
|
9034 |
extent: (Point 103 22) |
|
4405 | 9035 |
) |
9036 |
) |
|
9037 |
||
9038 |
) |
|
4398 | 9039 |
) |
9040 |
) |
|
9041 |
||
9042 |
) |
|
5343 | 9043 |
extent: (Point 661 327) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9044 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9045 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9046 |
name: 'Box4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9047 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9048 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9049 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9050 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9051 |
label: 'Source Cache Dir:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9052 |
name: 'SourceCacheDirLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9053 |
layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9054 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9055 |
adjust: right |
4398 | 9056 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9057 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9058 |
name: 'SourceCacheDirEntryField' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9059 |
layout: (LayoutFrame 44 0.25 0 0 -5 1 22 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9060 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9061 |
model: sourceCacheDir |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9062 |
immediateAccept: false |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9063 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9064 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9065 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9066 |
acceptOnPointerLeave: true |
4398 | 9067 |
) |
9068 |
) |
|
9069 |
||
9070 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9071 |
extent: (Point 661 30) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9072 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9073 |
(HorizontalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9074 |
name: 'HorizontalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9075 |
horizontalLayout: fitSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9076 |
verticalLayout: center |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9077 |
horizontalSpace: 30 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9078 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9079 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9080 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9081 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9082 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9083 |
label: 'Flush Cache now' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9084 |
name: 'FlushCacheNowButton' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9085 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9086 |
model: flushSourceCache |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9087 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9088 |
extent: (Point 285 22) |
4405 | 9089 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9090 |
(ActionButtonSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9091 |
label: 'Condense Cache now' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9092 |
name: 'CondenseCacheNowButton' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9093 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9094 |
model: condenseSourceCache |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9095 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9096 |
extent: (Point 286 22) |
4398 | 9097 |
) |
9098 |
) |
|
9099 |
||
9100 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9101 |
extent: (Point 661 40) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9102 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9103 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9104 |
name: 'Box5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9105 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9106 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9107 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9108 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9109 |
label: 'If Present, Use Local Source (Suppress Checkout)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9110 |
name: 'CheckBox4' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9111 |
layout: (LayoutFrame 30 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9112 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9113 |
model: localSourceFirst |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9114 |
translateLabel: true |
4398 | 9115 |
) |
9116 |
) |
|
9117 |
||
9118 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9119 |
extent: (Point 661 25) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9120 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9121 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9122 |
name: 'Box6' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9123 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9124 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9125 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9126 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9127 |
label: 'Check for halt/error-Sends when Checking in' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9128 |
name: 'CheckBox5' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9129 |
layout: (LayoutFrame 30 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9130 |
enableChannel: useManager |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9131 |
model: checkClassesWhenCheckingIn |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9132 |
translateLabel: true |
4398 | 9133 |
) |
9134 |
) |
|
9135 |
||
9136 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9137 |
extent: (Point 661 25) |
4310 | 9138 |
) |
9139 |
) |
|
9140 |
||
9141 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9142 |
extent: (Point 661 768) |
4286 | 9143 |
) |
9144 |
) |
|
9145 |
||
9146 |
) |
|
9147 |
) |
|
9148 |
) |
|
9149 |
||
9150 |
) |
|
9151 |
) |
|
9152 |
! ! |
|
9153 |
||
4398 | 9154 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'! |
4286 | 9155 |
|
5030 | 9156 |
manager |
4286 | 9157 |
|
9158 |
^ Smalltalk at:#SourceCodeManager |
|
9159 |
! ! |
|
9160 |
||
4398 | 9161 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'! |
4286 | 9162 |
|
5030 | 9163 |
addPerModuleRoot |
4405 | 9164 |
|
9165 |
|module cvsRoot| |
|
9166 |
||
9167 |
acceptChannel value:true. |
|
9168 |
module := self perModuleRootModule value. |
|
9169 |
cvsRoot := self perModuleRoot value. |
|
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9170 |
(self listOfModules includes:module) ifFalse:[ |
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9171 |
self listOfModules add:module. |
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9172 |
self listOfModules sort. |
4405 | 9173 |
]. |
9174 |
cvsRoot size > 0 ifTrue:[ |
|
9175 |
rootsPerModule at:module put:cvsRoot. |
|
9176 |
]. |
|
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9177 |
self updateModifiedChannel. |
4405 | 9178 |
! |
9179 |
||
5030 | 9180 |
basicSaveSettings |
4574 | 9181 |
|
9182 |
(self hasManager and:[self useManager value]) ifTrue:[ |
|
9183 |
manager isNil ifTrue:[ |
|
9184 |
Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager). |
|
9185 |
manager := Smalltalk at:#SourceCodeManager. |
|
9186 |
]. |
|
9187 |
Class tryLocalSourceFirst:self localSourceFirst value. |
|
9188 |
||
9189 |
manager notNil ifTrue:[ |
|
9190 |
| nm fn| |
|
9191 |
nm := self sourceCacheDir value. |
|
6017 | 9192 |
nm notEmptyOrNil ifTrue:[ |
4574 | 9193 |
(fn := nm asFilename) exists ifFalse:[ |
4874
688a33043459
Fix pidgin spelling: 'does not exists' and 'not exists'
Stefan Vogel <sv@exept.de>
parents:
4873
diff
changeset
|
9194 |
(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[ |
4574 | 9195 |
fn makeDirectory; |
9196 |
makeReadableForAll; |
|
9197 |
makeWritableForAll; |
|
9198 |
makeExecutableForAll. |
|
9199 |
] |
|
9200 |
]. |
|
5318 | 9201 |
(fn isDirectory |
4574 | 9202 |
and:[fn isReadable |
5318 | 9203 |
and:[fn isWritable]]) ifTrue:[ |
6017 | 9204 |
AbstractSourceCodeManager cacheDirectoryName:nm. |
4574 | 9205 |
] ifFalse:[ |
9206 |
self warn:'Invalid sourceCache directory.' |
|
9207 |
] |
|
6017 | 9208 |
"/ ] ifFalse:[ |
9209 |
"/ AbstractSourceCodeManager cacheDirectoryName:nil. |
|
9210 |
]. |
|
4574 | 9211 |
]. |
9212 |
||
9213 |
repositoryHolder notNil ifTrue:[ |
|
9214 |
repositoryHolder value size > 0 ifTrue:[ |
|
9215 |
manager notNil ifTrue:[ |
|
9216 |
manager initializeForRepository:repositoryHolder value. |
|
9217 |
] |
|
9218 |
]. |
|
9219 |
]. |
|
5912
c276be9276dd
Strip trailing/leading blanks from CVS-Path.
Stefan Vogel <sv@exept.de>
parents:
5902
diff
changeset
|
9220 |
CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value withoutSeparators. |
4574 | 9221 |
CVSSourceCodeManager initializeForRepository:self cvsRootHolder value. |
4760
206a67dba8a8
repository changes after initialize will now reloaded
penk
parents:
4737
diff
changeset
|
9222 |
self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory. |
4574 | 9223 |
CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule. |
4650
c358bcfef403
source code management have no unsaved changes after enable anymore
penk
parents:
4635
diff
changeset
|
9224 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
4574 | 9225 |
DebugView newDebugger. |
9226 |
] ifFalse:[ |
|
9227 |
Smalltalk at:#SourceCodeManager put:nil |
|
9228 |
]. |
|
9229 |
||
9230 |
UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value. |
|
9231 |
self acceptChannel value. |
|
9232 |
! |
|
9233 |
||
5030 | 9234 |
condenseSourceCache |
9235 |
||
9236 |
self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ] |
|
9237 |
! |
|
9238 |
||
5343 | 9239 |
cvsLogin:cvsRoot |
9240 |
|cmd term| |
|
9241 |
||
9242 |
cmd := 'cvs -d ' , cvsRoot , ' login ; exit'. |
|
9243 |
term := VT100TerminalView open. |
|
9244 |
term topView label:'CVS Login for ' , cvsRoot. |
|
9245 |
term topView waitUntilVisible. |
|
9246 |
term shellTerminateAction:[ |
|
9247 |
"/ term topView destroy |
|
9248 |
]. |
|
9249 |
||
9250 |
term showCR:(('Please enter the CVS-password then close this terminal window.') asText allBold colorizeAllWith:Color red). |
|
9251 |
term showCR:''. |
|
9252 |
term endEntry. |
|
9253 |
Delay waitForSeconds:1. |
|
9254 |
term sendLine:cmd. |
|
9255 |
||
9256 |
" |
|
9257 |
self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx' |
|
9258 |
" |
|
9259 |
! |
|
9260 |
||
5030 | 9261 |
flushSourceCache |
9262 |
||
9263 |
self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ] |
|
9264 |
! |
|
9265 |
||
5101 | 9266 |
helpFilename |
9267 |
^ 'Launcher/cvsSetup.html' |
|
4286 | 9268 |
! |
9269 |
||
5343 | 9270 |
loginCVSRoot |
9271 |
self cvsLogin:cvsRootHolder value. |
|
9272 |
! |
|
9273 |
||
9274 |
loginPerModuleRoot |
|
9275 |
self cvsLogin:perModuleRoot value. |
|
9276 |
! |
|
9277 |
||
5030 | 9278 |
readSettings |
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9279 |
self initialize. |
4286 | 9280 |
self hasManager ifTrue:[ |
4805 | 9281 |
self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil. |
4286 | 9282 |
self localSourceFirst value:Class tryLocalSourceFirst. |
9283 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
9284 |
manager notNil ifTrue:[ |
|
9285 |
manager forgetDisabledModules. |
|
9286 |
repository := manager repositoryName. |
|
4805 | 9287 |
repositoryHolder := (repository ? '') asValue |
4286 | 9288 |
]. |
4574 | 9289 |
self cvsIsSetup value:true |
4286 | 9290 |
] ifFalse:[ |
4574 | 9291 |
self useManager value:false. |
4286 | 9292 |
self localSourceFirst value:false. |
4574 | 9293 |
self cvsIsSetup value:false |
9294 |
]. |
|
9295 |
self checkClassesWhenCheckingIn |
|
9296 |
value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true). |
|
9297 |
self cvsRootHolder |
|
4805 | 9298 |
value:CVSSourceCodeManager repositoryName ? '/cvs/stx'. |
4405 | 9299 |
self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory. |
4812 | 9300 |
rootsPerModule notNil ifTrue:[ |
5175
8fd9af3eee73
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5174
diff
changeset
|
9301 |
self listOfModules removeAll. |
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9302 |
listOfModules addAll:rootsPerModule keys asList. |
4812 | 9303 |
]. |
4779 | 9304 |
self selectedPerModuleRootChanged. |
4574 | 9305 |
self modifiedChannel value:false |
4286 | 9306 |
! |
9307 |
||
5030 | 9308 |
removePerModuleRoot |
4405 | 9309 |
|
9310 |
|module| |
|
9311 |
||
9312 |
acceptChannel value:true. |
|
9313 |
module := self perModuleRootModule value. |
|
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9314 |
self listOfModules remove:module ifAbsent:nil. |
4405 | 9315 |
rootsPerModule removeKey:module ifAbsent:nil. |
9316 |
self perModuleRootModule value:nil. |
|
9317 |
self perModuleRoot value:nil. |
|
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9318 |
self updateModifiedChannel. |
4286 | 9319 |
! |
9320 |
||
5030 | 9321 |
setupSourceCodeManager |
4286 | 9322 |
|
9323 |
AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog. |
|
9324 |
manager := (Smalltalk at:#SourceCodeManager). |
|
9325 |
cvsIsSetup value:manager notNil. |
|
9326 |
manager notNil ifTrue:[ |
|
9327 |
repositoryHolder value: manager repositoryName. |
|
9328 |
sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
9329 |
]. |
|
4398 | 9330 |
! ! |
9331 |
||
9332 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'! |
|
4286 | 9333 |
|
5030 | 9334 |
acceptChannel |
9335 |
||
9336 |
acceptChannel isNil ifTrue:[ |
|
9337 |
acceptChannel := TriggerValue new. |
|
9338 |
]. |
|
9339 |
^ acceptChannel. |
|
9340 |
! |
|
9341 |
||
9342 |
checkClassesWhenCheckingIn |
|
9343 |
||
9344 |
checkClassesWhenCheckingIn isNil ifTrue:[ |
|
9345 |
checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue. |
|
5041 | 9346 |
checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self |
5030 | 9347 |
]. |
9348 |
^ checkClassesWhenCheckingIn. |
|
9349 |
! |
|
9350 |
||
9351 |
cvsBinDirectoryHolder |
|
5029 | 9352 |
cvsBinDirectoryHolder isNil ifTrue:[ |
9353 |
cvsBinDirectoryHolder := ValueHolder new. |
|
5286 | 9354 |
cvsBinDirectoryHolder onChangeSend:#updateModifiedChannel to:self |
5029 | 9355 |
]. |
9356 |
^ cvsBinDirectoryHolder. |
|
9357 |
! |
|
9358 |
||
5030 | 9359 |
cvsIsSetup |
5029 | 9360 |
cvsIsSetup isNil ifTrue:[ |
9361 |
cvsIsSetup := true asValue. |
|
9362 |
]. |
|
9363 |
^ cvsIsSetup. |
|
9364 |
! |
|
9365 |
||
5343 | 9366 |
cvsLoginEnabled |
9367 |
cvsLoginEnabled isNil ifTrue:[ |
|
9368 |
cvsLoginEnabled := false asValue. |
|
9369 |
]. |
|
9370 |
^ cvsLoginEnabled. |
|
9371 |
! |
|
9372 |
||
9373 |
cvsLoginInModuleEnabled |
|
9374 |
cvsLoginInModuleEnabled isNil ifTrue:[ |
|
9375 |
cvsLoginInModuleEnabled := false asValue. |
|
9376 |
]. |
|
9377 |
^ cvsLoginInModuleEnabled. |
|
9378 |
! |
|
9379 |
||
5030 | 9380 |
cvsRootHolder |
5029 | 9381 |
|
9382 |
cvsRootHolder isNil ifTrue:[ |
|
5318 | 9383 |
cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue. |
5343 | 9384 |
cvsRootHolder addDependent:self. |
5029 | 9385 |
]. |
9386 |
^ cvsRootHolder. |
|
9387 |
! |
|
9388 |
||
5030 | 9389 |
cvsRootPrototypeList |
5318 | 9390 |
|cvsRoot| |
4405 | 9391 |
|
9392 |
cvsRootPrototypeList isNil ifTrue:[ |
|
5343 | 9393 |
cvsRootPrototypeList := OrderedCollection new. |
9394 |
||
9395 |
cvsRoot := self cvsRootFromCVSRootFileOrNil. |
|
9396 |
(cvsRoot notNil and:[(cvsRootPrototypeList includes:cvsRoot) not]) ifTrue:[ |
|
9397 |
cvsRootPrototypeList add:cvsRoot |
|
9398 |
]. |
|
9399 |
||
5318 | 9400 |
OperatingSystem getDomainName = 'exept' ifTrue:[ |
5343 | 9401 |
cvsRootPrototypeList add:'exept:/cvs/stx'. |
9402 |
cvsRootPrototypeList add:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx') |
|
5318 | 9403 |
] ifFalse:[ |
5343 | 9404 |
cvsRootPrototypeList add:'host:/cvs/stx'. |
9405 |
cvsRootPrototypeList add:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx'). |
|
4767 | 9406 |
]. |
9407 |
||
9408 |
OperatingSystem isUNIXlike ifTrue:[ |
|
5343 | 9409 |
cvsRootPrototypeList addFirst:'/cvs/stx'. |
4405 | 9410 |
] ifFalse:[ |
9411 |
OperatingSystem isMSDOSlike ifTrue:[ |
|
5343 | 9412 |
cvsRootPrototypeList addFirst:':local:c:\cvs\stx'. |
4405 | 9413 |
] ifFalse:[ |
4767 | 9414 |
"there might be more here in the future" |
4405 | 9415 |
] |
9416 |
]. |
|
5318 | 9417 |
|
5343 | 9418 |
"/ cvsRootPrototypeList add:(':pserver:stx@exept.eu.org:/cvs/stx'). |
9419 |
cvsRootPrototypeList add:(':pserver:stx@exept.eu.org:/stx'). |
|
4405 | 9420 |
]. |
9421 |
^ cvsRootPrototypeList. |
|
9422 |
! |
|
9423 |
||
5030 | 9424 |
listOfModules |
4405 | 9425 |
|
9426 |
listOfModules isNil ifTrue:[ |
|
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9427 |
rootsPerModule notNil ifTrue:[ |
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9428 |
listOfModules := rootsPerModule keys asList. |
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9429 |
]. |
4405 | 9430 |
listOfModules sort. |
5174
bfd29db1a419
source code management per module get apply for changes
Michael Beyl <mb@exept.de>
parents:
5172
diff
changeset
|
9431 |
listOfModules onChangeSend:#updateModifiedChannel to:self |
4405 | 9432 |
]. |
9433 |
^ listOfModules. |
|
9434 |
! |
|
9435 |
||
5030 | 9436 |
localSourceFirst |
4286 | 9437 |
|
9438 |
localSourceFirst isNil ifTrue:[ |
|
9439 |
localSourceFirst := ValueHolder new. |
|
5041 | 9440 |
localSourceFirst onChangeSend:#updateModifiedChannel to:self |
4286 | 9441 |
]. |
9442 |
^ localSourceFirst. |
|
9443 |
! |
|
9444 |
||
5030 | 9445 |
perModuleRoot |
5332 | 9446 |
perModuleRoot isNil ifTrue:[ |
9447 |
perModuleRoot := ValueHolder new. |
|
5343 | 9448 |
perModuleRoot addDependent:self. |
5332 | 9449 |
]. |
4405 | 9450 |
^ perModuleRoot. |
9451 |
! |
|
9452 |
||
5030 | 9453 |
perModuleRootModule |
5332 | 9454 |
perModuleRootModule isNil ifTrue:[ |
9455 |
perModuleRootModule := ValueHolder new. |
|
9456 |
]. |
|
4405 | 9457 |
^ perModuleRootModule. |
9458 |
! |
|
9459 |
||
5030 | 9460 |
removeEnabled |
4405 | 9461 |
|
9462 |
removeEnabled isNil ifTrue:[ |
|
9463 |
removeEnabled := false asValue. |
|
9464 |
]. |
|
9465 |
^ removeEnabled. |
|
9466 |
! |
|
9467 |
||
5030 | 9468 |
selectedPerModuleRoot |
4405 | 9469 |
selectedPerModuleRoot isNil ifTrue:[ |
9470 |
selectedPerModuleRoot := ValueHolder new. |
|
9471 |
selectedPerModuleRoot addDependent:self. |
|
9472 |
]. |
|
9473 |
^ selectedPerModuleRoot. |
|
9474 |
! |
|
9475 |
||
5030 | 9476 |
sourceCacheDir |
5286 | 9477 |
sourceCacheDir isNil ifTrue:[ |
9478 |
sourceCacheDir := ValueHolder new. |
|
9479 |
sourceCacheDir onChangeSend:#updateModifiedChannel to:self |
|
9480 |
]. |
|
4286 | 9481 |
^ sourceCacheDir. |
9482 |
! |
|
9483 |
||
5030 | 9484 |
useManager |
5286 | 9485 |
useManager isNil ifTrue:[ |
9486 |
useManager := ValueHolder new. |
|
9487 |
useManager onChangeSend:#updateModifiedChannel to:self |
|
9488 |
]. |
|
4286 | 9489 |
^ useManager. |
9490 |
! ! |
|
9491 |
||
4398 | 9492 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'! |
4286 | 9493 |
|
5030 | 9494 |
selectedPerModuleRootChanged |
4405 | 9495 |
|module cvsRoot| |
9496 |
||
9497 |
self acceptChannel value:true. |
|
9498 |
module := self selectedPerModuleRoot value. |
|
4812 | 9499 |
module isNil ifTrue:[ ^ self]. |
5343 | 9500 |
|
4405 | 9501 |
self removeEnabled value:true. |
9502 |
cvsRoot := rootsPerModule at:module ifAbsent:''. |
|
9503 |
self perModuleRootModule value:module. |
|
9504 |
self perModuleRoot value:cvsRoot. |
|
9505 |
! |
|
9506 |
||
5030 | 9507 |
sourceDirChanged |
4805 | 9508 |
| nm fn| |
9509 |
||
9510 |
manager isNil ifTrue:[^ self]. |
|
9511 |
||
9512 |
nm := self sourceCacheDir value. |
|
9513 |
nm isEmptyOrNil ifTrue:[^ self]. |
|
9514 |
||
9515 |
(fn := nm asFilename) exists ifFalse:[ |
|
9516 |
(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[ |
|
9517 |
fn makeDirectory; |
|
9518 |
makeReadableForAll; |
|
9519 |
makeWritableForAll; |
|
9520 |
makeExecutableForAll. |
|
9521 |
] ifFalse:[ |
|
9522 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
9523 |
^ self. |
|
9524 |
]. |
|
9525 |
]. |
|
5318 | 9526 |
(fn isDirectory |
4805 | 9527 |
and:[fn isReadable |
5318 | 9528 |
and:[fn isWritable]]) ifTrue:[ |
4805 | 9529 |
AbstractSourceCodeManager cacheDirectoryName:nm. |
9530 |
] ifFalse:[ |
|
9531 |
self warn:'Invalid sourceCache directory.'. |
|
9532 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
4286 | 9533 |
]. |
9534 |
! |
|
9535 |
||
5041 | 9536 |
update:something with:aParameter from:changedObject |
5343 | 9537 |
changedObject == cvsRootHolder ifTrue:[ |
9538 |
self updateModifiedChannel. |
|
9539 |
self updateLoginEnableHolders. |
|
9540 |
^ self |
|
9541 |
]. |
|
9542 |
changedObject == perModuleRoot ifTrue:[ |
|
9543 |
self updateLoginEnableHolders. |
|
9544 |
^ self |
|
9545 |
]. |
|
4805 | 9546 |
changedObject == sourceCacheDir ifTrue:[ |
4405 | 9547 |
self sourceDirChanged. |
5041 | 9548 |
self updateModifiedChannel. |
4405 | 9549 |
^ self |
9550 |
]. |
|
5343 | 9551 |
changedObject == selectedPerModuleRoot ifTrue:[ |
4405 | 9552 |
self selectedPerModuleRootChanged. |
9553 |
^ self |
|
4286 | 9554 |
]. |
5041 | 9555 |
super |
9556 |
update:something |
|
9557 |
with:aParameter |
|
9558 |
from:changedObject |
|
5343 | 9559 |
! |
9560 |
||
9561 |
updateLoginEnableHolders |
|
9562 |
self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:'). |
|
9563 |
self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:'). |
|
4286 | 9564 |
! ! |
9565 |
||
4398 | 9566 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'! |
4286 | 9567 |
|
5030 | 9568 |
initialize |
4805 | 9569 |
(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload]. |
9570 |
||
9571 |
useManager := false asValue. |
|
5041 | 9572 |
useManager onChangeSend:#updateModifiedChannel to:self. |
4805 | 9573 |
|
9574 |
sourceCacheDir := nil asValue. |
|
9575 |
sourceCacheDir addDependent:self. |
|
9576 |
||
9577 |
repositoryHolder := '' asValue. |
|
9578 |
rootsPerModule := Dictionary new. |
|
9579 |
||
9580 |
SourceCodeManager == CVSSourceCodeManager ifTrue:[ |
|
5943
df089099d96d
Use #addAll: instead of #declareAllFrom:, since #declareAllFrom:
Stefan Vogel <sv@exept.de>
parents:
5920
diff
changeset
|
9581 |
rootsPerModule addAll:(SourceCodeManager repositoryNamesPerModule). |
4805 | 9582 |
]. |
9583 |
||
4574 | 9584 |
super initialize. |
4286 | 9585 |
! ! |
9586 |
||
4398 | 9587 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'! |
4286 | 9588 |
|
5318 | 9589 |
cvsRootFromCVSRootFileOrNil |
9590 |
|cvsDir cvsRootFile cvsRoot| |
|
9591 |
||
9592 |
cvsDir := 'CVS' asFilename. |
|
9593 |
cvsDir isDirectory ifTrue:[ |
|
9594 |
cvsRootFile := cvsDir construct:'Root'. |
|
9595 |
cvsRootFile isReadable ifTrue:[ |
|
9596 |
cvsRoot := cvsRootFile contents firstIfEmpty:nil. |
|
9597 |
]. |
|
9598 |
]. |
|
9599 |
^ cvsRoot |
|
9600 |
! |
|
9601 |
||
5030 | 9602 |
hasManager |
4286 | 9603 |
^ AbstractSourceCodeManager notNil |
9604 |
and:[AbstractSourceCodeManager isLoaded] |
|
9605 |
! |
|
9606 |
||
5030 | 9607 |
hasUnsavedChanges |
5918 | 9608 |
(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true]. |
4805 | 9609 |
|
9610 |
((self hasManager and:[self useManager value]) |
|
9611 |
and:[ |
|
4286 | 9612 |
Class tryLocalSourceFirst ~= self localSourceFirst value or:[ |
4805 | 9613 |
AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value] |
9614 |
]) |
|
9615 |
ifTrue:[^ true]. |
|
9616 |
||
5918 | 9617 |
(self hasManager and:[self useManager value]) ifFalse:[^ false]. |
5286 | 9618 |
|
9619 |
((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value) |
|
4805 | 9620 |
ifTrue:[^ true]. |
9621 |
||
5919
0d11395cb5a4
care for nil withoutSeparators
Claus Gittinger <cg@exept.de>
parents:
5918
diff
changeset
|
9622 |
((CVSSourceCodeManager cvsBinDirectory ? '') ~= (self cvsBinDirectoryHolder value ? '') withoutSeparators) |
4805 | 9623 |
ifTrue:[^ true]. |
9624 |
||
5286 | 9625 |
(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value) |
4805 | 9626 |
ifTrue:[^ true]. |
9627 |
||
5943
df089099d96d
Use #addAll: instead of #declareAllFrom:, since #declareAllFrom:
Stefan Vogel <sv@exept.de>
parents:
5920
diff
changeset
|
9628 |
((Dictionary new addAll:(CVSSourceCodeManager repositoryNamesPerModule); yourself) ~= rootsPerModule) |
4805 | 9629 |
ifTrue:[^ true]. |
9630 |
||
5918 | 9631 |
(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName) ifTrue:[^ true]. |
4805 | 9632 |
|
9633 |
^ false |
|
4286 | 9634 |
! ! |
9635 |
||
9636 |
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'! |
|
9637 |
||
5030 | 9638 |
standardStyles |
4286 | 9639 |
|
9640 |
^ #( |
|
9641 |
'decWindows' |
|
9642 |
'iris' |
|
9643 |
'motif' |
|
9644 |
'mswindows95' |
|
6073 | 9645 |
'mswindowsxp' |
4286 | 9646 |
'next' |
9647 |
'normal' |
|
9648 |
'os2' |
|
6003 | 9649 |
'sgmotif' |
6073 | 9650 |
"/ 'st80' |
4286 | 9651 |
) |
9652 |
! ! |
|
9653 |
||
4312 | 9654 |
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'! |
9655 |
||
5030 | 9656 |
defaultIcon |
4312 | 9657 |
"This resource specification was automatically generated |
9658 |
by the ImageEditor of ST/X." |
|
9659 |
||
9660 |
"Do not manually edit this!! If it is corrupted, |
|
9661 |
the ImageEditor may not be able to read the specification." |
|
9662 |
||
9663 |
" |
|
9664 |
self defaultIcon inspect |
|
9665 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
9666 |
Icon flushCachedIcons |
|
9667 |
" |
|
9668 |
||
9669 |
<resource: #image> |
|
9670 |
||
9671 |
^Icon |
|
9672 |
constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon' |
|
9673 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
4948 | 9674 |
@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@ |
9675 |
@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB |
|
9676 |
@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O |
|
9677 |
DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB |
|
9678 |
@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB |
|
9679 |
B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself] |
|
4312 | 9680 |
! ! |
9681 |
||
4286 | 9682 |
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'! |
9683 |
||
5030 | 9684 |
windowSpec |
4286 | 9685 |
"This resource specification was automatically generated |
9686 |
by the UIPainter of ST/X." |
|
9687 |
||
9688 |
"Do not manually edit this!! If it is corrupted, |
|
9689 |
the UIPainter may not be able to read the specification." |
|
9690 |
||
9691 |
" |
|
4310 | 9692 |
UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec |
9693 |
AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec |
|
9694 |
AbstractSettingsApplication::StyleSettingsAppl open |
|
4286 | 9695 |
" |
9696 |
||
9697 |
<resource: #canvas> |
|
9698 |
||
9699 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9700 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9701 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9702 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9703 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9704 |
label: 'ViewStyle Selection' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9705 |
name: 'ViewStyle Selection' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9706 |
min: (Point 10 10) |
5576 | 9707 |
bounds: (Rectangle 0 0 562 661) |
4286 | 9708 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9709 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9710 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
9711 |
collection: ( |
5441 | 9712 |
(VariableVerticalPanelSpec |
9713 |
name: 'VariableVerticalPanel1' |
|
9714 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1) |
|
9715 |
component: |
|
9716 |
(SpecCollection |
|
9717 |
collection: ( |
|
9718 |
(ViewSpec |
|
9719 |
name: 'Box1' |
|
9720 |
component: |
|
9721 |
(SpecCollection |
|
9722 |
collection: ( |
|
9723 |
(TextEditorSpec |
|
9724 |
name: 'TextEditor1' |
|
9725 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
6023 | 9726 |
style: (FontDescription arial medium roman 9) |
5441 | 9727 |
model: noticeLabelHolder |
9728 |
hasHorizontalScrollBar: true |
|
9729 |
hasVerticalScrollBar: true |
|
9730 |
isReadOnly: true |
|
9731 |
postBuildCallback: postBuildHelpLabel: |
|
9732 |
) |
|
9733 |
) |
|
9734 |
||
9735 |
) |
|
9736 |
) |
|
9737 |
(ViewSpec |
|
9738 |
name: 'Box2' |
|
9739 |
component: |
|
9740 |
(SpecCollection |
|
9741 |
collection: ( |
|
9742 |
(VerticalPanelViewSpec |
|
9743 |
name: 'VerticalPanel1' |
|
9744 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
9745 |
horizontalLayout: fit |
|
9746 |
verticalLayout: topFit |
|
9747 |
horizontalSpace: 3 |
|
9748 |
verticalSpace: 3 |
|
9749 |
component: |
|
9750 |
(SpecCollection |
|
9751 |
collection: ( |
|
9752 |
(CheckBoxSpec |
|
9753 |
label: 'standard styles only' |
|
9754 |
name: 'CheckBox1' |
|
9755 |
model: showStandardStylesOnly |
|
9756 |
translateLabel: true |
|
6021 | 9757 |
extent: (Point 562 35) |
5441 | 9758 |
) |
9759 |
(SequenceViewSpec |
|
9760 |
name: 'StyleList' |
|
9761 |
model: selectedStyle |
|
9762 |
hasHorizontalScrollBar: true |
|
9763 |
hasVerticalScrollBar: true |
|
9764 |
doubleClickSelector: doubleClickAt: |
|
9765 |
useIndex: false |
|
9766 |
sequenceList: styleList |
|
6021 | 9767 |
extent: (Point 562 353) |
5441 | 9768 |
) |
9769 |
) |
|
9770 |
||
9771 |
) |
|
9772 |
) |
|
9773 |
) |
|
9774 |
||
9775 |
) |
|
9776 |
) |
|
9777 |
) |
|
9778 |
||
9779 |
) |
|
9780 |
handles: (Any 0.37 1.0) |
|
4286 | 9781 |
) |
5441 | 9782 |
(ViewSpec |
9783 |
name: 'Box3' |
|
9784 |
layout: (LayoutFrame 0 0 -35 1 0 1 0 1) |
|
9785 |
component: |
|
9786 |
(SpecCollection |
|
9787 |
collection: ( |
|
9788 |
(LabelSpec |
|
9789 |
label: 'Label' |
|
9790 |
name: 'Label1' |
|
9791 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
9792 |
translateLabel: true |
|
9793 |
labelChannel: infoLabelHolder |
|
9794 |
resizeForLabel: true |
|
9795 |
adjust: left |
|
9796 |
) |
|
9797 |
) |
|
9798 |
||
9799 |
) |
|
5378 | 9800 |
) |
4286 | 9801 |
) |
9802 |
||
9803 |
) |
|
9804 |
) |
|
9805 |
! ! |
|
9806 |
||
9807 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'! |
|
9808 |
||
5030 | 9809 |
basicSaveSettings |
6029 | 9810 |
|newStyle| |
4574 | 9811 |
|
9812 |
newStyle := self selectedStyle value. |
|
4705 | 9813 |
|
4574 | 9814 |
self withWaitCursorDo:[ |
6081 | 9815 |
Transcript showCR:'Change style to ' , newStyle , ' ...'. |
4574 | 9816 |
View defaultStyle:newStyle asSymbol. |
9817 |
]. |
|
6029 | 9818 |
self reopenToolsAfterChangedViewStyleSetting. |
4574 | 9819 |
! |
9820 |
||
5030 | 9821 |
doubleClickAt:aLine |
9822 |
||
9823 |
self saveSettings. |
|
9824 |
! |
|
9825 |
||
5101 | 9826 |
helpFilename |
9827 |
^ 'Launcher/styleSettings.html' |
|
4286 | 9828 |
! |
9829 |
||
5030 | 9830 |
readSettings |
4574 | 9831 |
self modifiedChannel value:false |
4286 | 9832 |
! ! |
9833 |
||
9834 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'! |
|
9835 |
||
5030 | 9836 |
infoLabelHolder |
9837 |
||
9838 |
infoLabelHolder isNil ifTrue:[ |
|
9839 |
infoLabelHolder := '' asValue. |
|
9840 |
]. |
|
9841 |
^ infoLabelHolder. |
|
9842 |
! |
|
9843 |
||
9844 |
noticeLabelHolder |
|
9845 |
||
9846 |
noticeLabelHolder isNil ifTrue:[ |
|
9847 |
noticeLabelHolder := '' asValue. |
|
9848 |
]. |
|
9849 |
^ noticeLabelHolder. |
|
9850 |
! |
|
9851 |
||
9852 |
selectedStyle |
|
4286 | 9853 |
|
9854 |
selectedStyle isNil ifTrue:[ |
|
9855 |
selectedStyle := ValueHolder new. |
|
9856 |
selectedStyle addDependent:self. |
|
9857 |
]. |
|
9858 |
^ selectedStyle. |
|
9859 |
! |
|
9860 |
||
5030 | 9861 |
showStandardStylesOnly |
9862 |
||
9863 |
showStandardStylesOnly isNil ifTrue:[ |
|
9864 |
showStandardStylesOnly := true asValue. |
|
9865 |
showStandardStylesOnly addDependent:self. |
|
9866 |
]. |
|
9867 |
^ showStandardStylesOnly. |
|
9868 |
! |
|
9869 |
||
9870 |
styleList |
|
5029 | 9871 |
|
9872 |
styleList isNil ifTrue:[ |
|
9873 |
styleList := List new. |
|
9874 |
styleList addDependent:self. |
|
9875 |
]. |
|
9876 |
^ styleList. |
|
4286 | 9877 |
! ! |
9878 |
||
9879 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'! |
|
9880 |
||
5030 | 9881 |
changeInfoLabel |
4286 | 9882 |
|
9883 |
|nm sheet comment| |
|
9884 |
||
9885 |
comment := ''. |
|
9886 |
nm := self selectedStyle value. |
|
9887 |
nm notNil ifTrue:[ |
|
9888 |
sheet := ViewStyle fromFile:(nm , '.style'). |
|
9889 |
comment := (sheet at:#comment ifAbsent:'') withoutSeparators. |
|
9890 |
]. |
|
9891 |
comment := comment withCRs asStringCollection. |
|
9892 |
comment size == 1 ifTrue:[ |
|
9893 |
comment := comment first |
|
9894 |
]. |
|
9895 |
self infoLabelHolder value:comment |
|
9896 |
! |
|
9897 |
||
5041 | 9898 |
update:something with:aParameter from:changedObject |
4286 | 9899 |
changedObject == self showStandardStylesOnly ifTrue:[ |
9900 |
self updateList. |
|
5041 | 9901 |
^ self |
4286 | 9902 |
]. |
9903 |
changedObject == self selectedStyle ifTrue:[ |
|
9904 |
self changeInfoLabel. |
|
5041 | 9905 |
self updateModifiedChannel. |
9906 |
^ self |
|
9907 |
]. |
|
9908 |
super |
|
9909 |
update:something |
|
9910 |
with:aParameter |
|
9911 |
from:changedObject |
|
4286 | 9912 |
! |
9913 |
||
5030 | 9914 |
updateList |
4286 | 9915 |
|
9916 |
|listOfStyles lastSelection| |
|
9917 |
||
9918 |
lastSelection := self selectedStyle value. |
|
9919 |
listOfStyles := styleDirectoryContents select:[:aFileName | aFileName asFilename hasSuffix:'style']. |
|
9920 |
listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename withoutSuffix name]. |
|
9921 |
Filename isCaseSensitive ifFalse:[ |
|
9922 |
listOfStyles := listOfStyles collect:[:aStyleName | aStyleName asLowercase]. |
|
9923 |
]. |
|
9924 |
listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil. |
|
9925 |
self showStandardStylesOnly value ifTrue:[ |
|
6086 | 9926 |
listOfStyles := listOfStyles select:[:aStyleName | self class standardStyles includes:aStyleName asLowercase]. |
4286 | 9927 |
]. |
9928 |
||
9929 |
listOfStyles sort. |
|
9930 |
self styleList contents:listOfStyles. |
|
9931 |
self selectedStyle value:lastSelection. |
|
9932 |
! ! |
|
9933 |
||
9934 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'! |
|
9935 |
||
5030 | 9936 |
initialize |
4286 | 9937 |
|
9938 |
|someRsrcFile resourceDir| |
|
9939 |
||
4574 | 9940 |
super initialize. |
9941 |
||
4286 | 9942 |
someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style'). |
9943 |
someRsrcFile isNil ifTrue:[ |
|
9944 |
someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'. |
|
9945 |
someRsrcFile isNil ifTrue:[ |
|
9946 |
someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'. |
|
9947 |
]. |
|
9948 |
]. |
|
9949 |
someRsrcFile notNil ifTrue:[ |
|
9950 |
resourceDir := someRsrcFile asFilename directoryName |
|
9951 |
] ifFalse:[ |
|
9952 |
resourceDir := Smalltalk getSystemFileName:'resources'. |
|
4635
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9953 |
resourceDir isNil ifTrue:[ |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9954 |
self warn:'no styles found (missing ''resources'' directory)'. |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9955 |
^ self |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9956 |
]. |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9957 |
]. |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9958 |
|
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9959 |
[ |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9960 |
styleDirectoryContents := resourceDir asFilename directoryContents. |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9961 |
] on:FileStream openErrorSignal do:[:ex| |
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9962 |
self warn:'no styles found (unaccessable ''resources'' directory)'. |
4286 | 9963 |
^ self |
9964 |
]. |
|
4635
6e9480e52468
Handle openErrorSignal in preparition for change openErrorSignal
Stefan Vogel <sv@exept.de>
parents:
4598
diff
changeset
|
9965 |
|
4286 | 9966 |
self updateList. |
6086 | 9967 |
(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[ |
4286 | 9968 |
self showStandardStylesOnly value:false |
9969 |
]. |
|
9970 |
self selectedStyle value:(View defaultStyle). |
|
9971 |
self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs. |
|
5378 | 9972 |
! |
9973 |
||
9974 |
postBuildHelpLabel:aWidget |
|
9975 |
aWidget level:0. |
|
9976 |
aWidget scrolledView backgroundColor:self window viewBackground. |
|
4286 | 9977 |
! ! |
9978 |
||
9979 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'! |
|
9980 |
||
5030 | 9981 |
hasUnsavedChanges |
4286 | 9982 |
|
9983 |
^ (self selectedStyle value ~= View defaultStyle) |
|
9984 |
! ! |
|
9985 |
||
4398 | 9986 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'! |
9987 |
||
5030 | 9988 |
emphasisList |
4398 | 9989 |
|
9990 |
^ #( |
|
9991 |
#normal |
|
9992 |
#underline |
|
9993 |
#'red underline' |
|
9994 |
#underwave |
|
9995 |
#'red underwave' |
|
9996 |
#bold |
|
9997 |
#boldUnderline |
|
9998 |
#'bold+red underline' |
|
9999 |
#boldUnderwave |
|
10000 |
#'bold+red underwave' |
|
10001 |
#italic |
|
10002 |
#italicUnderline |
|
10003 |
#'italic+red underline' |
|
10004 |
#italicUnderwave |
|
10005 |
#'italic+red underwave' |
|
10006 |
#reverse |
|
10007 |
) |
|
10008 |
! |
|
10009 |
||
5030 | 10010 |
exampleText |
4398 | 10011 |
|
10012 |
^ 'methodSelector:methodArg |
|
10013 |
"method comment: |
|
10014 |
some stupid code to show the current settings" |
|
10015 |
||
10016 |
|methodVar| |
|
10017 |
||
10018 |
"/ another comment ... |
|
10019 |
self at:methodArg. "/ a message |
|
10020 |
self fooBarBaz:methodVar. "/ a bad message |
|
10021 |
methodVar := Array new:1. |
|
10022 |
unknonVar := 1. "/ a bad variable |
|
10023 |
UnknonVar := 1. "/ another bad variable |
|
10024 |
"self bar:methodVar. detect commented code easily" |
|
10025 |
1 to:5 do:[:i | self at:i + 1]. |
|
10026 |
Transcript showCR:''some string'' , #someSymbol. |
|
10027 |
^ self. |
|
10028 |
'. |
|
10029 |
! |
|
10030 |
||
5030 | 10031 |
fontList |
4398 | 10032 |
|
10033 |
^ #( |
|
10034 |
normal |
|
10035 |
underline |
|
10036 |
#'red underline' |
|
10037 |
underwave |
|
10038 |
#'red underwave' |
|
10039 |
bold |
|
10040 |
boldUnderline |
|
10041 |
#'bold+red underline' |
|
10042 |
boldUnderwave |
|
10043 |
#'bold+red underwave' |
|
10044 |
italic |
|
10045 |
italicUnderline |
|
10046 |
#'italic+red underline' |
|
10047 |
italicUnderwave |
|
10048 |
#'italic+red underwave' |
|
10049 |
reverse |
|
10050 |
) |
|
10051 |
! ! |
|
10052 |
||
10053 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'! |
|
10054 |
||
5030 | 10055 |
defaultIcon |
4398 | 10056 |
"This resource specification was automatically generated |
10057 |
by the ImageEditor of ST/X." |
|
10058 |
||
10059 |
"Do not manually edit this!! If it is corrupted, |
|
10060 |
the ImageEditor may not be able to read the specification." |
|
10061 |
||
10062 |
" |
|
10063 |
self defaultIcon inspect |
|
10064 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
10065 |
Icon flushCachedIcons |
|
10066 |
" |
|
10067 |
||
10068 |
<resource: #image> |
|
10069 |
||
10070 |
^Icon |
|
10071 |
constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon' |
|
4948 | 10072 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
10073 |
DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD |
|
10074 |
QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD |
|
10075 |
A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself] |
|
4398 | 10076 |
! ! |
10077 |
||
10078 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'! |
|
10079 |
||
5030 | 10080 |
windowSpec |
4398 | 10081 |
"This resource specification was automatically generated |
10082 |
by the UIPainter of ST/X." |
|
10083 |
||
10084 |
"Do not manually edit this!! If it is corrupted, |
|
10085 |
the UIPainter may not be able to read the specification." |
|
10086 |
||
10087 |
" |
|
10088 |
UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec |
|
10089 |
AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec |
|
10090 |
AbstractSettingsApplication::SyntaxColorSettingsAppl open |
|
10091 |
" |
|
10092 |
||
10093 |
<resource: #canvas> |
|
10094 |
||
10095 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10096 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10097 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10098 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10099 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10100 |
label: 'Syntax Color Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10101 |
name: 'Syntax Color Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10102 |
min: (Point 10 10) |
6017 | 10103 |
bounds: (Rectangle 0 0 695 609) |
4398 | 10104 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10105 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10106 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10107 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10108 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10109 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10110 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10111 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10112 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10113 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10114 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10115 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10116 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10117 |
collection: ( |
6017 | 10118 |
(ViewSpec |
6020 | 10119 |
name: 'ElementSelectionBox' |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10120 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10121 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10122 |
collection: ( |
6017 | 10123 |
(LabelSpec |
6020 | 10124 |
label: 'Element:' |
6017 | 10125 |
name: 'Label4' |
6020 | 10126 |
layout: (LayoutFrame 0 0 0 0 100 0 22 0) |
10127 |
translateLabel: true |
|
10128 |
adjust: right |
|
6017 | 10129 |
) |
10130 |
(ComboListSpec |
|
10131 |
name: 'ComboList3' |
|
6020 | 10132 |
layout: (LayoutFrame 100 0 0 0 0 1 22 0) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10133 |
enableChannel: syntaxColoring |
6017 | 10134 |
model: syntaxElementSelection |
10135 |
comboList: syntaxElementList |
|
10136 |
useIndex: false |
|
10137 |
hidePullDownMenuButton: false |
|
10138 |
) |
|
10139 |
) |
|
10140 |
||
10141 |
) |
|
6020 | 10142 |
extent: (Point 695 25) |
6017 | 10143 |
) |
10144 |
(ViewSpec |
|
6020 | 10145 |
name: 'ColorBox' |
10146 |
component: |
|
10147 |
(SpecCollection |
|
10148 |
collection: ( |
|
10149 |
(LabelSpec |
|
10150 |
label: 'Color:' |
|
10151 |
name: 'Label2' |
|
10152 |
layout: (LayoutFrame 40 0 0 0 140 0 22 0) |
|
10153 |
translateLabel: true |
|
10154 |
adjust: right |
|
10155 |
) |
|
10156 |
(ColorMenuSpec |
|
10157 |
name: 'ColorMenu2' |
|
10158 |
layout: (LayoutFrame 140 0 0 0 0 1 22 0) |
|
10159 |
enableChannel: syntaxColoring |
|
10160 |
model: syntaxColor |
|
10161 |
labelsAreColored: true |
|
10162 |
) |
|
10163 |
) |
|
10164 |
||
10165 |
) |
|
10166 |
extent: (Point 695 25) |
|
10167 |
) |
|
10168 |
(ViewSpec |
|
10169 |
name: 'EmphasisBox' |
|
6017 | 10170 |
component: |
10171 |
(SpecCollection |
|
10172 |
collection: ( |
|
10173 |
(LabelSpec |
|
10174 |
label: 'Emphasis:' |
|
10175 |
name: 'Label1' |
|
6020 | 10176 |
layout: (LayoutFrame 40 0 0 0 140 0 22 0) |
10177 |
translateLabel: true |
|
10178 |
adjust: right |
|
6017 | 10179 |
) |
10180 |
(ComboListSpec |
|
10181 |
name: 'ComboList5' |
|
6020 | 10182 |
layout: (LayoutFrame 140 0 0 0 0 1 22 0) |
6017 | 10183 |
enableChannel: syntaxColoring |
10184 |
model: syntaxEmphasisSelection |
|
10185 |
comboList: syntaxEmphasisList |
|
10186 |
useIndex: false |
|
10187 |
hidePullDownMenuButton: false |
|
4398 | 10188 |
) |
10189 |
) |
|
10190 |
||
10191 |
) |
|
6020 | 10192 |
extent: (Point 695 25) |
6017 | 10193 |
) |
10194 |
(ViewSpec |
|
6020 | 10195 |
name: 'ResetBox' |
6017 | 10196 |
component: |
10197 |
(SpecCollection |
|
10198 |
collection: ( |
|
10199 |
(ActionButtonSpec |
|
10200 |
label: 'Reset To:' |
|
10201 |
name: 'Button2' |
|
10202 |
layout: (LayoutFrame 0 0 -22 1 150 0 0 1) |
|
10203 |
translateLabel: true |
|
10204 |
model: resetToColorScheme |
|
10205 |
enableChannel: syntaxColoring |
|
10206 |
) |
|
10207 |
(ComboListSpec |
|
10208 |
name: 'ComboList4' |
|
10209 |
layout: (LayoutFrame 150 0 -22 1 0 1 0 1) |
|
10210 |
enableChannel: syntaxColoring |
|
10211 |
model: resetListSelection |
|
10212 |
comboList: resetList |
|
10213 |
useIndex: false |
|
10214 |
hidePullDownMenuButton: false |
|
10215 |
) |
|
10216 |
) |
|
10217 |
||
10218 |
) |
|
10219 |
extent: (Point 695 35) |
|
10220 |
) |
|
10221 |
(ViewSpec |
|
10222 |
name: 'SpacingBox1' |
|
6020 | 10223 |
extent: (Point 695 10) |
6017 | 10224 |
) |
10225 |
(LabelSpec |
|
10226 |
label: 'Sample Output:' |
|
6020 | 10227 |
name: 'SampleLabel3' |
6017 | 10228 |
translateLabel: true |
10229 |
adjust: left |
|
10230 |
extent: (Point 695 22) |
|
10231 |
) |
|
10232 |
(TextEditorSpec |
|
10233 |
name: 'TextEditor2' |
|
10234 |
enableChannel: syntaxColoring |
|
10235 |
model: coloredText |
|
10236 |
hasHorizontalScrollBar: true |
|
10237 |
hasVerticalScrollBar: true |
|
10238 |
isReadOnly: true |
|
10239 |
extent: (Point 695 280) |
|
10240 |
) |
|
10241 |
(ViewSpec |
|
10242 |
name: 'SpacingBox2' |
|
6020 | 10243 |
extent: (Point 695 10) |
6017 | 10244 |
) |
10245 |
(CheckBoxSpec |
|
10246 |
label: 'Syntax Coloring' |
|
10247 |
name: 'CheckBox1' |
|
10248 |
model: syntaxColoring |
|
10249 |
translateLabel: true |
|
10250 |
extent: (Point 695 22) |
|
10251 |
) |
|
10252 |
(CheckBoxSpec |
|
10253 |
label: 'Immediate Selector Check' |
|
10254 |
name: 'ImmediateSelectorCheckBox' |
|
10255 |
enableChannel: syntaxColoring |
|
10256 |
model: fullSelectorCheck |
|
10257 |
translateLabel: true |
|
10258 |
extent: (Point 695 22) |
|
4398 | 10259 |
) |
10260 |
) |
|
10261 |
||
10262 |
) |
|
10263 |
) |
|
10264 |
) |
|
10265 |
||
10266 |
) |
|
10267 |
) |
|
10268 |
! ! |
|
10269 |
||
10270 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'! |
|
10271 |
||
5030 | 10272 |
basicSaveSettings |
4574 | 10273 |
|
10274 |
oldUserPreferences := currentUserPrefs copy. |
|
10275 |
currentUserPrefs syntaxColoring:self syntaxColoring value. |
|
10276 |
currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value. |
|
10277 |
! |
|
10278 |
||
5030 | 10279 |
formattingConfiguration |
4398 | 10280 |
"automatically generated by UIPainter ..." |
10281 |
||
10282 |
"*** the code below performs no action" |
|
10283 |
"*** (except for some feedback on the Transcript)" |
|
10284 |
"*** Please change as required and accept in the browser." |
|
10285 |
||
10286 |
"action to be added ..." |
|
10287 |
||
10288 |
Transcript showCR:self class name, ': action for formattingConfiguration ...'. |
|
10289 |
! |
|
10290 |
||
5101 | 10291 |
helpFilename |
10292 |
^ 'Launcher/sourceSettings.html' |
|
4398 | 10293 |
! |
10294 |
||
5030 | 10295 |
readSettings |
4574 | 10296 |
|colorList resetListLoc| |
4398 | 10297 |
|
10298 |
oldUserPreferences notNil ifTrue:[ |
|
4574 | 10299 |
(UserPreferences |
10300 |
reset; |
|
5943
df089099d96d
Use #addAll: instead of #declareAllFrom:, since #declareAllFrom:
Stefan Vogel <sv@exept.de>
parents:
5920
diff
changeset
|
10301 |
current) addAll:oldUserPreferences |
4398 | 10302 |
]. |
10303 |
self syntaxColoring value:currentUserPrefs syntaxColoring. |
|
10304 |
self fullSelectorCheck value:currentUserPrefs fullSelectorCheck. |
|
10305 |
oldUserPreferences := currentUserPrefs copy. |
|
10306 |
colorList := UserPreferences syntaxColorNames. |
|
4574 | 10307 |
resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes |
10308 |
collect:[:entry | entry second]. |
|
4398 | 10309 |
self resetList value:resetListLoc. |
10310 |
self resetListSelection value:resetListLoc first. |
|
10311 |
self syntaxEmphasisList value:self class emphasisList. |
|
10312 |
self syntaxElementList value:colorList. |
|
10313 |
self syntaxElementSelection value:(colorList at:1). |
|
4574 | 10314 |
self modifiedChannel value:false |
4398 | 10315 |
! |
10316 |
||
5030 | 10317 |
recolor |
4398 | 10318 |
|text| |
10319 |
||
10320 |
self syntaxColoring value ifTrue:[ |
|
6017 | 10321 |
text := SyntaxHighlighter |
10322 |
formatMethod:self class exampleText |
|
10323 |
in:nil |
|
10324 |
using:currentUserPrefs. |
|
4398 | 10325 |
] ifFalse:[ |
10326 |
text := self class exampleText. |
|
10327 |
]. |
|
10328 |
self coloredText value:text |
|
10329 |
! |
|
10330 |
||
5030 | 10331 |
resetToColorScheme |
4398 | 10332 |
|resetSelector| |
10333 |
||
5041 | 10334 |
resetSelector := resetListDictionary |
10335 |
keyAtValue:(self resetListSelection value). |
|
10336 |
currentUserPrefs perform:resetSelector. |
|
4398 | 10337 |
self recolor. |
5041 | 10338 |
self updateModifiedChannel |
4398 | 10339 |
! ! |
10340 |
||
10341 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'! |
|
10342 |
||
5030 | 10343 |
coloredText |
4398 | 10344 |
|
10345 |
coloredText isNil ifTrue:[ |
|
10346 |
coloredText := ValueHolder new. |
|
10347 |
]. |
|
10348 |
^ coloredText. |
|
10349 |
! |
|
10350 |
||
5030 | 10351 |
fullSelectorCheck |
10352 |
||
10353 |
fullSelectorCheck isNil ifTrue:[ |
|
10354 |
fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue. |
|
5041 | 10355 |
fullSelectorCheck onChangeSend:#updateModifiedChannel to:self |
5030 | 10356 |
]. |
10357 |
^ fullSelectorCheck. |
|
10358 |
! |
|
10359 |
||
10360 |
resetList |
|
4398 | 10361 |
|
10362 |
resetList isNil ifTrue:[ |
|
10363 |
resetList := ValueHolder new. |
|
10364 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
10365 |
"/ resetList addDependent:self. |
|
10366 |
"/ resetList onChangeSend:#resetListChanged to:self. |
|
10367 |
]. |
|
10368 |
^ resetList. |
|
10369 |
! |
|
10370 |
||
5030 | 10371 |
resetListSelection |
4398 | 10372 |
|
10373 |
resetListSelection isNil ifTrue:[ |
|
10374 |
resetListSelection := ValueHolder new. |
|
10375 |
]. |
|
10376 |
^ resetListSelection. |
|
10377 |
! |
|
10378 |
||
5030 | 10379 |
syntaxColor |
4398 | 10380 |
|
10381 |
syntaxColor isNil ifTrue:[ |
|
10382 |
syntaxColor := ValueHolder new. |
|
10383 |
syntaxColor addDependent:self. |
|
10384 |
]. |
|
10385 |
^ syntaxColor. |
|
10386 |
! |
|
10387 |
||
5030 | 10388 |
syntaxColoring |
4398 | 10389 |
|
10390 |
syntaxColoring isNil ifTrue:[ |
|
10391 |
syntaxColoring := true asValue. |
|
10392 |
syntaxColoring addDependent:self. |
|
5041 | 10393 |
syntaxColoring onChangeSend:#updateModifiedChannel to:self. |
4398 | 10394 |
]. |
10395 |
^ syntaxColoring. |
|
10396 |
! |
|
10397 |
||
5030 | 10398 |
syntaxElementList |
4398 | 10399 |
"automatically generated by UIPainter ..." |
10400 |
||
10401 |
"*** the code below creates a default model when invoked." |
|
10402 |
"*** (which may not be the one you wanted)" |
|
10403 |
"*** Please change as required and accept it in the browser." |
|
10404 |
"*** (and replace this comment by something more useful ;-)" |
|
10405 |
||
10406 |
syntaxElementList isNil ifTrue:[ |
|
10407 |
syntaxElementList := ValueHolder new. |
|
10408 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
10409 |
"/ syntaxElementList addDependent:self. |
|
10410 |
"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self. |
|
10411 |
]. |
|
10412 |
^ syntaxElementList. |
|
10413 |
! |
|
10414 |
||
5030 | 10415 |
syntaxElementSelection |
4398 | 10416 |
|
10417 |
syntaxElementSelection isNil ifTrue:[ |
|
10418 |
syntaxElementSelection := ValueHolder new. |
|
10419 |
syntaxElementSelection addDependent:self. |
|
10420 |
"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self. |
|
10421 |
]. |
|
10422 |
^ syntaxElementSelection. |
|
10423 |
! |
|
10424 |
||
5030 | 10425 |
syntaxEmphasisList |
5029 | 10426 |
"automatically generated by UIPainter ..." |
10427 |
||
10428 |
"*** the code below creates a default model when invoked." |
|
10429 |
"*** (which may not be the one you wanted)" |
|
10430 |
"*** Please change as required and accept it in the browser." |
|
10431 |
"*** (and replace this comment by something more useful ;-)" |
|
10432 |
||
10433 |
syntaxEmphasisList isNil ifTrue:[ |
|
10434 |
syntaxEmphasisList := ValueHolder new. |
|
10435 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
10436 |
"/ syntaxEmphasisList addDependent:self. |
|
10437 |
"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self. |
|
10438 |
]. |
|
10439 |
^ syntaxEmphasisList. |
|
10440 |
! |
|
10441 |
||
5030 | 10442 |
syntaxEmphasisSelection |
4398 | 10443 |
|
10444 |
syntaxEmphasisSelection isNil ifTrue:[ |
|
10445 |
syntaxEmphasisSelection := ValueHolder new. |
|
10446 |
syntaxEmphasisSelection addDependent:self. |
|
10447 |
]. |
|
10448 |
^ syntaxEmphasisSelection. |
|
10449 |
! ! |
|
10450 |
||
10451 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'! |
|
10452 |
||
5030 | 10453 |
getEmphasis:anEmphasisOrSymbol |
4398 | 10454 |
" return emphasis Symbol for emphasis or emphasis for emphasis symbol " |
10455 |
||
10456 |
^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil] |
|
10457 |
! |
|
10458 |
||
5030 | 10459 |
syntaxColorChanged |
6017 | 10460 |
currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value). |
4398 | 10461 |
self recolor. |
5041 | 10462 |
self updateModifiedChannel |
4398 | 10463 |
! |
10464 |
||
5030 | 10465 |
syntaxElementSelectionChanged |
4398 | 10466 |
|
10467 |
| syntaxEmphasisValue | |
|
10468 |
||
6017 | 10469 |
self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)). |
10470 |
syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)). |
|
4398 | 10471 |
self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue). |
10472 |
self recolor. |
|
10473 |
! |
|
10474 |
||
5030 | 10475 |
syntaxEmphasisSelectionChanged |
4398 | 10476 |
|em| |
10477 |
||
10478 |
em := self getEmphasis:self syntaxEmphasisSelection value. |
|
6017 | 10479 |
currentUserPrefs at:(self syntaxEmphasisSelector) put:em. |
4398 | 10480 |
self recolor. |
5041 | 10481 |
self updateModifiedChannel |
4398 | 10482 |
! |
10483 |
||
5030 | 10484 |
update:something with:aParameter from:changedObject |
4398 | 10485 |
changedObject == self syntaxElementSelection ifTrue:[ |
10486 |
self syntaxElementSelectionChanged. |
|
10487 |
^ self. |
|
10488 |
]. |
|
10489 |
changedObject == self syntaxColor ifTrue:[ |
|
10490 |
self syntaxColorChanged. |
|
10491 |
^ self. |
|
10492 |
]. |
|
10493 |
changedObject == self syntaxEmphasisSelection ifTrue:[ |
|
10494 |
self syntaxEmphasisSelectionChanged. |
|
10495 |
^ self. |
|
10496 |
]. |
|
10497 |
changedObject == self syntaxColoring ifTrue:[ |
|
10498 |
self recolor. |
|
10499 |
^ self. |
|
10500 |
]. |
|
10501 |
||
10502 |
super update:something with:aParameter from:changedObject |
|
10503 |
! ! |
|
10504 |
||
10505 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'! |
|
10506 |
||
5030 | 10507 |
initialize |
4398 | 10508 |
self initializeEmphasisDictionary. |
4574 | 10509 |
super initialize. |
10510 |
||
4398 | 10511 |
resetListDictionary := Dictionary new. |
4574 | 10512 |
currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry | |
10513 |
resetListDictionary at:(entry at:1) put:(entry at:2) |
|
10514 |
]. |
|
4398 | 10515 |
! |
10516 |
||
5030 | 10517 |
initializeEmphasisDictionary |
4398 | 10518 |
|
10519 |
emphasisDictionary := Dictionary new. |
|
10520 |
self class emphasisList do:[ : entry | |
|
10521 |
entry == #'red underline' ifTrue:[ |
|
10522 |
emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)). |
|
10523 |
emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry. |
|
10524 |
] ifFalse:[ |
|
10525 |
entry == #'red underwave' ifTrue:[ |
|
10526 |
emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)). |
|
10527 |
emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry. |
|
10528 |
] ifFalse:[ |
|
10529 |
entry == #'bold+red underline' ifTrue:[ |
|
10530 |
emphasisDictionary at:entry put:(Array with:#bold with:#underline with:(#underlineColor->Color red)). |
|
10531 |
emphasisDictionary at:(Array with:#bold with:#underline with:(#underlineColor->Color red)) put:entry. |
|
10532 |
] ifFalse:[ |
|
10533 |
entry == #'bold+red underwave' ifTrue:[ |
|
10534 |
emphasisDictionary at:entry put:(Array with:#bold with:#underwave with:(#underlineColor->Color red)). |
|
10535 |
emphasisDictionary at:(Array with:#bold with:#underwave with:(#underlineColor->Color red)) put:entry. |
|
10536 |
] ifFalse:[ |
|
10537 |
entry == #'italic+red underline' ifTrue:[ |
|
10538 |
emphasisDictionary at:entry put:(Array with:#italic with:#underline with:(#underlineColor->Color red)). |
|
10539 |
emphasisDictionary at:(Array with:#italic with:#underline with:(#underlineColor->Color red)) put:entry. |
|
10540 |
] ifFalse:[ |
|
10541 |
entry == #'italic+red underwave' ifTrue:[ |
|
10542 |
emphasisDictionary at:entry put:(Array with:#italic with:#underwave with:(#underlineColor->Color red)). |
|
10543 |
emphasisDictionary at:(Array with:#italic with:#underwave with:(#underlineColor->Color red)) put:entry. |
|
10544 |
] ifFalse:[ |
|
10545 |
emphasisDictionary at:entry put:entry |
|
10546 |
] |
|
10547 |
] |
|
10548 |
] |
|
10549 |
] |
|
10550 |
] |
|
10551 |
] |
|
10552 |
]. |
|
10553 |
! |
|
10554 |
||
5030 | 10555 |
release |
4398 | 10556 |
|
10557 |
oldUserPreferences notNil ifTrue:[ |
|
5943
df089099d96d
Use #addAll: instead of #declareAllFrom:, since #declareAllFrom:
Stefan Vogel <sv@exept.de>
parents:
5920
diff
changeset
|
10558 |
(UserPreferences reset; current) addAll:oldUserPreferences |
4398 | 10559 |
]. |
10560 |
super release |
|
10561 |
! ! |
|
10562 |
||
10563 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'! |
|
10564 |
||
5030 | 10565 |
hasUnsavedChanges |
4398 | 10566 |
|colorList colorPerformer emphasisPerformer| |
10567 |
||
10568 |
colorList := UserPreferences syntaxColorNames. |
|
10569 |
colorList do:[:syntaxElement | |
|
6017 | 10570 |
colorPerformer := (self syntaxColorSelectorForElement:syntaxElement). |
10571 |
emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement). |
|
4398 | 10572 |
((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[ |
10573 |
^ true |
|
10574 |
]. |
|
10575 |
((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[ |
|
10576 |
^ true |
|
10577 |
]. |
|
10578 |
syntaxElement |
|
10579 |
]. |
|
10580 |
currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true]. |
|
10581 |
currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true]. |
|
10582 |
^ false |
|
10583 |
! |
|
10584 |
||
5030 | 10585 |
syntaxColorSelector |
6017 | 10586 |
^ (self syntaxColorSelectorForElement:self syntaxElementSelection value) |
4398 | 10587 |
! |
10588 |
||
5030 | 10589 |
syntaxColorSelectorForElement:aSyntaxElement |
6017 | 10590 |
^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol |
4398 | 10591 |
! |
10592 |
||
5030 | 10593 |
syntaxEmphasisSelector |
4398 | 10594 |
|
6017 | 10595 |
^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value) |
4398 | 10596 |
! |
10597 |
||
5030 | 10598 |
syntaxEmphasisSelectorForElement:anEmElement |
6017 | 10599 |
^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis') |
10600 |
asLowercaseFirst asSymbol |
|
4398 | 10601 |
! ! |
10602 |
||
4312 | 10603 |
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'! |
10604 |
||
5030 | 10605 |
defaultIcon |
4312 | 10606 |
"This resource specification was automatically generated |
10607 |
by the ImageEditor of ST/X." |
|
10608 |
||
10609 |
"Do not manually edit this!! If it is corrupted, |
|
10610 |
the ImageEditor may not be able to read the specification." |
|
10611 |
||
10612 |
" |
|
10613 |
self defaultIcon inspect |
|
10614 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
10615 |
Icon flushCachedIcons |
|
10616 |
" |
|
10617 |
||
10618 |
<resource: #image> |
|
10619 |
||
10620 |
^Icon |
|
10621 |
constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon' |
|
10622 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
4948 | 10623 |
@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@ |
10624 |
@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@ |
|
10625 |
@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O |
|
10626 |
D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H] |
|
10627 |
GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@C0<^D1LSG2@UER@ HBD"@@@@@@@@@@<OG!!LSD1< EQT HB@!!H @@@@@@@@@OC2DSD1L_ |
|
10628 |
F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 64 32 16 128 96 48 112 48 0 176 112 48 176 96 32 208 160 128 160 96 16 48 32 0 192 128 80 160 80 16 112 80 32 176 112 32 96 48 16 160 112 32 80 80 16 128 64 16 64 64 16 208 208 176 224 224 208 160 160 128 144 144 80 112 112 64 128 128 64 80 80 32 192 192 160 160 160 112 96 96 48 48 48 16 240 240 224 176 176 128 176 176 144 144 144 96 112 112 48 32 32 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@_0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@G??@G??@G??@A?>@') ; yourself); yourself] |
|
4312 | 10629 |
! ! |
10630 |
||
4286 | 10631 |
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'! |
10632 |
||
5030 | 10633 |
windowSpec |
4286 | 10634 |
"This resource specification was automatically generated |
10635 |
by the UIPainter of ST/X." |
|
10636 |
||
10637 |
"Do not manually edit this!! If it is corrupted, |
|
10638 |
the UIPainter may not be able to read the specification." |
|
10639 |
||
10640 |
" |
|
4310 | 10641 |
UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec |
10642 |
AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec |
|
10643 |
AbstractSettingsApplication::SystemMessageSettingsAppl open |
|
4286 | 10644 |
" |
10645 |
||
10646 |
<resource: #canvas> |
|
10647 |
||
10648 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10649 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10650 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10651 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10652 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10653 |
label: 'Messages Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10654 |
name: 'Messages Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10655 |
min: (Point 10 10) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10656 |
bounds: (Rectangle 14 46 575 395) |
4286 | 10657 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10658 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10659 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10660 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10661 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10662 |
name: 'VerticalPanel2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10663 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10664 |
horizontalLayout: fitSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10665 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10666 |
horizontalSpace: 5 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10667 |
verticalSpace: 5 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10668 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10669 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10670 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10671 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10672 |
name: 'VerticalPanel1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10673 |
horizontalLayout: fit |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10674 |
verticalLayout: topSpace |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10675 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10676 |
verticalSpace: 20 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10677 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10678 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10679 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10680 |
(FramedBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10681 |
label: 'Info & Error Messages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10682 |
name: 'FramedBox2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10683 |
labelPosition: topLeft |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10684 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10685 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10686 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10687 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10688 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10689 |
label: 'VM Info Messages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10690 |
name: 'VMInfoMessages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10691 |
layout: (LayoutFrame 5 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10692 |
model: vmInfo |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10693 |
translateLabel: true |
4398 | 10694 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10695 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10696 |
label: 'VM Error Messages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10697 |
name: 'VMErrorMessages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10698 |
layout: (LayoutFrame 5 0 30 0 -5 1 52 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10699 |
model: vmErrors |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10700 |
translateLabel: true |
4398 | 10701 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10702 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10703 |
label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10704 |
name: 'DisplayErrorMessages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10705 |
layout: (LayoutFrame 5 0 55 0 -5 1 77 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10706 |
model: displayErrors |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10707 |
translateLabel: true |
4398 | 10708 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10709 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10710 |
label: 'Other Info Messages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10711 |
name: 'OtherInfoMessages' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10712 |
layout: (LayoutFrame 5 0 80 0 -5 1 102 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10713 |
model: classInfos |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10714 |
translateLabel: true |
4398 | 10715 |
) |
10716 |
) |
|
10717 |
||
10718 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10719 |
extent: (Point 551 133) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10720 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10721 |
(FramedBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10722 |
label: 'Change File' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10723 |
name: 'FramedBox1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10724 |
labelPosition: topLeft |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10725 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10726 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10727 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10728 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10729 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10730 |
label: 'Log compiles in Changefile' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10731 |
name: 'CheckBox1' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10732 |
layout: (LayoutFrame 5 0 5 0 -5 1 27 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10733 |
model: updChanges |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10734 |
translateLabel: true |
4398 | 10735 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10736 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10737 |
label: 'Log doIts in Changefile' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10738 |
name: 'CheckBox2' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10739 |
layout: (LayoutFrame 5 0 30 0 -5 1 52 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10740 |
model: logDoits |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10741 |
translateLabel: true |
4398 | 10742 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10743 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10744 |
label: 'Changefile Name:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10745 |
name: 'ChangefileNameLabel' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10746 |
layout: (LayoutFrame 5 0 55 0 200 0 77 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10747 |
translateLabel: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10748 |
adjust: right |
4398 | 10749 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10750 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10751 |
name: 'ChangeFileNameEntryField' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10752 |
layout: (LayoutFrame 200 0 55 0 -5 1 77 0) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10753 |
model: changeFileName |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10754 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10755 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10756 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10757 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10758 |
acceptOnPointerLeave: true |
4398 | 10759 |
) |
10760 |
) |
|
10761 |
||
10762 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10763 |
extent: (Point 551 120) |
4310 | 10764 |
) |
10765 |
) |
|
10766 |
||
10767 |
) |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10768 |
extent: (Point 551 250) |
4286 | 10769 |
) |
10770 |
) |
|
10771 |
||
10772 |
) |
|
10773 |
) |
|
10774 |
) |
|
10775 |
||
10776 |
) |
|
10777 |
) |
|
10778 |
! ! |
|
10779 |
||
10780 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'! |
|
10781 |
||
5030 | 10782 |
basicSaveSettings |
4574 | 10783 |
|
10784 |
ObjectMemory infoPrinting:self vmInfo value. |
|
10785 |
ObjectMemory debugPrinting:self vmErrors value. |
|
10786 |
Object infoPrinting:self classInfos value. |
|
10787 |
DeviceWorkstation errorPrinting:self displayErrors value. |
|
10788 |
ObjectMemory nameForChanges:self changeFileName value. |
|
10789 |
Smalltalk logDoits:self logDoits value. |
|
10790 |
Class updateChanges:self updChanges value. |
|
10791 |
! |
|
10792 |
||
5101 | 10793 |
helpFilename |
10794 |
^ 'Launcher/messageSettings.html' |
|
4286 | 10795 |
! |
10796 |
||
5030 | 10797 |
readSettings |
4286 | 10798 |
self vmInfo value:ObjectMemory infoPrinting. |
10799 |
self vmErrors value:ObjectMemory debugPrinting. |
|
10800 |
self classInfos value:Object infoPrinting. |
|
10801 |
self displayErrors value:DeviceWorkstation errorPrinting. |
|
4398 | 10802 |
self changeFileName value:ObjectMemory nameForChanges. |
10803 |
self logDoits value:Smalltalk logDoits. |
|
10804 |
self updChanges value:Class updatingChanges. |
|
4574 | 10805 |
self modifiedChannel value:false |
4286 | 10806 |
! ! |
10807 |
||
10808 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'! |
|
10809 |
||
5030 | 10810 |
changeFileName |
4398 | 10811 |
|
10812 |
changeFileName isNil ifTrue:[ |
|
10813 |
changeFileName := ObjectMemory nameForChanges asValue. |
|
5041 | 10814 |
changeFileName onChangeSend:#updateModifiedChannel to:self |
4398 | 10815 |
]. |
10816 |
^ changeFileName. |
|
10817 |
! |
|
10818 |
||
5030 | 10819 |
classInfos |
4286 | 10820 |
|
10821 |
classInfos isNil ifTrue:[ |
|
10822 |
classInfos := Object infoPrinting asValue. |
|
5041 | 10823 |
classInfos onChangeSend:#updateModifiedChannel to:self |
4286 | 10824 |
]. |
10825 |
^ classInfos. |
|
10826 |
! |
|
10827 |
||
5030 | 10828 |
displayErrors |
4286 | 10829 |
|
10830 |
displayErrors isNil ifTrue:[ |
|
10831 |
displayErrors := DeviceWorkstation errorPrinting asValue. |
|
5041 | 10832 |
displayErrors onChangeSend:#updateModifiedChannel to:self |
4286 | 10833 |
]. |
10834 |
^ displayErrors. |
|
10835 |
! |
|
10836 |
||
5030 | 10837 |
logDoits |
4398 | 10838 |
|
10839 |
logDoits isNil ifTrue:[ |
|
10840 |
logDoits := Smalltalk logDoits asValue. |
|
5041 | 10841 |
logDoits onChangeSend:#updateModifiedChannel to:self |
4398 | 10842 |
]. |
10843 |
^ logDoits. |
|
10844 |
! |
|
10845 |
||
5030 | 10846 |
updChanges |
10847 |
||
10848 |
updChanges isNil ifTrue:[ |
|
10849 |
updChanges := Class updatingChanges asValue. |
|
5041 | 10850 |
updChanges onChangeSend:#updateModifiedChannel to:self |
5030 | 10851 |
]. |
10852 |
^ updChanges. |
|
10853 |
! |
|
10854 |
||
10855 |
vmErrors |
|
5029 | 10856 |
|
10857 |
vmErrors isNil ifTrue:[ |
|
10858 |
vmErrors := ObjectMemory debugPrinting asValue. |
|
5041 | 10859 |
vmErrors onChangeSend:#updateModifiedChannel to:self |
5029 | 10860 |
]. |
10861 |
^ vmErrors. |
|
10862 |
! |
|
10863 |
||
5030 | 10864 |
vmInfo |
4286 | 10865 |
|
10866 |
vmInfo isNil ifTrue:[ |
|
10867 |
vmInfo := ObjectMemory infoPrinting asValue. |
|
5041 | 10868 |
vmInfo onChangeSend:#updateModifiedChannel to:self |
4286 | 10869 |
]. |
10870 |
^ vmInfo. |
|
10871 |
! ! |
|
10872 |
||
10873 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'! |
|
10874 |
||
5030 | 10875 |
initialize |
4286 | 10876 |
|
4387 | 10877 |
resources := self class classResources. |
4286 | 10878 |
super initialize |
10879 |
! ! |
|
10880 |
||
10881 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'! |
|
10882 |
||
5030 | 10883 |
hasUnsavedChanges |
5918 | 10884 |
self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true]. |
10885 |
self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true]. |
|
10886 |
self classInfos value ~= Object infoPrinting ifTrue:[^ true]. |
|
10887 |
Smalltalk logDoits ~= self logDoits value ifTrue:[^ true]. |
|
10888 |
Class updatingChanges ~= self updChanges value ifTrue:[^ true]. |
|
10889 |
ObjectMemory nameForChanges ~= self changeFileName value ifTrue:[^ true]. |
|
10890 |
self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true]. |
|
10891 |
^ false |
|
4286 | 10892 |
! ! |
10893 |
||
4312 | 10894 |
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'! |
10895 |
||
5030 | 10896 |
defaultIcon |
4312 | 10897 |
"This resource specification was automatically generated |
10898 |
by the ImageEditor of ST/X." |
|
10899 |
||
10900 |
"Do not manually edit this!! If it is corrupted, |
|
10901 |
the ImageEditor may not be able to read the specification." |
|
10902 |
||
10903 |
" |
|
10904 |
self defaultIcon inspect |
|
10905 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
10906 |
Icon flushCachedIcons |
|
10907 |
" |
|
10908 |
||
10909 |
<resource: #image> |
|
10910 |
||
10911 |
^Icon |
|
10912 |
constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon' |
|
4948 | 10913 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
10914 |
******************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@* @@@F(QD@@@@@B*@@@@B((QD@@@@J(@@@@@@JLQ@@@@* @B$@@@)CD@@@B*@@ |
|
10915 |
IC$J*SPP@@@J(@BH@4MCQADP@@* AR"HACQAFQD@B*@@H""H"HEG$Q@J(@@@H"H("HP9$@* @@@@@"H""HI@B*@@@@@@@@H""H@J(@@@@@@@@@H" @* @@@@ |
|
10916 |
@@@@@@H0B*@@@@@@@@@@@@@J(@@@@@@@@@@@@@* @@@@@@@@@@@@B*****************************(b') ; colorMapFromArray:#[0 0 0 160 160 160 240 240 240 224 224 224 48 48 48 128 128 128 208 208 208 112 112 112 192 192 192 96 96 96 176 176 176]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself] |
|
4312 | 10917 |
! ! |
10918 |
||
4286 | 10919 |
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'! |
10920 |
||
5030 | 10921 |
windowSpec |
4286 | 10922 |
"This resource specification was automatically generated |
10923 |
by the UIPainter of ST/X." |
|
10924 |
||
10925 |
"Do not manually edit this!! If it is corrupted, |
|
10926 |
the UIPainter may not be able to read the specification." |
|
10927 |
||
10928 |
" |
|
4310 | 10929 |
UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec |
10930 |
AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec |
|
10931 |
AbstractSettingsApplication::ToolsSettingsAppl open |
|
4286 | 10932 |
" |
10933 |
||
10934 |
<resource: #canvas> |
|
10935 |
||
10936 |
^ |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10937 |
#(FullSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10938 |
name: windowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10939 |
window: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10940 |
(WindowSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10941 |
label: 'Tool Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10942 |
name: 'Tool Settings' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10943 |
min: (Point 10 10) |
5576 | 10944 |
bounds: (Rectangle 0 0 607 786) |
4286 | 10945 |
) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10946 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10947 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10948 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10949 |
(VerticalPanelViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10950 |
name: 'VerticalPanel2' |
5576 | 10951 |
layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0) |
10952 |
horizontalLayout: fit |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10953 |
verticalLayout: top |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10954 |
horizontalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10955 |
verticalSpace: 3 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10956 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10957 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10958 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10959 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10960 |
label: 'Use the New System Browser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10961 |
name: 'NewSystemBrowser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10962 |
model: useNewSystemBrowser |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10963 |
translateLabel: true |
6021 | 10964 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10965 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10966 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10967 |
label: 'Use the New File Browser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10968 |
name: 'NewFileBrowser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10969 |
model: useNewFileBrowser |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10970 |
translateLabel: true |
6021 | 10971 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10972 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10973 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10974 |
label: 'Use the New VersionDiff Browser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10975 |
name: 'VersionDiffBrowser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10976 |
model: useNewVersionDiffBrowser |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10977 |
translateLabel: true |
6021 | 10978 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10979 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10980 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10981 |
label: 'Use the New FileTree File Dialog' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10982 |
name: 'UseNewFileDialogCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10983 |
model: useNewFileDialog |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10984 |
translateLabel: true |
6021 | 10985 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10986 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10987 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10988 |
label: 'Use the New Settings Dialog' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10989 |
name: 'UseNewSettinsApplicationCheckBox' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10990 |
model: useNewSettingsApplication |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10991 |
translateLabel: true |
6021 | 10992 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10993 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10994 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10995 |
label: 'Use the New Process Monitor' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10996 |
name: 'UseNewProcessMonitor' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10997 |
model: useProcessMonitorV2 |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
10998 |
translateLabel: true |
6021 | 10999 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11000 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11001 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11002 |
label: 'Use the New Changes Browser (not yet recommended)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11003 |
name: 'ChangesBrowser' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11004 |
model: useNewChangesBrowser |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11005 |
translateLabel: true |
6021 | 11006 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11007 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11008 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11009 |
label: 'Use Hierarchical Inspector (not yet recommended)' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11010 |
name: 'HierarchicalInspector' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11011 |
model: useNewInspector |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11012 |
translateLabel: true |
6021 | 11013 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11014 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11015 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11016 |
name: 'Box2' |
6021 | 11017 |
extent: (Point 607 20) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11018 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11019 |
(CheckBoxSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11020 |
label: 'Show Clock in Launcher' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11021 |
name: 'Clock' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11022 |
model: showClockInLauncher |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11023 |
translateLabel: true |
6021 | 11024 |
extent: (Point 607 25) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11025 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11026 |
(ViewSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11027 |
name: 'Box3' |
6021 | 11028 |
extent: (Point 607 19) |
5576 | 11029 |
) |
11030 |
(HorizontalPanelViewSpec |
|
11031 |
name: 'HorizontalPanel1' |
|
11032 |
horizontalLayout: leftSpaceFit |
|
11033 |
verticalLayout: center |
|
11034 |
horizontalSpace: 3 |
|
11035 |
verticalSpace: 3 |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11036 |
component: |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11037 |
(SpecCollection |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11038 |
collection: ( |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11039 |
(LabelSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11040 |
label: 'Transcripts Buffer Size:' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11041 |
name: 'Label1' |
5576 | 11042 |
translateLabel: true |
11043 |
resizeForLabel: true |
|
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11044 |
adjust: right |
6072 | 11045 |
extent: (Point 190 19) |
5149
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11046 |
) |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11047 |
(InputFieldSpec |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11048 |
name: 'Transcripts Buffer Size' |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11049 |
model: transcriptBufferSize |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11050 |
type: number |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11051 |
immediateAccept: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11052 |
acceptOnReturn: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11053 |
acceptOnTab: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11054 |
acceptOnLostFocus: true |
b36d1f1ee54e
Remove max windowsize constraint from windowSpecs.
Stefan Vogel <sv@exept.de>
parents:
5140
diff
changeset
|
11055 |
acceptOnPointerLeave: true |
6072 | 11056 |
extent: (Point 408 24) |
4310 | 11057 |
) |
11058 |
) |
|
11059 |
||
11060 |
) |
|
6021 | 11061 |
extent: (Point 607 35) |
4286 | 11062 |
) |
11063 |
) |
|
11064 |
||
11065 |
) |
|
11066 |
) |
|
11067 |
) |
|
11068 |
||
11069 |
) |
|
11070 |
) |
|
11071 |
! ! |
|
11072 |
||
11073 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'! |
|
11074 |
||
5030 | 11075 |
basicSaveSettings |
4286 | 11076 |
|
5627 | 11077 |
| showClock launcher reopenLauncher newSystemBrowserClass transcript| |
5594
06aba5d1bb6e
NewSystemBrowser -> Tools::NewSystemBrowser
Claus Gittinger <cg@exept.de>
parents:
5583
diff
changeset
|
11078 |
|
06aba5d1bb6e
NewSystemBrowser -> Tools::NewSystemBrowser
Claus Gittinger <cg@exept.de>
parents:
5583
diff
changeset
|
11079 |
newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser. |
4398 | 11080 |
|
11081 |
currentUserPrefs := UserPreferences current. |
|
4286 | 11082 |
currentUserPrefs useNewInspector:self useNewInspector value. |
11083 |
currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value. |
|
11084 |
currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value. |
|
4387 | 11085 |
currentUserPrefs useNewFileDialog:self useNewFileDialog value. |
4464
997576abcb7f
add ProcessMonitorV2 access from menu dependent on userPreferences
penk
parents:
4457
diff
changeset
|
11086 |
currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value. |
4387 | 11087 |
currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[ |
11088 |
currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value. |
|
11089 |
]. |
|
5083
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11090 |
|
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11091 |
currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[ |
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11092 |
currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value. |
5594
06aba5d1bb6e
NewSystemBrowser -> Tools::NewSystemBrowser
Claus Gittinger <cg@exept.de>
parents:
5583
diff
changeset
|
11093 |
(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[ |
06aba5d1bb6e
NewSystemBrowser -> Tools::NewSystemBrowser
Claus Gittinger <cg@exept.de>
parents:
5583
diff
changeset
|
11094 |
newSystemBrowserClass installInLauncher. |
5083
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11095 |
] ifFalse:[ |
5594
06aba5d1bb6e
NewSystemBrowser -> Tools::NewSystemBrowser
Claus Gittinger <cg@exept.de>
parents:
5583
diff
changeset
|
11096 |
newSystemBrowserClass removeFromLauncher. |
5083
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11097 |
]. |
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11098 |
reopenLauncher := true. |
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11099 |
]. |
7fdf1e8c8f03
reopen launcher when systemBrowser setting changes
Claus Gittinger <cg@exept.de>
parents:
5080
diff
changeset
|
11100 |
|
4286 | 11101 |
(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[ |
4387 | 11102 |
currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[ |
11103 |
currentUserPrefs useNewFileBrowser:self useNewFileBrowser value. |
|
11104 |
(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[ |
|
11105 |
FileBrowserV2 installInLauncher. |
|
11106 |
] ifFalse:[ |
|
4286 | 11107 |
FileBrowserV2 removeFromLauncher. |
4387 | 11108 |
]. |
11109 |
reopenLauncher := true. |
|
11110 |
] |
|
4286 | 11111 |
]. |
5627 | 11112 |
|
11113 |
transcript := Transcript current. |
|
11114 |
(transcript notNil and:[transcript isExternalStream not]) ifTrue:[ |
|
11115 |
launcher := transcript application. |
|
11116 |
]. |
|
11117 |
||
4286 | 11118 |
showClock := self showClockInLauncher value. |
11119 |
currentUserPrefs showClockInLauncher ~= showClock ifTrue:[ |
|
11120 |
currentUserPrefs showClockInLauncher:showClock. |
|
5627 | 11121 |
launcher notNil ifTrue:[ |
4286 | 11122 |
showClock ifTrue:[ |
11123 |
launcher startClock |
|
11124 |
] ifFalse:[ |
|
11125 |
launcher stopClock |
|
11126 |
] |
|
11127 |
] |
|
11128 |
]. |
|
11129 |
Inspector := currentUserPrefs inspectorClassSetting. |
|
5627 | 11130 |
|
11131 |
(transcript notNil and:[transcript isExternalStream not]) ifTrue:[ |
|
11132 |
transcript lineLimit:self transcriptBufferSize value. |
|
11133 |
]. |
|
11134 |
||
4387 | 11135 |
reopenLauncher ifTrue:[ |
5627 | 11136 |
launcher notNil ifTrue:[ |
4387 | 11137 |
launcher reopenLauncher. |
11138 |
] |
|
11139 |
]. |
|
4574 | 11140 |
! |
11141 |
||
5101 | 11142 |
helpFilename |
11143 |
^ 'Launcher/toolSettings.html' |
|
4574 | 11144 |
! |
11145 |
||
5030 | 11146 |
readSettings |
4574 | 11147 |
currentUserPrefs := UserPreferences current. |
11148 |
self showClockInLauncher value:currentUserPrefs showClockInLauncher. |
|
5627 | 11149 |
Transcript current isExternalStream ifFalse:[ |
11150 |
self transcriptBufferSize value:Transcript current lineLimit. |
|
11151 |
]. |
|
4574 | 11152 |
self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser. |
11153 |
self useNewFileBrowser value:currentUserPrefs useNewFileBrowser. |
|
11154 |
self useNewInspector value:currentUserPrefs useNewInspector. |
|
11155 |
self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser. |
|
5101 | 11156 |
self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser. |
4574 | 11157 |
self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2. |
11158 |
self useNewFileDialog value:currentUserPrefs useNewFileDialog. |
|
5101 | 11159 |
self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication. |
11160 |
||
4574 | 11161 |
self modifiedChannel value:false |
4286 | 11162 |
! ! |
11163 |
||
11164 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'! |
|
11165 |
||
5030 | 11166 |
showClockInLauncher |
5029 | 11167 |
|
11168 |
showClockInLauncher isNil ifTrue:[ |
|
11169 |
showClockInLauncher := currentUserPrefs showClockInLauncher asValue. |
|
5041 | 11170 |
showClockInLauncher onChangeSend:#updateModifiedChannel to:self |
5029 | 11171 |
]. |
11172 |
^ showClockInLauncher. |
|
11173 |
! |
|
11174 |
||
5030 | 11175 |
transcriptBufferSize |
5029 | 11176 |
|
11177 |
transcriptBufferSize isNil ifTrue:[ |
|
5627 | 11178 |
transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue. |
5041 | 11179 |
transcriptBufferSize onChangeSend:#updateModifiedChannel to:self |
5029 | 11180 |
]. |
11181 |
^ transcriptBufferSize. |
|
11182 |
! |
|
11183 |
||
5030 | 11184 |
useNewChangesBrowser |
5029 | 11185 |
|
11186 |
useNewChangesBrowser isNil ifTrue:[ |
|
11187 |
useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue. |
|
5041 | 11188 |
useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self |
5029 | 11189 |
]. |
11190 |
^ useNewChangesBrowser. |
|
11191 |
! |
|
11192 |
||
5030 | 11193 |
useNewFileBrowser |
5029 | 11194 |
|
11195 |
useNewFileBrowser isNil ifTrue:[ |
|
11196 |
useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue. |
|
5041 | 11197 |
useNewFileBrowser onChangeSend:#updateModifiedChannel to:self |
5029 | 11198 |
]. |
11199 |
^ useNewFileBrowser. |
|
11200 |
! |
|
11201 |
||
5030 | 11202 |
useNewFileDialog |
5029 | 11203 |
|
11204 |
useNewFileDialog isNil ifTrue:[ |
|
11205 |
useNewFileDialog := true asValue. |
|
5041 | 11206 |
useNewFileDialog onChangeSend:#updateModifiedChannel to:self |
5029 | 11207 |
]. |
11208 |
^ useNewFileDialog. |
|
11209 |
! |
|
11210 |
||
5030 | 11211 |
useNewInspector |
5029 | 11212 |
|
11213 |
useNewInspector isNil ifTrue:[ |
|
11214 |
useNewInspector := currentUserPrefs useNewInspector asValue. |
|
5041 | 11215 |
useNewInspector onChangeSend:#updateModifiedChannel to:self |
5029 | 11216 |
]. |
11217 |
^ useNewInspector. |
|
11218 |
! |
|
11219 |
||
5030 | 11220 |
useNewSettingsApplication |
5029 | 11221 |
|
11222 |
useNewSettingsApplication isNil ifTrue:[ |
|
11223 |
useNewSettingsApplication := true asValue. |
|
5041 | 11224 |
useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self |
5029 | 11225 |
]. |
11226 |
^ useNewSettingsApplication. |
|
11227 |
! |
|
11228 |
||
5030 | 11229 |
useNewSystemBrowser |
5029 | 11230 |
|
11231 |
useNewSystemBrowser isNil ifTrue:[ |
|
11232 |
useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue. |
|
5041 | 11233 |
useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self |
5029 | 11234 |
]. |
11235 |
^ useNewSystemBrowser. |
|
11236 |
! |
|
11237 |
||
5030 | 11238 |
useNewVersionDiffBrowser |
5029 | 11239 |
|
11240 |
useNewVersionDiffBrowser isNil ifTrue:[ |
|
11241 |
useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue. |
|
5041 | 11242 |
useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self |
5029 | 11243 |
]. |
11244 |
^ useNewVersionDiffBrowser. |
|
11245 |
! |
|
11246 |
||
5030 | 11247 |
useProcessMonitorV2 |
5029 | 11248 |
|
11249 |
useProcessMonitorV2 isNil ifTrue:[ |
|
11250 |
useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue. |
|
5041 | 11251 |
useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self |
5029 | 11252 |
]. |
11253 |
^ useProcessMonitorV2. |
|
4286 | 11254 |
! ! |
11255 |
||
11256 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'! |
|
11257 |
||
5030 | 11258 |
hasUnsavedChanges |
5627 | 11259 |
(self useNewInspector value ~= currentUserPrefs useNewInspector) ifTrue:[^ true]. |
11260 |
(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) ifTrue:[^ true]. |
|
11261 |
(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) ifTrue:[^ true]. |
|
11262 |
(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) ifTrue:[^ true]. |
|
11263 |
(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) ifTrue:[^ true]. |
|
11264 |
(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) ifTrue:[^ true]. |
|
11265 |
(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) ifTrue:[^ true]. |
|
11266 |
(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) ifTrue:[^ true]. |
|
11267 |
(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) ifTrue:[^ true]. |
|
11268 |
Transcript current isExternalStream ifFalse:[ |
|
11269 |
(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true]. |
|
11270 |
]. |
|
11271 |
^ false. |
|
4286 | 11272 |
! ! |
11273 |
||
4226 | 11274 |
!AbstractSettingsApplication class methodsFor:'documentation'! |
11275 |
||
11276 |
version |
|
6086 | 11277 |
^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.183 2004-10-15 17:58:42 cg Exp $' |
11278 |
! ! |