|
4226
|
1 |
"{ Package: 'stx:libtool' }"
|
|
|
2 |
|
|
|
3 |
ApplicationModel subclass:#AbstractSettingsApplication
|
|
4405
|
4 |
instanceVariableNames:'settingsString'
|
|
4226
|
5 |
classVariableNames:''
|
|
|
6 |
poolDictionaries:''
|
|
|
7 |
category:'Interface-Smalltalk'
|
|
|
8 |
!
|
|
|
9 |
|
|
4387
|
10 |
AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
|
|
|
11 |
instanceVariableNames:'modifiedChannel allowQualifiedNames warnDollar warnOldStyle
|
|
4286
|
12 |
fullDebugSupport warnCommonMistakes warnUnderscore keepSource
|
|
4387
|
13 |
constantFolding warnCompatibility constantFoldingOptions warnings
|
|
|
14 |
warnSTX allowDollar allowReservedWordsAsSelectors immutableArrays
|
|
|
15 |
allowOldStyleAssignment allowUnderscore allowDolphinExtensions
|
|
|
16 |
warnUnusedVars allowSqueakExtensions justInTimeCompilation
|
|
|
17 |
canLoadBinaries constantFoldingSelection enableUnderscore
|
|
4286
|
18 |
enableDollar'
|
|
|
19 |
classVariableNames:''
|
|
|
20 |
poolDictionaries:''
|
|
|
21 |
privateIn:AbstractSettingsApplication
|
|
|
22 |
!
|
|
|
23 |
|
|
4398
|
24 |
AbstractSettingsApplication subclass:#DebuggerSettingsAppl
|
|
|
25 |
instanceVariableNames:'modifiedChannel showErrorNotifier showVerboseStack
|
|
|
26 |
allowSendMailFromDebugger currentUserPrefs'
|
|
|
27 |
classVariableNames:''
|
|
|
28 |
poolDictionaries:''
|
|
|
29 |
privateIn:AbstractSettingsApplication
|
|
|
30 |
!
|
|
|
31 |
|
|
4286
|
32 |
AbstractSettingsApplication subclass:#DisplaySettingsAppl
|
|
|
33 |
instanceVariableNames:'modifiedChannel isColorMonitor useFixGrayPaletteLabel
|
|
|
34 |
useFixPalette sizeY clipEncodingListSelection sizeX monitorList
|
|
|
35 |
ditherList clipEncodingList ditherListSelection deepIcons
|
|
|
36 |
monitorSelection useFixPaletteLabel visualIsPseudoColor
|
|
|
37 |
ditherSymsNotNil useFixGrayPalette sizeInfos screen ditherStyles
|
|
|
38 |
ditherSyms screenDepthVisualLabelHolder'
|
|
|
39 |
classVariableNames:''
|
|
|
40 |
poolDictionaries:''
|
|
|
41 |
privateIn:AbstractSettingsApplication
|
|
|
42 |
!
|
|
|
43 |
|
|
|
44 |
AbstractSettingsApplication subclass:#EditSettingsAppl
|
|
|
45 |
instanceVariableNames:'modifiedChannel st80EditingMode tabsIs4 st80DoubleClickSelectMode
|
|
|
46 |
searchDialogIsModal startTextDragWithControl'
|
|
|
47 |
classVariableNames:''
|
|
|
48 |
poolDictionaries:''
|
|
|
49 |
privateIn:AbstractSettingsApplication
|
|
|
50 |
!
|
|
|
51 |
|
|
|
52 |
AbstractSettingsApplication subclass:#FontSettingsAppl
|
|
|
53 |
instanceVariableNames:'modifiedChannel filter allOfThem labelDef buttonDef listDef
|
|
|
54 |
menuDef textDef allFontLabelHolder buttonsFontLabelHolder
|
|
|
55 |
textFontLabelHolder labelsFontLabelHolder listsFontLabelHolder
|
|
|
56 |
menusFontLabelHolder allLabel buttonsLabel textLabel labelLabel
|
|
|
57 |
listsLabel menuLabel'
|
|
|
58 |
classVariableNames:''
|
|
|
59 |
poolDictionaries:''
|
|
|
60 |
privateIn:AbstractSettingsApplication
|
|
|
61 |
!
|
|
|
62 |
|
|
4387
|
63 |
AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
|
|
|
64 |
instanceVariableNames:'modifiedChannel st80EditingMode tabsIs4 st80DoubleClickSelectMode
|
|
|
65 |
searchDialogIsModal startTextDragWithControl catchClassRedefs
|
|
|
66 |
fullHistoryUpdate historyLines keepSourceSelection keepSource
|
|
|
67 |
hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
|
|
|
68 |
classVariableNames:''
|
|
|
69 |
poolDictionaries:''
|
|
|
70 |
privateIn:AbstractSettingsApplication
|
|
|
71 |
!
|
|
|
72 |
|
|
4310
|
73 |
AbstractSettingsApplication subclass:#HTTPServerSettingsAppl
|
|
|
74 |
instanceVariableNames:'modifiedChannel httpServerFileRoot httpServerLogFile swikiRoot
|
|
|
75 |
swikiRootEnabled httpServerRunning httpServerPort allowEmbedded
|
|
|
76 |
soapEnabled swikiEnabled hasHTTPServer httpServerHomeURL'
|
|
|
77 |
classVariableNames:''
|
|
|
78 |
poolDictionaries:''
|
|
|
79 |
privateIn:AbstractSettingsApplication
|
|
|
80 |
!
|
|
|
81 |
|
|
4286
|
82 |
AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
|
|
|
83 |
instanceVariableNames:'modifiedChannel selectedRawKey macroTextHolder
|
|
|
84 |
selectedFunctionKey labelTextHolder functionKeyList rawKeyList
|
|
|
85 |
mappings'
|
|
|
86 |
classVariableNames:''
|
|
|
87 |
poolDictionaries:''
|
|
|
88 |
privateIn:AbstractSettingsApplication
|
|
|
89 |
!
|
|
|
90 |
|
|
|
91 |
AbstractSettingsApplication subclass:#LanguageSettingsAppl
|
|
|
92 |
instanceVariableNames:'modifiedChannel languageHolder languageList listOfLanguages
|
|
|
93 |
translatedLanguages noticeLabelHolder currentLanguageChannel
|
|
|
94 |
currentLanguageLabel'
|
|
|
95 |
classVariableNames:''
|
|
|
96 |
poolDictionaries:''
|
|
|
97 |
privateIn:AbstractSettingsApplication
|
|
|
98 |
!
|
|
|
99 |
|
|
|
100 |
AbstractSettingsApplication subclass:#MemorySettingsAppl
|
|
|
101 |
instanceVariableNames:'modifiedChannel newSpaceSize maxOldSpace fastMoreLimit
|
|
|
102 |
warningLabelHolder codeTrigger codeLimit oldIncr compressLimit
|
|
|
103 |
igcFreeLimit igcLimit igcFreeAmount stackLimit
|
|
|
104 |
supportsJustInTimeCompilation'
|
|
|
105 |
classVariableNames:''
|
|
|
106 |
poolDictionaries:''
|
|
|
107 |
privateIn:AbstractSettingsApplication
|
|
|
108 |
!
|
|
|
109 |
|
|
4310
|
110 |
AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
|
|
|
111 |
instanceVariableNames:'modifiedChannel remoteBrowsingEnabled windowMigrationEnabled
|
|
|
112 |
windowMigrationPassword windowMigrationAuthenticate
|
|
|
113 |
enablePasswordCheck'
|
|
|
114 |
classVariableNames:''
|
|
|
115 |
poolDictionaries:''
|
|
|
116 |
privateIn:AbstractSettingsApplication
|
|
|
117 |
!
|
|
|
118 |
|
|
4398
|
119 |
AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
|
|
4286
|
120 |
instanceVariableNames:'modifiedChannel returnFocus focusFollowsMouse beepEnabled
|
|
4398
|
121 |
takeFocus activateOnClick shadows opaqueVariablePanelResize
|
|
|
122 |
formatHostNameinWindowLabels opaqueTableColumnResize
|
|
|
123 |
hostNameInLabelHolder showAccelerators currentUserPrefs
|
|
|
124 |
newWindowLabelFormat formatHostNameWindowLabel'
|
|
4286
|
125 |
classVariableNames:''
|
|
|
126 |
poolDictionaries:''
|
|
|
127 |
privateIn:AbstractSettingsApplication
|
|
|
128 |
!
|
|
|
129 |
|
|
4310
|
130 |
AbstractSettingsApplication subclass:#OsiSettingsAppl
|
|
|
131 |
instanceVariableNames:'modifiedChannel osiACSEConnectionLogging osiROSEErrorLogging
|
|
|
132 |
osiCMISEErrorLogging osiACSEErrorLogging osiROSEPresent
|
|
|
133 |
osiCMISEPresent osiCMISEMessageLogging osiACSEDataLogging
|
|
|
134 |
osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
|
|
|
135 |
classVariableNames:''
|
|
|
136 |
poolDictionaries:''
|
|
|
137 |
privateIn:AbstractSettingsApplication
|
|
|
138 |
!
|
|
|
139 |
|
|
4286
|
140 |
AbstractSettingsApplication subclass:#PrinterSettingsAppl
|
|
|
141 |
instanceVariableNames:'modifiedChannel selectedUnit supportsColor topMargin rightMargin
|
|
|
142 |
bottomMargin landscape pageFormatList pageFormat unitList
|
|
|
143 |
leftMargin possiblePrinters printerType printerTypeSelection
|
|
4371
|
144 |
printCommandList commandList printCommand enableFormat
|
|
|
145 |
enablelandscape enableMargins enableColorBox'
|
|
4286
|
146 |
classVariableNames:''
|
|
|
147 |
poolDictionaries:''
|
|
|
148 |
privateIn:AbstractSettingsApplication
|
|
|
149 |
!
|
|
|
150 |
|
|
4398
|
151 |
AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
|
|
|
152 |
instanceVariableNames:'modifiedChannel dynamicPrios preemptive'
|
|
|
153 |
classVariableNames:''
|
|
|
154 |
poolDictionaries:''
|
|
|
155 |
privateIn:AbstractSettingsApplication
|
|
|
156 |
!
|
|
|
157 |
|
|
4310
|
158 |
AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
|
|
|
159 |
instanceVariableNames:'modifiedChannel rDoitLogging rDoitsEnabled rDoitErrorLogging
|
|
|
160 |
hasRDoitServer rDoitErrorDebugging rDoitServerPort'
|
|
|
161 |
classVariableNames:''
|
|
|
162 |
poolDictionaries:''
|
|
|
163 |
privateIn:AbstractSettingsApplication
|
|
|
164 |
!
|
|
|
165 |
|
|
4387
|
166 |
AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
|
|
|
167 |
instanceVariableNames:'modifiedChannel cc ccOptions stcIncludes linkCommand stc linkArgs
|
|
|
168 |
canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
|
|
|
169 |
stcCompilationSelection stcCompilationList'
|
|
|
170 |
classVariableNames:''
|
|
|
171 |
poolDictionaries:''
|
|
|
172 |
privateIn:AbstractSettingsApplication
|
|
|
173 |
!
|
|
|
174 |
|
|
4398
|
175 |
AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
|
|
|
176 |
instanceVariableNames:'modifiedChannel spaceAfterKeywordSelector
|
|
|
177 |
emptyLineAfterTemporaries tabIndent autoFormat cStyleBlocks
|
|
|
178 |
editorText maxLengthForSingleLineBlocks blockArgumentsOnNewLine
|
|
|
179 |
spaceAfterReturnToken spaceAroundTemporaries currentUserPrefs
|
|
|
180 |
oldUserPreferences reformatLocked'
|
|
|
181 |
classVariableNames:''
|
|
|
182 |
poolDictionaries:''
|
|
|
183 |
privateIn:AbstractSettingsApplication
|
|
|
184 |
!
|
|
|
185 |
|
|
|
186 |
AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
|
|
|
187 |
instanceVariableNames:'modifiedChannel sourceCacheDir useManager condenseSourceCache
|
|
|
188 |
syntaxColorConfiguration setupSourceCodeManager
|
|
|
189 |
checkClassesWhenCheckingIn formattingConfiguration
|
|
|
190 |
flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
|
|
4405
|
191 |
manager repository currentUserPrefs listOfModules
|
|
|
192 |
cvsRootPrototypeList addPerModuleRoot removeEnabled
|
|
|
193 |
perModuleRootModule acceptChannel removePerModuleRoot
|
|
|
194 |
perModuleRoot cvsRootHolder selectedPerModuleRoot
|
|
|
195 |
cvsBinDirectoryHolder rootsPerModule'
|
|
4286
|
196 |
classVariableNames:''
|
|
|
197 |
poolDictionaries:''
|
|
|
198 |
privateIn:AbstractSettingsApplication
|
|
|
199 |
!
|
|
|
200 |
|
|
|
201 |
AbstractSettingsApplication subclass:#StyleSettingsAppl
|
|
|
202 |
instanceVariableNames:'modifiedChannel showStandardStylesOnly styleList selectedStyle
|
|
|
203 |
styleDirectoryContents infoLabelHolder noticeLabelHolder'
|
|
|
204 |
classVariableNames:''
|
|
|
205 |
poolDictionaries:''
|
|
|
206 |
privateIn:AbstractSettingsApplication
|
|
|
207 |
!
|
|
|
208 |
|
|
4398
|
209 |
AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
|
|
|
210 |
instanceVariableNames:'modifiedChannel coloredText syntaxColor syntaxColors resetList
|
|
|
211 |
resetListSelection fullSelectorCheck syntaxColoring
|
|
|
212 |
currentUserPrefs oldUserPreferences syntaxFontSelector
|
|
|
213 |
syntaxFonts syntaxElementList syntaxElementSelection
|
|
|
214 |
syntaxEmphasisList syntaxEmphasisSelection emphasisDictionary
|
|
|
215 |
resetListDictionary'
|
|
|
216 |
classVariableNames:''
|
|
|
217 |
poolDictionaries:''
|
|
|
218 |
privateIn:AbstractSettingsApplication
|
|
|
219 |
!
|
|
|
220 |
|
|
4286
|
221 |
AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
|
|
4398
|
222 |
instanceVariableNames:'modifiedChannel classInfos vmInfo vmErrors displayErrors logDoits
|
|
|
223 |
updChanges changeFileName'
|
|
4286
|
224 |
classVariableNames:''
|
|
|
225 |
poolDictionaries:''
|
|
|
226 |
privateIn:AbstractSettingsApplication
|
|
|
227 |
!
|
|
|
228 |
|
|
|
229 |
AbstractSettingsApplication subclass:#ToolsSettingsAppl
|
|
|
230 |
instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
|
|
|
231 |
showClockInLauncher useNewChangesBrowser useNewFileBrowser
|
|
4387
|
232 |
useNewSystemBrowser currentUserPrefs modifiedChannel
|
|
|
233 |
useNewFileDialog useNewSettingsApplication'
|
|
4286
|
234 |
classVariableNames:''
|
|
|
235 |
poolDictionaries:''
|
|
|
236 |
privateIn:AbstractSettingsApplication
|
|
|
237 |
!
|
|
|
238 |
|
|
4405
|
239 |
!AbstractSettingsApplication class methodsFor:'documentation'!
|
|
|
240 |
|
|
|
241 |
windowSpec
|
|
|
242 |
|
|
|
243 |
self subclassResponsibility
|
|
|
244 |
! !
|
|
4226
|
245 |
|
|
4292
|
246 |
!AbstractSettingsApplication class methodsFor:'defaults'!
|
|
|
247 |
|
|
|
248 |
classResources
|
|
|
249 |
|
|
|
250 |
^ AbstractLauncherApplication classResources
|
|
|
251 |
! !
|
|
|
252 |
|
|
4405
|
253 |
!AbstractSettingsApplication methodsFor:'actions'!
|
|
|
254 |
|
|
|
255 |
saveRequest
|
|
|
256 |
| result|
|
|
|
257 |
|
|
|
258 |
(self hasUnsavedChanges) ifTrue:[
|
|
|
259 |
result := self confirmWithCancel:(resources string:'Save changed ', settingsString, ' ?').
|
|
|
260 |
result isNil ifTrue:[ ^ false].
|
|
|
261 |
result ifTrue:[
|
|
|
262 |
self saveSettings.
|
|
|
263 |
] ifFalse:[
|
|
|
264 |
self loadRequest.
|
|
|
265 |
]
|
|
|
266 |
].
|
|
|
267 |
^ true
|
|
|
268 |
! !
|
|
|
269 |
|
|
4324
|
270 |
!AbstractSettingsApplication methodsFor:'protocol'!
|
|
|
271 |
|
|
4405
|
272 |
hasUnsavedChanges
|
|
|
273 |
|
|
|
274 |
^ self subclassResponsibility
|
|
|
275 |
!
|
|
|
276 |
|
|
4324
|
277 |
help
|
|
|
278 |
|
|
|
279 |
self subclassResponsibility.
|
|
|
280 |
"/ self warn:'no help available here'.
|
|
|
281 |
"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
|
|
|
282 |
!
|
|
4226
|
283 |
|
|
4405
|
284 |
initialize
|
|
|
285 |
|
|
|
286 |
settingsString := (UISpecification from:(self class windowSpec)) window label.
|
|
|
287 |
super initialize
|
|
|
288 |
!
|
|
|
289 |
|
|
4240
|
290 |
loadRequest
|
|
|
291 |
|
|
4324
|
292 |
self subclassResponsibility.
|
|
|
293 |
"/ self modifiedChannel value:false.
|
|
4240
|
294 |
!
|
|
|
295 |
|
|
4405
|
296 |
saveSettings
|
|
4226
|
297 |
|
|
4324
|
298 |
self subclassResponsibility.
|
|
4226
|
299 |
! !
|
|
|
300 |
|
|
4387
|
301 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
|
|
4286
|
302 |
|
|
|
303 |
constantFoldingOptions
|
|
|
304 |
|
|
|
305 |
^ #( nil #level1 #level2 #full )
|
|
|
306 |
!
|
|
|
307 |
|
|
|
308 |
constantFoldingStrings
|
|
|
309 |
|
|
|
310 |
^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
|
|
4387
|
311 |
! !
|
|
|
312 |
|
|
|
313 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
|
|
4312
|
314 |
|
|
|
315 |
defaultIcon
|
|
|
316 |
"This resource specification was automatically generated
|
|
|
317 |
by the ImageEditor of ST/X."
|
|
|
318 |
|
|
|
319 |
"Do not manually edit this!! If it is corrupted,
|
|
|
320 |
the ImageEditor may not be able to read the specification."
|
|
|
321 |
|
|
|
322 |
"
|
|
|
323 |
self defaultIcon inspect
|
|
|
324 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
325 |
Icon flushCachedIcons
|
|
|
326 |
"
|
|
|
327 |
|
|
|
328 |
<resource: #image>
|
|
|
329 |
|
|
|
330 |
^Icon
|
|
|
331 |
constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
|
|
|
332 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
333 |
@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
|
|
|
334 |
@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
|
|
|
335 |
@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PD@@PD@@@H@@@D@@@@@@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@@DA@P@A@P@A@P@@@ @@@P@@
|
|
|
336 |
@@@A@P@A@PDA@PD@@PD@@@H@@@DA@PDA@PD@@PDA@PDA@@DA@@@B@@@A@@@@@@DA@@DA@PDA@P@A@P@@@ @@@PDA@PDA@P@A@PD@@PD@@PD@@@H@@@D@@@@@
|
|
|
337 |
@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
338 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; 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]
|
|
|
339 |
! !
|
|
|
340 |
|
|
4387
|
341 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
|
|
4286
|
342 |
|
|
|
343 |
windowSpec
|
|
|
344 |
"This resource specification was automatically generated
|
|
|
345 |
by the UIPainter of ST/X."
|
|
|
346 |
|
|
|
347 |
"Do not manually edit this!! If it is corrupted,
|
|
|
348 |
the UIPainter may not be able to read the specification."
|
|
|
349 |
|
|
|
350 |
"
|
|
4387
|
351 |
UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
|
|
|
352 |
AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
|
|
|
353 |
AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
|
|
4286
|
354 |
"
|
|
|
355 |
|
|
|
356 |
<resource: #canvas>
|
|
|
357 |
|
|
|
358 |
^
|
|
|
359 |
#(#FullSpec
|
|
|
360 |
#name: #windowSpec
|
|
|
361 |
#window:
|
|
|
362 |
#(#WindowSpec
|
|
4405
|
363 |
#label: 'Byte Code Compiler Settings'
|
|
|
364 |
#name: 'Byte Code Compiler Settings'
|
|
4286
|
365 |
#min: #(#Point 10 10)
|
|
|
366 |
#max: #(#Point 1024 768)
|
|
4310
|
367 |
#bounds: #(#Rectangle 16 42 616 556)
|
|
4286
|
368 |
)
|
|
|
369 |
#component:
|
|
|
370 |
#(#SpecCollection
|
|
|
371 |
#collection: #(
|
|
4387
|
372 |
#(#VerticalPanelViewSpec
|
|
|
373 |
#name: 'VerticalPanel1'
|
|
|
374 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
375 |
#horizontalLayout: #fit
|
|
|
376 |
#verticalLayout: #center
|
|
|
377 |
#horizontalSpace: 3
|
|
|
378 |
#verticalSpace: 3
|
|
|
379 |
#component:
|
|
|
380 |
#(#SpecCollection
|
|
|
381 |
#collection: #(
|
|
|
382 |
#(#CheckBoxSpec
|
|
|
383 |
#label: 'Just in Time Compilation to Machine Code'
|
|
|
384 |
#name: 'JustInTimeCompilation'
|
|
|
385 |
#model: #justInTimeCompilation
|
|
|
386 |
#translateLabel: true
|
|
|
387 |
#extent: #(#Point 600 25)
|
|
|
388 |
)
|
|
|
389 |
#(#DividerSpec
|
|
|
390 |
#name: 'Separator3'
|
|
|
391 |
#extent: #(#Point 600 3)
|
|
|
392 |
)
|
|
|
393 |
#(#CheckBoxSpec
|
|
|
394 |
#label: 'Allow Underscore in Identifiers'
|
|
|
395 |
#name: 'AllowUnderscoreInIdentifiers'
|
|
|
396 |
#model: #allowUnderscore
|
|
|
397 |
#translateLabel: true
|
|
|
398 |
#extent: #(#Point 600 22)
|
|
|
399 |
)
|
|
|
400 |
#(#CheckBoxSpec
|
|
|
401 |
#label: 'Allow Dollar in Identifiers'
|
|
|
402 |
#name: 'AllowDollarInIdentifiers'
|
|
|
403 |
#model: #allowDollar
|
|
|
404 |
#translateLabel: true
|
|
|
405 |
#extent: #(#Point 600 22)
|
|
|
406 |
)
|
|
|
407 |
#(#CheckBoxSpec
|
|
|
408 |
#label: 'Allow VW3 QualifiedNames'
|
|
|
409 |
#name: 'AllowVW3QualifiedNames'
|
|
|
410 |
#model: #allowQualifiedNames
|
|
|
411 |
#translateLabel: true
|
|
|
412 |
#extent: #(#Point 600 22)
|
|
|
413 |
)
|
|
|
414 |
#(#CheckBoxSpec
|
|
|
415 |
#label: 'Allow Squeak Extensions'
|
|
|
416 |
#name: 'AllowSqueakExtensions'
|
|
|
417 |
#model: #allowSqueakExtensions
|
|
|
418 |
#translateLabel: true
|
|
|
419 |
#extent: #(#Point 600 22)
|
|
|
420 |
)
|
|
|
421 |
#(#CheckBoxSpec
|
|
|
422 |
#label: 'Allow Dolphin Extensions'
|
|
|
423 |
#name: 'AllowDolphinExtensions'
|
|
|
424 |
#model: #allowDolphinExtensions
|
|
|
425 |
#translateLabel: true
|
|
|
426 |
#extent: #(#Point 600 22)
|
|
|
427 |
)
|
|
|
428 |
#(#ViewSpec
|
|
|
429 |
#name: 'Box1'
|
|
|
430 |
#component:
|
|
|
431 |
#(#SpecCollection
|
|
|
432 |
#collection: #(
|
|
|
433 |
#(#LabelSpec
|
|
|
434 |
#label: 'Constant Folding:'
|
|
|
435 |
#name: 'ConstantFoldingLabel'
|
|
|
436 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
|
|
|
437 |
#translateLabel: true
|
|
|
438 |
#adjust: #right
|
|
|
439 |
)
|
|
|
440 |
#(#PopUpListSpec
|
|
|
441 |
#label: 'PopUp List'
|
|
|
442 |
#name: 'ConstantFolding'
|
|
|
443 |
#layout: #(#LayoutFrame 170 0 0 0 -5 1 22 0)
|
|
|
444 |
#tabable: true
|
|
|
445 |
#model: #constantFoldingSelection
|
|
|
446 |
#menu: #constantFolding
|
|
|
447 |
#useIndex: true
|
|
|
448 |
)
|
|
|
449 |
)
|
|
|
450 |
|
|
|
451 |
)
|
|
|
452 |
#extent: #(#Point 600 22)
|
|
|
453 |
)
|
|
|
454 |
#(#CheckBoxSpec
|
|
|
455 |
#label: 'Allow OldStyle Assignment (_)'
|
|
|
456 |
#name: 'AllowOldStyleAssignment'
|
|
|
457 |
#model: #allowOldStyleAssignment
|
|
|
458 |
#translateLabel: true
|
|
|
459 |
#extent: #(#Point 600 22)
|
|
|
460 |
)
|
|
|
461 |
#(#CheckBoxSpec
|
|
|
462 |
#label: 'Allow Reserved Words as Selector (self)'
|
|
|
463 |
#name: 'AllowReservedWordsAsSelector'
|
|
|
464 |
#model: #allowReservedWordsAsSelectors
|
|
|
465 |
#translateLabel: true
|
|
|
466 |
#extent: #(#Point 600 22)
|
|
|
467 |
)
|
|
|
468 |
#(#CheckBoxSpec
|
|
|
469 |
#label: 'Full Debug Info'
|
|
|
470 |
#name: 'FullDebugInfo'
|
|
|
471 |
#model: #fullDebugSupport
|
|
|
472 |
#translateLabel: true
|
|
|
473 |
#extent: #(#Point 600 22)
|
|
|
474 |
)
|
|
|
475 |
#(#CheckBoxSpec
|
|
|
476 |
#label: 'Literal Arrays are Immutable'
|
|
|
477 |
#name: 'LiteralArraysAreImmutable'
|
|
|
478 |
#model: #immutableArrays
|
|
|
479 |
#translateLabel: true
|
|
|
480 |
#extent: #(#Point 600 22)
|
|
|
481 |
)
|
|
|
482 |
#(#DividerSpec
|
|
|
483 |
#name: 'Separator4'
|
|
|
484 |
#extent: #(#Point 600 3)
|
|
|
485 |
)
|
|
|
486 |
#(#CheckBoxSpec
|
|
|
487 |
#label: 'Warnings'
|
|
|
488 |
#name: 'Warnings'
|
|
|
489 |
#model: #warnings
|
|
|
490 |
#translateLabel: true
|
|
|
491 |
#extent: #(#Point 600 22)
|
|
|
492 |
)
|
|
|
493 |
#(#ViewSpec
|
|
|
494 |
#name: 'Box2'
|
|
|
495 |
#component:
|
|
|
496 |
#(#SpecCollection
|
|
|
497 |
#collection: #(
|
|
|
498 |
#(#VerticalPanelViewSpec
|
|
|
499 |
#name: 'VerticalPanel2'
|
|
|
500 |
#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
|
|
|
501 |
#horizontalLayout: #left
|
|
|
502 |
#verticalLayout: #center
|
|
|
503 |
#horizontalSpace: 3
|
|
|
504 |
#verticalSpace: 3
|
|
|
505 |
#component:
|
|
|
506 |
#(#SpecCollection
|
|
|
507 |
#collection: #(
|
|
|
508 |
#(#CheckBoxSpec
|
|
|
509 |
#label: 'ST/X Extensions'
|
|
|
510 |
#name: 'STXExtensions'
|
|
|
511 |
#enableChannel: #warnings
|
|
|
512 |
#model: #warnSTX
|
|
|
513 |
#translateLabel: true
|
|
|
514 |
#extent: #(#Point 600 22)
|
|
|
515 |
)
|
|
|
516 |
#(#CheckBoxSpec
|
|
|
517 |
#label: 'Underscores in Identifiers'
|
|
|
518 |
#name: 'UnderscoresInIdentifiers'
|
|
|
519 |
#enableChannel: #enableUnderscore
|
|
|
520 |
#model: #warnUnderscore
|
|
|
521 |
#translateLabel: true
|
|
|
522 |
#extent: #(#Point 600 22)
|
|
|
523 |
)
|
|
|
524 |
#(#CheckBoxSpec
|
|
|
525 |
#label: 'Dollars in Identifiers'
|
|
|
526 |
#name: 'DollarsInIdentifiers'
|
|
|
527 |
#enableChannel: #enableDollar
|
|
|
528 |
#model: #warnDollar
|
|
|
529 |
#translateLabel: true
|
|
|
530 |
#extent: #(#Point 600 22)
|
|
|
531 |
)
|
|
|
532 |
#(#CheckBoxSpec
|
|
|
533 |
#label: 'Unused Method Variables'
|
|
|
534 |
#name: 'UnusedMethodVariables'
|
|
|
535 |
#enableChannel: #warnings
|
|
|
536 |
#model: #warnUnusedVars
|
|
|
537 |
#translateLabel: true
|
|
|
538 |
#extent: #(#Point 600 22)
|
|
|
539 |
)
|
|
|
540 |
#(#CheckBoxSpec
|
|
|
541 |
#label: 'OldStyle Assignment'
|
|
|
542 |
#name: 'OldStyleAssignment'
|
|
|
543 |
#enableChannel: #warnings
|
|
|
544 |
#model: #warnOldStyle
|
|
|
545 |
#translateLabel: true
|
|
|
546 |
#extent: #(#Point 600 22)
|
|
|
547 |
)
|
|
|
548 |
#(#CheckBoxSpec
|
|
|
549 |
#label: 'Common Mistakes'
|
|
|
550 |
#name: 'CommonMistakes'
|
|
|
551 |
#enableChannel: #warnings
|
|
|
552 |
#model: #warnCommonMistakes
|
|
|
553 |
#translateLabel: true
|
|
|
554 |
#extent: #(#Point 600 22)
|
|
|
555 |
)
|
|
|
556 |
#(#CheckBoxSpec
|
|
|
557 |
#label: 'Possible Incompatibilities'
|
|
|
558 |
#name: 'PossibleIncompatibilities'
|
|
|
559 |
#enableChannel: #warnings
|
|
|
560 |
#model: #warnCompatibility
|
|
|
561 |
#translateLabel: true
|
|
|
562 |
#extent: #(#Point 600 22)
|
|
|
563 |
)
|
|
|
564 |
)
|
|
|
565 |
|
|
|
566 |
)
|
|
|
567 |
)
|
|
|
568 |
)
|
|
|
569 |
|
|
|
570 |
)
|
|
|
571 |
#extent: #(#Point 600 160)
|
|
|
572 |
)
|
|
|
573 |
)
|
|
|
574 |
|
|
|
575 |
)
|
|
4286
|
576 |
)
|
|
|
577 |
)
|
|
|
578 |
|
|
|
579 |
)
|
|
|
580 |
)
|
|
|
581 |
! !
|
|
|
582 |
|
|
4387
|
583 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
|
|
4286
|
584 |
|
|
|
585 |
evaluateModified
|
|
|
586 |
|
|
|
587 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
588 |
!
|
|
|
589 |
|
|
|
590 |
help
|
|
|
591 |
|
|
|
592 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
|
|
|
593 |
!
|
|
|
594 |
|
|
|
595 |
loadRequest
|
|
|
596 |
|
|
|
597 |
self allowDollar value:(Compiler allowDollarInIdentifier ? false).
|
|
|
598 |
self allowDolphinExtensions value:(Compiler allowDolphinExtensions ? false).
|
|
|
599 |
self allowOldStyleAssignment value:(Compiler allowOldStyleAssignment ? false).
|
|
|
600 |
self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
|
|
|
601 |
self allowReservedWordsAsSelectors value:(Compiler allowReservedWordsAsSelectors ? false).
|
|
|
602 |
self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
|
|
|
603 |
self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
|
|
|
604 |
self constantFoldingSelection value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
|
|
|
605 |
self supportsJustInTimeCompilation ifTrue:[
|
|
|
606 |
self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false).
|
|
|
607 |
] ifFalse:[
|
|
|
608 |
self fullDebugSupport value:(Compiler lineNumberInfo == #full).
|
|
|
609 |
].
|
|
|
610 |
self immutableArrays value:(Compiler arraysAreImmutable ? false).
|
|
|
611 |
self supportsJustInTimeCompilation ifTrue:[
|
|
|
612 |
self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false).
|
|
|
613 |
] ifFalse:[
|
|
|
614 |
self justInTimeCompilation value:false.
|
|
|
615 |
].
|
|
|
616 |
self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
|
|
|
617 |
self warnCompatibility value:(Compiler warnPossibleIncompatibilities ? false).
|
|
|
618 |
self warnDollar value:(Compiler warnDollarInIdentifier ? false).
|
|
|
619 |
self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
|
|
|
620 |
self warnSTX value:(Compiler warnSTXSpecials ? false).
|
|
|
621 |
self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
|
|
|
622 |
self warnUnusedVars value:(Compiler warnUnusedVars ? false).
|
|
|
623 |
self warnings value:(Compiler warnings ? false).
|
|
|
624 |
self modifiedChannel value:false.
|
|
|
625 |
!
|
|
|
626 |
|
|
|
627 |
saveSettings
|
|
|
628 |
|
|
|
629 |
Compiler warnings:self warnings value.
|
|
|
630 |
Compiler warnSTXSpecials:self warnSTX value.
|
|
|
631 |
Compiler warnOldStyleAssignment:self warnOldStyle value.
|
|
|
632 |
Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
|
|
|
633 |
Compiler warnDollarInIdentifier:self warnDollar value.
|
|
|
634 |
Compiler warnCommonMistakes:self warnCommonMistakes value.
|
|
|
635 |
Compiler warnPossibleIncompatibilities:self warnCompatibility value.
|
|
|
636 |
Compiler warnUnusedVars:self warnUnusedVars value.
|
|
|
637 |
Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
|
|
|
638 |
Compiler allowDollarInIdentifier:self allowDollar value.
|
|
|
639 |
Compiler allowSqueakExtensions:self allowSqueakExtensions value.
|
|
|
640 |
Compiler allowDolphinExtensions:self allowDolphinExtensions value.
|
|
|
641 |
Compiler allowQualifiedNames:self allowQualifiedNames value.
|
|
|
642 |
Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
|
|
|
643 |
Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
|
|
|
644 |
|
|
|
645 |
Compiler arraysAreImmutable:self immutableArrays value.
|
|
|
646 |
self fullDebugSupport value ifTrue:[
|
|
|
647 |
Compiler lineNumberInfo:#full.
|
|
|
648 |
] ifFalse:[
|
|
|
649 |
Compiler lineNumberInfo:true
|
|
|
650 |
].
|
|
|
651 |
|
|
|
652 |
Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
|
|
|
653 |
|
|
|
654 |
self supportsJustInTimeCompilation ifTrue:[
|
|
|
655 |
| justInTime |
|
|
|
656 |
justInTime := self justInTimeCompilation value.
|
|
|
657 |
justInTime ifTrue:[
|
|
|
658 |
Method allInstancesDo:[:m | m checked:false].
|
|
|
659 |
].
|
|
|
660 |
ObjectMemory justInTimeCompilation:justInTime.
|
|
|
661 |
ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
|
|
|
662 |
].
|
|
|
663 |
self modifiedChannel value:false.
|
|
|
664 |
!
|
|
|
665 |
|
|
|
666 |
stcCompilerSettings
|
|
|
667 |
|
|
|
668 |
AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
|
|
|
669 |
! !
|
|
|
670 |
|
|
4387
|
671 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
|
|
4286
|
672 |
|
|
|
673 |
allowDollar
|
|
|
674 |
|
|
|
675 |
allowDollar isNil ifTrue:[
|
|
|
676 |
allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
|
|
|
677 |
allowDollar onChangeSend:#evaluateModified to:self.
|
|
|
678 |
allowDollar addDependent:self.
|
|
|
679 |
].
|
|
|
680 |
^ allowDollar.
|
|
|
681 |
!
|
|
|
682 |
|
|
|
683 |
allowDolphinExtensions
|
|
|
684 |
|
|
|
685 |
allowDolphinExtensions isNil ifTrue:[
|
|
|
686 |
allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
|
|
|
687 |
allowDolphinExtensions onChangeSend:#evaluateModified to:self.
|
|
|
688 |
].
|
|
|
689 |
^ allowDolphinExtensions.
|
|
|
690 |
!
|
|
|
691 |
|
|
|
692 |
allowOldStyleAssignment
|
|
|
693 |
|
|
|
694 |
allowOldStyleAssignment isNil ifTrue:[
|
|
|
695 |
allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
|
|
|
696 |
allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
|
|
|
697 |
].
|
|
|
698 |
^ allowOldStyleAssignment.
|
|
|
699 |
!
|
|
|
700 |
|
|
|
701 |
allowQualifiedNames
|
|
|
702 |
|
|
|
703 |
allowQualifiedNames isNil ifTrue:[
|
|
|
704 |
allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
|
|
|
705 |
allowQualifiedNames onChangeSend:#evaluateModified to:self.
|
|
|
706 |
].
|
|
|
707 |
^ allowQualifiedNames.
|
|
|
708 |
!
|
|
|
709 |
|
|
|
710 |
allowReservedWordsAsSelectors
|
|
|
711 |
|
|
|
712 |
allowReservedWordsAsSelectors isNil ifTrue:[
|
|
|
713 |
allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
|
|
|
714 |
allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
|
|
|
715 |
].
|
|
|
716 |
^ allowReservedWordsAsSelectors.
|
|
|
717 |
!
|
|
|
718 |
|
|
|
719 |
allowSqueakExtensions
|
|
|
720 |
|
|
|
721 |
allowSqueakExtensions isNil ifTrue:[
|
|
|
722 |
allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
|
|
|
723 |
allowSqueakExtensions onChangeSend:#evaluateModified to:self.
|
|
|
724 |
].
|
|
|
725 |
^ allowSqueakExtensions.
|
|
|
726 |
!
|
|
|
727 |
|
|
|
728 |
allowUnderscore
|
|
|
729 |
|
|
|
730 |
allowUnderscore isNil ifTrue:[
|
|
|
731 |
allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
|
|
|
732 |
allowUnderscore onChangeSend:#evaluateModified to:self.
|
|
|
733 |
allowUnderscore addDependent:self.
|
|
|
734 |
].
|
|
|
735 |
^ allowUnderscore.
|
|
|
736 |
!
|
|
|
737 |
|
|
|
738 |
constantFolding
|
|
|
739 |
|
|
|
740 |
constantFolding isNil ifTrue:[
|
|
|
741 |
constantFolding := (resources array:(self class constantFoldingStrings)) asList.
|
|
|
742 |
].
|
|
|
743 |
^ constantFolding.
|
|
|
744 |
!
|
|
|
745 |
|
|
|
746 |
constantFoldingOptions
|
|
|
747 |
|
|
|
748 |
constantFoldingOptions isNil ifTrue:[
|
|
|
749 |
constantFoldingOptions := self class constantFoldingOptions.
|
|
|
750 |
].
|
|
|
751 |
^ constantFoldingOptions.
|
|
|
752 |
!
|
|
|
753 |
|
|
|
754 |
constantFoldingSelection
|
|
|
755 |
|
|
|
756 |
constantFoldingSelection isNil ifTrue:[
|
|
|
757 |
| index |
|
|
|
758 |
index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
|
|
|
759 |
constantFoldingSelection := index asValue.
|
|
|
760 |
constantFoldingSelection onChangeSend:#evaluateModified to:self.
|
|
|
761 |
].
|
|
|
762 |
^ constantFoldingSelection.
|
|
|
763 |
!
|
|
|
764 |
|
|
|
765 |
enableDollar
|
|
|
766 |
|
|
|
767 |
enableDollar isNil ifTrue:[
|
|
|
768 |
enableDollar := true asValue.
|
|
|
769 |
enableDollar addDependent:self.
|
|
|
770 |
].
|
|
|
771 |
^ enableDollar.
|
|
|
772 |
!
|
|
|
773 |
|
|
|
774 |
enableUnderscore
|
|
|
775 |
"automatically generated by UIPainter ..."
|
|
|
776 |
|
|
|
777 |
"*** the code below creates a default model when invoked."
|
|
|
778 |
"*** (which may not be the one you wanted)"
|
|
|
779 |
"*** Please change as required and accept it in the browser."
|
|
|
780 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
781 |
|
|
|
782 |
enableUnderscore isNil ifTrue:[
|
|
|
783 |
enableUnderscore := true asValue.
|
|
|
784 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
785 |
"/ enableUnderscore addDependent:self.
|
|
|
786 |
"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
|
|
|
787 |
].
|
|
|
788 |
^ enableUnderscore.
|
|
|
789 |
!
|
|
|
790 |
|
|
|
791 |
fullDebugSupport
|
|
|
792 |
|
|
|
793 |
fullDebugSupport isNil ifTrue:[
|
|
|
794 |
self supportsJustInTimeCompilation ifTrue:[
|
|
|
795 |
fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
|
|
|
796 |
] ifFalse:[
|
|
|
797 |
fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
|
|
|
798 |
].
|
|
|
799 |
fullDebugSupport onChangeSend:#evaluateModified to:self.
|
|
|
800 |
].
|
|
|
801 |
^ fullDebugSupport.
|
|
|
802 |
!
|
|
|
803 |
|
|
|
804 |
immutableArrays
|
|
|
805 |
|
|
|
806 |
immutableArrays isNil ifTrue:[
|
|
|
807 |
immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
|
|
|
808 |
immutableArrays onChangeSend:#evaluateModified to:self.
|
|
|
809 |
].
|
|
|
810 |
^ immutableArrays.
|
|
|
811 |
!
|
|
|
812 |
|
|
|
813 |
justInTimeCompilation
|
|
|
814 |
|
|
|
815 |
justInTimeCompilation isNil ifTrue:[
|
|
|
816 |
self supportsJustInTimeCompilation ifTrue:[
|
|
|
817 |
justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
|
|
|
818 |
] ifFalse:[
|
|
|
819 |
justInTimeCompilation := false asValue.
|
|
|
820 |
].
|
|
|
821 |
justInTimeCompilation onChangeSend:#evaluateModified to:self.
|
|
|
822 |
].
|
|
|
823 |
^ justInTimeCompilation.
|
|
|
824 |
!
|
|
|
825 |
|
|
|
826 |
modifiedChannel
|
|
|
827 |
|
|
|
828 |
modifiedChannel isNil ifTrue:[
|
|
|
829 |
modifiedChannel := false asValue.
|
|
|
830 |
].
|
|
|
831 |
^ modifiedChannel
|
|
|
832 |
!
|
|
|
833 |
|
|
|
834 |
warnCommonMistakes
|
|
|
835 |
|
|
|
836 |
warnCommonMistakes isNil ifTrue:[
|
|
|
837 |
warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
|
|
|
838 |
warnCommonMistakes onChangeSend:#evaluateModified to:self.
|
|
|
839 |
].
|
|
|
840 |
^ warnCommonMistakes.
|
|
|
841 |
!
|
|
|
842 |
|
|
|
843 |
warnCompatibility
|
|
|
844 |
|
|
|
845 |
warnCompatibility isNil ifTrue:[
|
|
|
846 |
warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
|
|
|
847 |
warnCompatibility onChangeSend:#evaluateModified to:self.
|
|
|
848 |
].
|
|
|
849 |
^ warnCompatibility.
|
|
|
850 |
!
|
|
|
851 |
|
|
|
852 |
warnDollar
|
|
|
853 |
|
|
|
854 |
warnDollar isNil ifTrue:[
|
|
|
855 |
warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
|
|
|
856 |
warnDollar onChangeSend:#evaluateModified to:self.
|
|
|
857 |
].
|
|
|
858 |
^ warnDollar.
|
|
|
859 |
!
|
|
|
860 |
|
|
|
861 |
warnOldStyle
|
|
|
862 |
|
|
|
863 |
warnOldStyle isNil ifTrue:[
|
|
|
864 |
warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
|
|
|
865 |
warnOldStyle onChangeSend:#evaluateModified to:self.
|
|
|
866 |
].
|
|
|
867 |
^ warnOldStyle.
|
|
|
868 |
!
|
|
|
869 |
|
|
|
870 |
warnSTX
|
|
|
871 |
|
|
|
872 |
warnSTX isNil ifTrue:[
|
|
|
873 |
warnSTX := (Compiler warnSTXSpecials ? false) asValue.
|
|
|
874 |
warnSTX onChangeSend:#evaluateModified to:self.
|
|
|
875 |
].
|
|
|
876 |
^ warnSTX.
|
|
|
877 |
!
|
|
|
878 |
|
|
|
879 |
warnUnderscore
|
|
|
880 |
|
|
|
881 |
warnUnderscore isNil ifTrue:[
|
|
|
882 |
warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
|
|
|
883 |
warnUnderscore onChangeSend:#evaluateModified to:self.
|
|
|
884 |
].
|
|
|
885 |
^ warnUnderscore.
|
|
|
886 |
!
|
|
|
887 |
|
|
|
888 |
warnUnusedVars
|
|
|
889 |
|
|
|
890 |
warnUnusedVars isNil ifTrue:[
|
|
|
891 |
warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
|
|
|
892 |
warnUnusedVars onChangeSend:#evaluateModified to:self.
|
|
|
893 |
].
|
|
|
894 |
^ warnUnusedVars.
|
|
|
895 |
!
|
|
|
896 |
|
|
|
897 |
warnings
|
|
|
898 |
|
|
|
899 |
warnings isNil ifTrue:[
|
|
|
900 |
warnings := (Compiler warnings ? false) asValue.
|
|
|
901 |
warnings addDependent:self.
|
|
|
902 |
warnings changed.
|
|
|
903 |
warnings onChangeSend:#evaluateModified to:self.
|
|
|
904 |
].
|
|
|
905 |
^ warnings.
|
|
|
906 |
! !
|
|
|
907 |
|
|
4387
|
908 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
|
|
4286
|
909 |
|
|
|
910 |
update:something with:aParameter from:changedObject
|
|
|
911 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
912 |
|
|
|
913 |
"stub code automatically generated - please change as required"
|
|
|
914 |
|
|
|
915 |
changedObject == self warnings ifTrue:[
|
|
|
916 |
self warnings value ifTrue:[
|
|
|
917 |
self enableUnderscore value:self allowUnderscore value.
|
|
|
918 |
self enableDollar value:self allowDollar value.
|
|
|
919 |
] ifFalse:[
|
|
|
920 |
self enableUnderscore value:false.
|
|
|
921 |
self enableDollar value:false.
|
|
|
922 |
].
|
|
|
923 |
^ self
|
|
|
924 |
].
|
|
|
925 |
(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
|
|
|
926 |
self warnings changed.
|
|
|
927 |
^ self
|
|
|
928 |
].
|
|
|
929 |
|
|
|
930 |
super update:something with:aParameter from:changedObject
|
|
|
931 |
! !
|
|
|
932 |
|
|
4387
|
933 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'initialization & release'!
|
|
4286
|
934 |
|
|
|
935 |
initialize
|
|
|
936 |
|
|
4387
|
937 |
resources := self class classResources.
|
|
4286
|
938 |
super initialize
|
|
|
939 |
! !
|
|
|
940 |
|
|
4387
|
941 |
!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
|
|
4286
|
942 |
|
|
|
943 |
hasUnsavedChanges
|
|
|
944 |
|
|
|
945 |
^
|
|
|
946 |
(
|
|
|
947 |
((Compiler warnings ? false) ~= self warnings value) or:[
|
|
|
948 |
((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
|
|
|
949 |
((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
|
|
|
950 |
((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
|
|
|
951 |
((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
|
|
|
952 |
((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
|
|
|
953 |
((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
|
|
|
954 |
((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
|
|
|
955 |
((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
|
|
|
956 |
((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
|
|
|
957 |
((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
|
|
|
958 |
((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
|
|
|
959 |
((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
|
|
|
960 |
((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
|
|
|
961 |
((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
|
|
|
962 |
((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
|
|
|
963 |
((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
|
|
|
964 |
((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
|
|
4387
|
965 |
((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
|
|
4286
|
966 |
!
|
|
|
967 |
|
|
|
968 |
supportsJustInTimeCompilation
|
|
|
969 |
|
|
|
970 |
^ ObjectMemory supportsJustInTimeCompilation
|
|
|
971 |
! !
|
|
|
972 |
|
|
4398
|
973 |
!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
|
|
|
974 |
|
|
|
975 |
defaultIcon
|
|
|
976 |
<resource: #programImage>
|
|
|
977 |
|
|
|
978 |
^ ToolbarIconLibrary bugReporter24x24Icon
|
|
|
979 |
! !
|
|
|
980 |
|
|
|
981 |
!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
|
|
|
982 |
|
|
|
983 |
windowSpec
|
|
|
984 |
"This resource specification was automatically generated
|
|
|
985 |
by the UIPainter of ST/X."
|
|
|
986 |
|
|
|
987 |
"Do not manually edit this!! If it is corrupted,
|
|
|
988 |
the UIPainter may not be able to read the specification."
|
|
|
989 |
|
|
|
990 |
"
|
|
|
991 |
UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
|
|
|
992 |
AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
|
|
|
993 |
AbstractSettingsApplication::DebuggerSettingsAppl open
|
|
|
994 |
"
|
|
|
995 |
|
|
|
996 |
<resource: #canvas>
|
|
|
997 |
|
|
|
998 |
^
|
|
|
999 |
#(#FullSpec
|
|
|
1000 |
#name: #windowSpec
|
|
|
1001 |
#window:
|
|
|
1002 |
#(#WindowSpec
|
|
4405
|
1003 |
#label: 'Debugger Settings'
|
|
|
1004 |
#name: 'Debugger Settings'
|
|
4398
|
1005 |
#min: #(#Point 10 10)
|
|
|
1006 |
#max: #(#Point 1024 768)
|
|
|
1007 |
#bounds: #(#Rectangle 16 42 616 362)
|
|
|
1008 |
)
|
|
|
1009 |
#component:
|
|
|
1010 |
#(#SpecCollection
|
|
|
1011 |
#collection: #(
|
|
|
1012 |
#(#VerticalPanelViewSpec
|
|
|
1013 |
#name: 'VerticalPanel2'
|
|
|
1014 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
1015 |
#horizontalLayout: #fit
|
|
|
1016 |
#verticalLayout: #top
|
|
|
1017 |
#horizontalSpace: 3
|
|
|
1018 |
#verticalSpace: 5
|
|
|
1019 |
#component:
|
|
|
1020 |
#(#SpecCollection
|
|
|
1021 |
#collection: #(
|
|
|
1022 |
#(#VerticalPanelViewSpec
|
|
|
1023 |
#name: 'VerticalPanel5'
|
|
|
1024 |
#horizontalLayout: #fit
|
|
|
1025 |
#verticalLayout: #topSpace
|
|
|
1026 |
#horizontalSpace: 3
|
|
|
1027 |
#verticalSpace: 3
|
|
|
1028 |
#component:
|
|
|
1029 |
#(#SpecCollection
|
|
|
1030 |
#collection: #(
|
|
|
1031 |
#(#ViewSpec
|
|
|
1032 |
#name: 'Box10'
|
|
|
1033 |
#component:
|
|
|
1034 |
#(#SpecCollection
|
|
|
1035 |
#collection: #(
|
|
|
1036 |
#(#CheckBoxSpec
|
|
|
1037 |
#label: 'Show Error Notifier before Opening Debugger'
|
|
|
1038 |
#name: 'ShowErrorNotifierCheckBox'
|
|
|
1039 |
#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
|
|
|
1040 |
#model: #showErrorNotifier
|
|
|
1041 |
#translateLabel: true
|
|
|
1042 |
)
|
|
|
1043 |
)
|
|
|
1044 |
|
|
|
1045 |
)
|
|
|
1046 |
#extent: #(#Point 600 30)
|
|
|
1047 |
)
|
|
|
1048 |
#(#ViewSpec
|
|
|
1049 |
#name: 'Box11'
|
|
|
1050 |
#component:
|
|
|
1051 |
#(#SpecCollection
|
|
|
1052 |
#collection: #(
|
|
|
1053 |
#(#CheckBoxSpec
|
|
|
1054 |
#label: 'Verbose Backtrace by Default in Debugger'
|
|
|
1055 |
#name: 'ShowVerboseStackCheckBox'
|
|
|
1056 |
#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
|
|
|
1057 |
#model: #showVerboseStack
|
|
|
1058 |
#translateLabel: true
|
|
|
1059 |
)
|
|
|
1060 |
)
|
|
|
1061 |
|
|
|
1062 |
)
|
|
|
1063 |
#extent: #(#Point 600 30)
|
|
|
1064 |
)
|
|
|
1065 |
#(#ViewSpec
|
|
|
1066 |
#name: 'Box12'
|
|
|
1067 |
#component:
|
|
|
1068 |
#(#SpecCollection
|
|
|
1069 |
#collection: #(
|
|
|
1070 |
#(#CheckBoxSpec
|
|
|
1071 |
#label: 'Allow send Error Report from Debugger'
|
|
|
1072 |
#name: 'CheckBox6'
|
|
|
1073 |
#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
|
|
|
1074 |
#model: #allowSendMailFromDebugger
|
|
|
1075 |
#translateLabel: true
|
|
|
1076 |
)
|
|
|
1077 |
)
|
|
|
1078 |
|
|
|
1079 |
)
|
|
|
1080 |
#extent: #(#Point 600 30)
|
|
|
1081 |
)
|
|
|
1082 |
)
|
|
|
1083 |
|
|
|
1084 |
)
|
|
|
1085 |
#extent: #(#Point 600 320)
|
|
|
1086 |
)
|
|
|
1087 |
)
|
|
|
1088 |
|
|
|
1089 |
)
|
|
|
1090 |
)
|
|
|
1091 |
)
|
|
|
1092 |
|
|
|
1093 |
)
|
|
|
1094 |
)
|
|
|
1095 |
! !
|
|
|
1096 |
|
|
|
1097 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
|
|
|
1098 |
|
|
|
1099 |
evaluateModified
|
|
|
1100 |
|
|
|
1101 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
1102 |
!
|
|
|
1103 |
|
|
|
1104 |
help
|
|
|
1105 |
|
|
|
1106 |
self warn:'no help available here'.
|
|
|
1107 |
"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
|
|
|
1108 |
!
|
|
|
1109 |
|
|
|
1110 |
loadRequest
|
|
|
1111 |
|
|
|
1112 |
self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
|
|
|
1113 |
self showErrorNotifier value:(Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
|
|
|
1114 |
self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
|
|
|
1115 |
self modifiedChannel value:false.
|
|
|
1116 |
!
|
|
|
1117 |
|
|
|
1118 |
saveSettings
|
|
|
1119 |
|
|
|
1120 |
self hasUnsavedChanges ifTrue:[
|
|
|
1121 |
currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
|
|
|
1122 |
self showErrorNotifier value ifFalse:[
|
|
|
1123 |
Exception emergencyHandler:nil
|
|
|
1124 |
] ifTrue:[
|
|
|
1125 |
Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
|
|
|
1126 |
].
|
|
|
1127 |
DebugView defaultVerboseBacktrace:self showVerboseStack value.
|
|
|
1128 |
self modifiedChannel value:false.
|
|
|
1129 |
].
|
|
|
1130 |
! !
|
|
|
1131 |
|
|
|
1132 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
|
|
|
1133 |
|
|
|
1134 |
allowSendMailFromDebugger
|
|
|
1135 |
|
|
|
1136 |
allowSendMailFromDebugger isNil ifTrue:[
|
|
|
1137 |
allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
|
|
|
1138 |
allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
|
|
|
1139 |
].
|
|
|
1140 |
^ allowSendMailFromDebugger.
|
|
|
1141 |
!
|
|
|
1142 |
|
|
|
1143 |
modifiedChannel
|
|
|
1144 |
|
|
|
1145 |
modifiedChannel isNil ifTrue:[
|
|
|
1146 |
modifiedChannel := false asValue.
|
|
|
1147 |
].
|
|
|
1148 |
^ modifiedChannel
|
|
|
1149 |
!
|
|
|
1150 |
|
|
|
1151 |
showErrorNotifier
|
|
|
1152 |
|
|
|
1153 |
showErrorNotifier isNil ifTrue:[
|
|
|
1154 |
showErrorNotifier := (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
|
|
|
1155 |
showErrorNotifier onChangeSend:#evaluateModified to:self
|
|
|
1156 |
].
|
|
|
1157 |
^ showErrorNotifier.
|
|
|
1158 |
!
|
|
|
1159 |
|
|
|
1160 |
showVerboseStack
|
|
|
1161 |
|
|
|
1162 |
showVerboseStack isNil ifTrue:[
|
|
|
1163 |
showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
|
|
|
1164 |
showVerboseStack onChangeSend:#evaluateModified to:self
|
|
|
1165 |
].
|
|
|
1166 |
^ showVerboseStack.
|
|
|
1167 |
! !
|
|
|
1168 |
|
|
|
1169 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'change & update'!
|
|
|
1170 |
|
|
|
1171 |
update:something with:aParameter from:changedObject
|
|
|
1172 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
1173 |
|
|
|
1174 |
"stub code automatically generated - please change as required"
|
|
|
1175 |
|
|
|
1176 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
1177 |
"/ ^ self.
|
|
|
1178 |
"/ ].
|
|
|
1179 |
|
|
|
1180 |
super update:something with:aParameter from:changedObject
|
|
|
1181 |
! !
|
|
|
1182 |
|
|
|
1183 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'initialization & release'!
|
|
|
1184 |
|
|
|
1185 |
initialize
|
|
|
1186 |
|
|
|
1187 |
resources := self class classResources.
|
|
|
1188 |
currentUserPrefs := UserPreferences current.
|
|
|
1189 |
self loadRequest.
|
|
|
1190 |
super initialize
|
|
|
1191 |
! !
|
|
|
1192 |
|
|
|
1193 |
!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
|
|
|
1194 |
|
|
|
1195 |
hasUnsavedChanges
|
|
|
1196 |
|
|
|
1197 |
^ (
|
|
|
1198 |
self showErrorNotifier value ~= (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
|
|
|
1199 |
DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
|
|
|
1200 |
(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
|
|
|
1201 |
]]
|
|
|
1202 |
)
|
|
|
1203 |
! !
|
|
|
1204 |
|
|
4286
|
1205 |
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
|
|
|
1206 |
|
|
|
1207 |
clipEncodingStrings
|
|
|
1208 |
|
|
|
1209 |
^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
|
|
|
1210 |
!
|
|
|
1211 |
|
|
|
1212 |
clipEncodingSyms
|
|
|
1213 |
|
|
|
1214 |
^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
|
|
|
1215 |
!
|
|
|
1216 |
|
|
|
1217 |
staticGrayOrGrayScaleDitherStrings
|
|
|
1218 |
|
|
|
1219 |
^ #('threshold' 'ordered dither' 'error diffusion')
|
|
|
1220 |
!
|
|
|
1221 |
|
|
|
1222 |
staticGrayOrGrayScaleDitherSyms
|
|
|
1223 |
|
|
|
1224 |
^ #(threshold ordered floydSteinberg)
|
|
|
1225 |
!
|
|
|
1226 |
|
|
|
1227 |
trueColorDitherStrings
|
|
|
1228 |
|
|
|
1229 |
^ #('nearest color' 'error diffusion')
|
|
|
1230 |
!
|
|
|
1231 |
|
|
|
1232 |
trueColorDitherSyms
|
|
|
1233 |
|
|
|
1234 |
^ #(ordered floydSteinberg)
|
|
|
1235 |
! !
|
|
|
1236 |
|
|
4312
|
1237 |
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
|
|
|
1238 |
|
|
|
1239 |
defaultIcon
|
|
|
1240 |
"This resource specification was automatically generated
|
|
|
1241 |
by the ImageEditor of ST/X."
|
|
|
1242 |
|
|
|
1243 |
"Do not manually edit this!! If it is corrupted,
|
|
|
1244 |
the ImageEditor may not be able to read the specification."
|
|
|
1245 |
|
|
|
1246 |
"
|
|
|
1247 |
self defaultIcon inspect
|
|
|
1248 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
1249 |
Icon flushCachedIcons
|
|
|
1250 |
"
|
|
|
1251 |
|
|
|
1252 |
<resource: #image>
|
|
|
1253 |
|
|
|
1254 |
^Icon
|
|
|
1255 |
constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
|
|
|
1256 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
1257 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
|
|
|
1258 |
@B (JB (JB (JB (JB (JB\''@@@@@@@(JA@ZFA YE@,KC@,KA0P''I1T@@@@@JB RH2D!!HRD HA(MCP\DI2\U@@@@@B (GRT#H2D"H2L^C0<HAB\''EP@@@@@(
|
|
|
1259 |
JA4%H2L!!H"L#G <OB@P''I1T@@@@@JB ZH2P$H1<_G1$OC0XDI2\U@@@@@B (C!!$ HA,\FQ$OC0<FAB\''EP@@@@@(JA@WE!!XWFQ XC <OBPT''I1T@@@@@JB P
|
|
|
1260 |
E1XVE1$XF@8OC0$EI2\U@@@@@B (A!!DSD0(CB (B@PDAAB\''EP@@@@@''I2\''I"X''I2\''I2\''I2\''I1T@@@@@I2\''I2X&I2\''I2\''I2\''I2\U@@@@@@@@EQTU
|
|
|
1261 |
ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
|
|
|
1262 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 60 78 83 61 77 82 63 79 84 63 81 86 66 83 87 66 84 89 66 85 91 67 86 92 68 86 91 69 87 92 69 88 94 70 90 95 71 91 96 71 92 98 72 93 99 73 94 100 74 92 97 74 95 101 75 93 98 75 96 102 76 76 76 76 97 103 77 98 104 77 99 106 79 101 108 80 103 109 81 104 110 82 105 111 83 106 112 83 107 114 86 110 117 87 111 118 88 113 121 89 114 122 90 116 123 91 117 124 92 118 125 126 126 126 127 127 127 139 139 139]; 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]
|
|
|
1263 |
! !
|
|
|
1264 |
|
|
4286
|
1265 |
!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
|
|
|
1266 |
|
|
|
1267 |
windowSpec
|
|
|
1268 |
"This resource specification was automatically generated
|
|
|
1269 |
by the UIPainter of ST/X."
|
|
|
1270 |
|
|
|
1271 |
"Do not manually edit this!! If it is corrupted,
|
|
|
1272 |
the UIPainter may not be able to read the specification."
|
|
|
1273 |
|
|
|
1274 |
"
|
|
4310
|
1275 |
UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
|
|
|
1276 |
AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
|
|
|
1277 |
AbstractSettingsApplication::DisplaySettingsAppl open
|
|
4286
|
1278 |
"
|
|
|
1279 |
|
|
|
1280 |
<resource: #canvas>
|
|
|
1281 |
|
|
|
1282 |
^
|
|
|
1283 |
#(#FullSpec
|
|
|
1284 |
#name: #windowSpec
|
|
|
1285 |
#window:
|
|
|
1286 |
#(#WindowSpec
|
|
|
1287 |
#label: 'Display Screen Settings'
|
|
|
1288 |
#name: 'Display Screen Settings'
|
|
|
1289 |
#min: #(#Point 10 10)
|
|
|
1290 |
#max: #(#Point 1024 768)
|
|
4310
|
1291 |
#bounds: #(#Rectangle 16 42 616 390)
|
|
4286
|
1292 |
)
|
|
|
1293 |
#component:
|
|
|
1294 |
#(#SpecCollection
|
|
|
1295 |
#collection: #(
|
|
|
1296 |
#(#LabelSpec
|
|
|
1297 |
#label: 'Actual Visible Screen Area:'
|
|
|
1298 |
#name: 'ActualVisibleScreenAreaLabel'
|
|
|
1299 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
|
|
|
1300 |
#translateLabel: true
|
|
|
1301 |
#adjust: #left
|
|
|
1302 |
)
|
|
|
1303 |
#(#LabelSpec
|
|
|
1304 |
#label: 'Common Sizes:'
|
|
|
1305 |
#name: 'CommonSizesLabel'
|
|
|
1306 |
#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
|
|
|
1307 |
#translateLabel: true
|
|
|
1308 |
#adjust: #right
|
|
|
1309 |
)
|
|
|
1310 |
#(#PopUpListSpec
|
|
|
1311 |
#label: 'monitor size'
|
|
|
1312 |
#name: 'MonitorSelectionPopUpList'
|
|
|
1313 |
#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
|
|
|
1314 |
#tabable: true
|
|
|
1315 |
#model: #monitorSelection
|
|
|
1316 |
#menu: #monitorList
|
|
|
1317 |
#useIndex: true
|
|
|
1318 |
)
|
|
|
1319 |
#(#LabelSpec
|
|
|
1320 |
#label: 'Screen Size:'
|
|
|
1321 |
#name: 'ScreenSizeLabel'
|
|
|
1322 |
#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
|
|
|
1323 |
#translateLabel: true
|
|
|
1324 |
#adjust: #right
|
|
|
1325 |
)
|
|
|
1326 |
#(#InputFieldSpec
|
|
|
1327 |
#name: 'SizeXEntryField'
|
|
|
1328 |
#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
|
|
|
1329 |
#model: #sizeX
|
|
|
1330 |
#type: #number
|
|
|
1331 |
#immediateAccept: true
|
|
|
1332 |
#acceptOnReturn: true
|
|
|
1333 |
#acceptOnTab: true
|
|
|
1334 |
#acceptOnLostFocus: true
|
|
|
1335 |
#acceptOnPointerLeave: false
|
|
|
1336 |
)
|
|
|
1337 |
#(#LabelSpec
|
|
|
1338 |
#label: ' x '
|
|
|
1339 |
#name: 'xLabel'
|
|
|
1340 |
#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
|
|
|
1341 |
#translateLabel: true
|
|
|
1342 |
#adjust: #right
|
|
|
1343 |
)
|
|
|
1344 |
#(#InputFieldSpec
|
|
|
1345 |
#name: 'SizeYEntryField'
|
|
|
1346 |
#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
|
|
|
1347 |
#model: #sizeY
|
|
|
1348 |
#type: #number
|
|
|
1349 |
#immediateAccept: true
|
|
|
1350 |
#acceptOnReturn: true
|
|
|
1351 |
#acceptOnTab: true
|
|
|
1352 |
#acceptOnLostFocus: true
|
|
|
1353 |
#acceptOnPointerLeave: false
|
|
|
1354 |
)
|
|
|
1355 |
#(#LabelSpec
|
|
|
1356 |
#label: '(mm)'
|
|
|
1357 |
#name: 'mmLabel'
|
|
|
1358 |
#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
|
|
|
1359 |
#translateLabel: true
|
|
|
1360 |
#adjust: #right
|
|
|
1361 |
)
|
|
|
1362 |
#(#DividerSpec
|
|
|
1363 |
#name: 'Separator1'
|
|
|
1364 |
#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
|
|
|
1365 |
)
|
|
|
1366 |
#(#LabelSpec
|
|
|
1367 |
#name: 'ScreenDepthVisualLabel'
|
|
|
1368 |
#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
|
|
|
1369 |
#translateLabel: true
|
|
|
1370 |
#labelChannel: #screenDepthVisualLabelHolder
|
|
|
1371 |
#adjust: #left
|
|
|
1372 |
)
|
|
|
1373 |
#(#DividerSpec
|
|
|
1374 |
#name: 'Separator2'
|
|
|
1375 |
#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
|
|
|
1376 |
)
|
|
|
1377 |
#(#CheckBoxSpec
|
|
|
1378 |
#label: 'Color Monitor'
|
|
|
1379 |
#name: 'ColorMonitorCheckBox'
|
|
|
1380 |
#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
|
|
|
1381 |
#model: #isColorMonitor
|
|
|
1382 |
#translateLabel: true
|
|
|
1383 |
)
|
|
|
1384 |
#(#CheckBoxSpec
|
|
|
1385 |
#label: 'Use Fix Color Palette'
|
|
|
1386 |
#name: 'FixColorPaletteCheckBox'
|
|
|
1387 |
#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
|
|
|
1388 |
#enableChannel: #visualIsPseudoColor
|
|
|
1389 |
#model: #useFixPalette
|
|
|
1390 |
#translateLabel: true
|
|
|
1391 |
#labelChannel: #useFixPaletteLabel
|
|
|
1392 |
)
|
|
|
1393 |
#(#CheckBoxSpec
|
|
|
1394 |
#label: 'Use Fix Gray Color Palette'
|
|
|
1395 |
#name: 'UseFixGrayPaletteCheckBox'
|
|
|
1396 |
#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
|
|
|
1397 |
#enableChannel: #visualIsPseudoColor
|
|
|
1398 |
#model: #useFixGrayPalette
|
|
|
1399 |
#translateLabel: true
|
|
|
1400 |
#labelChannel: #useFixGrayPaletteLabel
|
|
|
1401 |
)
|
|
|
1402 |
#(#LabelSpec
|
|
|
1403 |
#label: 'Image Display:'
|
|
|
1404 |
#name: 'ImageDisplayLabel'
|
|
|
1405 |
#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
|
|
|
1406 |
#translateLabel: true
|
|
|
1407 |
#adjust: #right
|
|
|
1408 |
)
|
|
|
1409 |
#(#PopUpListSpec
|
|
|
1410 |
#label: 'image display'
|
|
|
1411 |
#name: 'DitherListPopUpList'
|
|
|
1412 |
#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
|
|
|
1413 |
#tabable: true
|
|
|
1414 |
#model: #ditherListSelection
|
|
|
1415 |
#enableChannel: #ditherSymsNotNil
|
|
|
1416 |
#menu: #ditherList
|
|
|
1417 |
#useIndex: true
|
|
|
1418 |
)
|
|
|
1419 |
#(#CheckBoxSpec
|
|
|
1420 |
#label: 'Allow Colored/Grayscale Icons'
|
|
|
1421 |
#name: 'AllowColoredGrayscaleIconsCheckBox'
|
|
|
1422 |
#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
|
|
|
1423 |
#model: #deepIcons
|
|
|
1424 |
#translateLabel: true
|
|
|
1425 |
)
|
|
|
1426 |
#(#DividerSpec
|
|
|
1427 |
#name: 'Separator3'
|
|
|
1428 |
#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
|
|
|
1429 |
)
|
|
|
1430 |
#(#LabelSpec
|
|
|
1431 |
#label: 'ClipBoard Encoding:'
|
|
|
1432 |
#name: 'ClipBoardEncodingLabel'
|
|
|
1433 |
#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
|
|
|
1434 |
#translateLabel: true
|
|
|
1435 |
#adjust: #right
|
|
|
1436 |
)
|
|
|
1437 |
#(#PopUpListSpec
|
|
|
1438 |
#label: 'image display'
|
|
|
1439 |
#name: 'ClipEncodingListPopUpList'
|
|
|
1440 |
#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
|
|
|
1441 |
#tabable: true
|
|
|
1442 |
#model: #clipEncodingListSelection
|
|
|
1443 |
#menu: #clipEncodingList
|
|
|
1444 |
#useIndex: true
|
|
|
1445 |
)
|
|
|
1446 |
#(#DividerSpec
|
|
|
1447 |
#name: 'Separator4'
|
|
|
1448 |
#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
|
|
|
1449 |
)
|
|
|
1450 |
)
|
|
|
1451 |
|
|
|
1452 |
)
|
|
|
1453 |
)
|
|
|
1454 |
! !
|
|
|
1455 |
|
|
|
1456 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
|
|
|
1457 |
|
|
|
1458 |
evaluateModified
|
|
|
1459 |
|
|
|
1460 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
1461 |
!
|
|
|
1462 |
|
|
|
1463 |
help
|
|
|
1464 |
|
|
|
1465 |
"/ self warn:'no help available here'.
|
|
|
1466 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
|
|
|
1467 |
!
|
|
|
1468 |
|
|
|
1469 |
loadRequest
|
|
|
1470 |
|
|
|
1471 |
self useFixPalette value:screen fixColors notNil.
|
|
|
1472 |
self useFixGrayPalette value:screen fixGrayColors notNil.
|
|
|
1473 |
self isColorMonitor value:screen hasColors.
|
|
|
1474 |
self sizeX value:screen widthInMillimeter.
|
|
|
1475 |
self sizeY value:screen heightInMillimeter.
|
|
|
1476 |
|
|
|
1477 |
self deepIcons value:screen supportsDeepIcons.
|
|
|
1478 |
ditherSyms notNil ifTrue:[
|
|
|
1479 |
self ditherListSelection value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
|
|
|
1480 |
].
|
|
|
1481 |
self clipEncodingListSelection value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1).
|
|
|
1482 |
self modifiedChannel value:false.
|
|
|
1483 |
!
|
|
|
1484 |
|
|
|
1485 |
saveSettings
|
|
|
1486 |
|
|
|
1487 |
self hasUnsavedChanges ifTrue:[
|
|
|
1488 |
Image flushDeviceImages.
|
|
|
1489 |
|
|
|
1490 |
screen visualType == #PseudoColor ifTrue:[
|
|
|
1491 |
self useFixPalette value ifTrue:[
|
|
|
1492 |
Color colorAllocationFailSignal handle:[:ex |
|
|
|
1493 |
self warn:'Could not allocate colors.'.
|
|
|
1494 |
] do:[
|
|
|
1495 |
Color getColorsRed:4 green:8 blue:4 on:screen
|
|
|
1496 |
]
|
|
|
1497 |
] ifFalse:[
|
|
|
1498 |
screen releaseFixColors
|
|
|
1499 |
].
|
|
|
1500 |
|
|
|
1501 |
self useFixGrayPalette value ifTrue:[
|
|
|
1502 |
Color colorAllocationFailSignal handle:[:ex |
|
|
|
1503 |
self warn:'Could not allocate colors.'.
|
|
|
1504 |
] do:[
|
|
|
1505 |
Color getGrayColors:32 on:screen
|
|
|
1506 |
]
|
|
|
1507 |
] ifFalse:[
|
|
|
1508 |
screen releaseFixGrayColors
|
|
|
1509 |
]
|
|
|
1510 |
].
|
|
|
1511 |
screen hasColors:self isColorMonitor value.
|
|
|
1512 |
screen widthInMillimeter:self sizeX value.
|
|
|
1513 |
screen heightInMillimeter:self sizeY value.
|
|
|
1514 |
|
|
|
1515 |
screen supportsDeepIcons:self deepIcons value.
|
|
|
1516 |
ditherSyms notNil ifTrue:[
|
|
|
1517 |
Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
|
|
|
1518 |
].
|
|
|
1519 |
|
|
|
1520 |
WindowGroup activeGroup withWaitCursorDo:[
|
|
|
1521 |
View defaultStyle:(View defaultStyle).
|
|
|
1522 |
].
|
|
|
1523 |
|
|
|
1524 |
screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
|
|
|
1525 |
self modifiedChannel value:false.
|
|
|
1526 |
].
|
|
|
1527 |
! !
|
|
|
1528 |
|
|
|
1529 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
|
|
|
1530 |
|
|
|
1531 |
clipEncodingList
|
|
|
1532 |
|
|
|
1533 |
clipEncodingList isNil ifTrue:[
|
|
|
1534 |
clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
|
|
|
1535 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
1536 |
"/ clipEncodingList addDependent:self.
|
|
|
1537 |
"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
|
|
|
1538 |
].
|
|
|
1539 |
^ clipEncodingList.
|
|
|
1540 |
!
|
|
|
1541 |
|
|
|
1542 |
clipEncodingListSelection
|
|
|
1543 |
|
|
|
1544 |
clipEncodingListSelection isNil ifTrue:[
|
|
|
1545 |
clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
|
|
|
1546 |
clipEncodingListSelection onChangeSend:#evaluateModified to:self.
|
|
|
1547 |
].
|
|
|
1548 |
^ clipEncodingListSelection.
|
|
|
1549 |
!
|
|
|
1550 |
|
|
|
1551 |
deepIcons
|
|
|
1552 |
|
|
|
1553 |
deepIcons isNil ifTrue:[
|
|
|
1554 |
deepIcons := screen supportsDeepIcons asValue.
|
|
|
1555 |
deepIcons onChangeSend:#evaluateModified to:self.
|
|
|
1556 |
].
|
|
|
1557 |
^ deepIcons.
|
|
|
1558 |
!
|
|
|
1559 |
|
|
|
1560 |
ditherList
|
|
|
1561 |
|
|
|
1562 |
ditherList isNil ifTrue:[
|
|
|
1563 |
ditherList := ValueHolder new.
|
|
|
1564 |
].
|
|
|
1565 |
^ ditherList.
|
|
|
1566 |
!
|
|
|
1567 |
|
|
|
1568 |
ditherListSelection
|
|
|
1569 |
|
|
|
1570 |
ditherListSelection isNil ifTrue:[
|
|
|
1571 |
ditherSyms notNil ifTrue:[
|
|
|
1572 |
ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
|
|
|
1573 |
] ifFalse:[
|
|
|
1574 |
ditherListSelection := ValueHolder new.
|
|
|
1575 |
].
|
|
|
1576 |
ditherListSelection onChangeSend:#evaluateModified to:self.
|
|
|
1577 |
].
|
|
|
1578 |
^ ditherListSelection.
|
|
|
1579 |
!
|
|
|
1580 |
|
|
|
1581 |
ditherSymsNotNil
|
|
|
1582 |
|
|
|
1583 |
ditherSymsNotNil isNil ifTrue:[
|
|
|
1584 |
ditherSymsNotNil := ditherSyms notNil asValue.
|
|
|
1585 |
].
|
|
|
1586 |
^ ditherSymsNotNil.
|
|
|
1587 |
!
|
|
|
1588 |
|
|
|
1589 |
isColorMonitor
|
|
|
1590 |
|
|
|
1591 |
isColorMonitor isNil ifTrue:[
|
|
|
1592 |
isColorMonitor := screen hasColors asValue.
|
|
|
1593 |
isColorMonitor onChangeSend:#evaluateModified to:self.
|
|
|
1594 |
].
|
|
|
1595 |
^ isColorMonitor.
|
|
|
1596 |
!
|
|
|
1597 |
|
|
|
1598 |
modifiedChannel
|
|
|
1599 |
|
|
|
1600 |
modifiedChannel isNil ifTrue:[
|
|
|
1601 |
modifiedChannel := false asValue.
|
|
|
1602 |
].
|
|
|
1603 |
^ modifiedChannel
|
|
|
1604 |
!
|
|
|
1605 |
|
|
|
1606 |
monitorList
|
|
|
1607 |
|
|
|
1608 |
monitorList isNil ifTrue:[
|
|
|
1609 |
monitorList := (resources array:(sizeInfos collect:[:entry | entry at:1])) asList.
|
|
|
1610 |
].
|
|
|
1611 |
^ monitorList.
|
|
|
1612 |
!
|
|
|
1613 |
|
|
|
1614 |
monitorSelection
|
|
|
1615 |
|
|
|
1616 |
monitorSelection isNil ifTrue:[
|
|
|
1617 |
monitorSelection := ValueHolder new.
|
|
|
1618 |
monitorSelection addDependent:self.
|
|
|
1619 |
monitorSelection onChangeSend:#evaluateModified to:self.
|
|
|
1620 |
monitorSelection changed.
|
|
|
1621 |
].
|
|
|
1622 |
^ monitorSelection.
|
|
|
1623 |
!
|
|
|
1624 |
|
|
|
1625 |
screenDepthVisualLabelHolder
|
|
|
1626 |
|
|
|
1627 |
screenDepthVisualLabelHolder isNil ifTrue:[
|
|
|
1628 |
screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
|
|
|
1629 |
with:screen depth printString
|
|
|
1630 |
with:screen visualType
|
|
|
1631 |
with:screen serverVendor) asValue.
|
|
|
1632 |
].
|
|
|
1633 |
^ screenDepthVisualLabelHolder.
|
|
|
1634 |
!
|
|
|
1635 |
|
|
|
1636 |
sizeX
|
|
|
1637 |
|
|
|
1638 |
sizeX isNil ifTrue:[
|
|
|
1639 |
sizeX := screen widthInMillimeter asValue.
|
|
|
1640 |
sizeX addDependent:self.
|
|
|
1641 |
sizeX changed.
|
|
|
1642 |
sizeX onChangeSend:#evaluateModified to:self.
|
|
|
1643 |
].
|
|
|
1644 |
^ sizeX.
|
|
|
1645 |
!
|
|
|
1646 |
|
|
|
1647 |
sizeY
|
|
|
1648 |
|
|
|
1649 |
sizeY isNil ifTrue:[
|
|
|
1650 |
sizeY := screen heightInMillimeter asValue.
|
|
|
1651 |
sizeY addDependent:self.
|
|
|
1652 |
sizeY changed.
|
|
|
1653 |
sizeY onChangeSend:#evaluateModified to:self.
|
|
|
1654 |
].
|
|
|
1655 |
^ sizeY.
|
|
|
1656 |
!
|
|
|
1657 |
|
|
|
1658 |
useFixGrayPalette
|
|
|
1659 |
|
|
|
1660 |
useFixGrayPalette isNil ifTrue:[
|
|
|
1661 |
useFixGrayPalette := screen fixGrayColors notNil asValue.
|
|
|
1662 |
useFixGrayPalette onChangeSend:#evaluateModified to:self.
|
|
|
1663 |
].
|
|
|
1664 |
^ useFixGrayPalette.
|
|
|
1665 |
!
|
|
|
1666 |
|
|
|
1667 |
useFixGrayPaletteLabel
|
|
|
1668 |
|
|
|
1669 |
useFixGrayPaletteLabel isNil ifTrue:[
|
|
|
1670 |
useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
|
|
|
1671 |
].
|
|
|
1672 |
^ useFixGrayPaletteLabel.
|
|
|
1673 |
!
|
|
|
1674 |
|
|
|
1675 |
useFixPalette
|
|
|
1676 |
|
|
|
1677 |
useFixPalette isNil ifTrue:[
|
|
|
1678 |
useFixPalette := screen fixColors notNil asValue.
|
|
|
1679 |
useFixPalette onChangeSend:#evaluateModified to:self.
|
|
|
1680 |
].
|
|
|
1681 |
^ useFixPalette.
|
|
|
1682 |
!
|
|
|
1683 |
|
|
|
1684 |
useFixPaletteLabel
|
|
|
1685 |
|
|
|
1686 |
useFixPaletteLabel isNil ifTrue:[
|
|
|
1687 |
useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
|
|
|
1688 |
].
|
|
|
1689 |
^ useFixPaletteLabel.
|
|
|
1690 |
!
|
|
|
1691 |
|
|
|
1692 |
visualIsPseudoColor
|
|
|
1693 |
|
|
|
1694 |
visualIsPseudoColor isNil ifTrue:[
|
|
|
1695 |
visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
|
|
|
1696 |
visualIsPseudoColor onChangeSend:#evaluateModified to:self.
|
|
|
1697 |
].
|
|
|
1698 |
^ visualIsPseudoColor.
|
|
|
1699 |
! !
|
|
|
1700 |
|
|
|
1701 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
|
|
|
1702 |
|
|
|
1703 |
monitorSelectionChanged
|
|
|
1704 |
|
|
|
1705 |
| sel sizeInfoEntry sizes|
|
|
|
1706 |
|
|
|
1707 |
sel := self monitorSelection value.
|
|
|
1708 |
(sel notNil and:[sel ~~ 0]) ifTrue:[
|
|
|
1709 |
sizeInfoEntry := sizeInfos at:sel.
|
|
|
1710 |
sizes := sizeInfoEntry at:2.
|
|
|
1711 |
self sizeX value:(sizes at:1).
|
|
|
1712 |
self sizeY value:(sizes at:2).
|
|
|
1713 |
].
|
|
|
1714 |
!
|
|
|
1715 |
|
|
|
1716 |
sizeXorYChanged
|
|
|
1717 |
| sizes idx|
|
|
|
1718 |
|
|
|
1719 |
sizes := sizeInfos collect:[:entry | entry at:2].
|
|
|
1720 |
idx := sizes findFirst:[:entry |
|
|
|
1721 |
((entry at:1) = sizeX value)
|
|
|
1722 |
and:[((entry at:2) = sizeY value)]
|
|
|
1723 |
].
|
|
|
1724 |
idx ~~ 0 ifTrue:[
|
|
|
1725 |
self monitorSelection value:idx
|
|
|
1726 |
].
|
|
|
1727 |
!
|
|
|
1728 |
|
|
|
1729 |
update:something with:aParameter from:changedObject
|
|
|
1730 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
1731 |
|
|
|
1732 |
"stub code automatically generated - please change as required"
|
|
|
1733 |
|
|
|
1734 |
changedObject == self monitorSelection ifTrue:[
|
|
|
1735 |
self monitorSelectionChanged.
|
|
|
1736 |
^ self.
|
|
|
1737 |
].
|
|
|
1738 |
(changedObject == self sizeX or:[self sizeY]) ifTrue:[
|
|
|
1739 |
self sizeXorYChanged.
|
|
|
1740 |
^ self.
|
|
|
1741 |
].
|
|
|
1742 |
|
|
|
1743 |
super update:something with:aParameter from:changedObject
|
|
|
1744 |
! !
|
|
|
1745 |
|
|
|
1746 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
|
|
|
1747 |
|
|
|
1748 |
initialize
|
|
|
1749 |
|
|
|
1750 |
| listOfSizes visual|
|
|
4387
|
1751 |
resources := self class classResources.
|
|
4286
|
1752 |
screen := Screen current.
|
|
|
1753 |
listOfSizes := resources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
|
|
|
1754 |
listOfSizes == #default ifTrue:[
|
|
|
1755 |
"/ nothing in resource file; offer at least some.
|
|
|
1756 |
sizeInfos := #(
|
|
|
1757 |
( '11.3'' (235mm x 175mm) LCD' (235 175) )
|
|
|
1758 |
( '17'' (325mm x 245mm)' (325 245) )
|
|
|
1759 |
( '19'' (340mm x 270mm)' (340 270) )
|
|
|
1760 |
( '20'' (350mm x 280mm)' (350 280) )
|
|
|
1761 |
( '21'' (365mm x 285mm)' (365 285) )
|
|
|
1762 |
).
|
|
|
1763 |
] ifFalse:[
|
|
|
1764 |
sizeInfos := resources array:listOfSizes.
|
|
|
1765 |
].
|
|
|
1766 |
visual := screen visualType.
|
|
|
1767 |
(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
|
|
|
1768 |
ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
|
|
|
1769 |
ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
|
|
|
1770 |
] ifFalse:[
|
|
|
1771 |
visual ~~ #TrueColor ifTrue:[
|
|
|
1772 |
ditherStyles := self class trueColorDitherStrings.
|
|
|
1773 |
ditherSyms := self class trueColorDitherSyms.
|
|
|
1774 |
]
|
|
|
1775 |
].
|
|
|
1776 |
super initialize
|
|
|
1777 |
!
|
|
|
1778 |
|
|
|
1779 |
postOpen
|
|
|
1780 |
!
|
|
|
1781 |
|
|
|
1782 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
1783 |
|
|
|
1784 |
self postOpen.
|
|
|
1785 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
1786 |
!
|
|
|
1787 |
|
|
|
1788 |
postOpenWith:aBuilder
|
|
|
1789 |
|
|
|
1790 |
self postOpen.
|
|
|
1791 |
^ super postOpenWith:aBuilder
|
|
|
1792 |
! !
|
|
|
1793 |
|
|
|
1794 |
!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
|
|
|
1795 |
|
|
|
1796 |
hasUnsavedChanges
|
|
|
1797 |
|
|
|
1798 |
^ (
|
|
|
1799 |
self useFixPalette value ~= screen fixColors notNil or:[
|
|
|
1800 |
self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
|
|
|
1801 |
self isColorMonitor value ~= screen hasColors or:[
|
|
|
1802 |
self sizeX value ~= screen widthInMillimeter or:[
|
|
|
1803 |
self sizeY value ~= screen heightInMillimeter or:[
|
|
|
1804 |
|
|
|
1805 |
self deepIcons value ~= screen supportsDeepIcons or:[
|
|
|
1806 |
(ditherSyms notNil and:[
|
|
|
1807 |
self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
|
|
|
1808 |
]) or:[
|
|
|
1809 |
self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
|
|
|
1810 |
]]]]]]]
|
|
|
1811 |
)
|
|
|
1812 |
! !
|
|
|
1813 |
|
|
4312
|
1814 |
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
|
|
|
1815 |
|
|
|
1816 |
defaultIcon
|
|
|
1817 |
"This resource specification was automatically generated
|
|
|
1818 |
by the ImageEditor of ST/X."
|
|
|
1819 |
|
|
|
1820 |
"Do not manually edit this!! If it is corrupted,
|
|
|
1821 |
the ImageEditor may not be able to read the specification."
|
|
|
1822 |
|
|
|
1823 |
"
|
|
|
1824 |
self defaultIcon inspect
|
|
|
1825 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
1826 |
Icon flushCachedIcons
|
|
|
1827 |
"
|
|
|
1828 |
|
|
|
1829 |
<resource: #image>
|
|
|
1830 |
|
|
|
1831 |
^Icon
|
|
|
1832 |
constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
|
|
|
1833 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
1834 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
|
|
|
1835 |
@@(JBP$IBP$FBP$IBP$IAPTE@0L@@@@JB $IBP$IA $IBP$IBPTEAPLC@@@@B (FA XFA XFA XFA TE@0LC@0@@@@(JBP$IBP$FBP$IAPTE@0LC@0P@@@@J
|
|
|
1836 |
B $IBP$IA $IAPTE@0LC@0PK@@@@B (IBP$IBPXIBPTEAPLC@0LDB0@@@@(JA XFA XFA TH@0LC@0PD@ @@@@@JB $IBP$I@@ HB@LC@0PB@ @@@@@@B (I
|
|
|
1837 |
BP$IBPXHB@ HB@ K@PD@@@@@@@(JA XFA @HB@ HB@ F@@DA@@@@@@@JB XFA X@B@ HB@ FA @A@P@@@@@@B (IBP$I@P HB@XFA (I@PD@@@@@@@(JBP$I
|
|
|
1838 |
@PHKA XJBP$IBPDA@@@@@@@JB @@@@D@@@@@@@@@@@@A@P@@@@@@B (@@@D@@@@@@@@@@@@@@PD@@@@@@@(JBP$IBP$@BP$IBP$IBPDA@@@@@@HA@PDA@PDA
|
|
|
1839 |
@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 255 128 0 192 88 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255 220 220 220 64 0 0]; 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]
|
|
|
1840 |
! !
|
|
|
1841 |
|
|
4286
|
1842 |
!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
|
|
|
1843 |
|
|
|
1844 |
windowSpec
|
|
|
1845 |
"This resource specification was automatically generated
|
|
|
1846 |
by the UIPainter of ST/X."
|
|
|
1847 |
|
|
|
1848 |
"Do not manually edit this!! If it is corrupted,
|
|
|
1849 |
the UIPainter may not be able to read the specification."
|
|
|
1850 |
|
|
|
1851 |
"
|
|
4310
|
1852 |
UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
|
|
|
1853 |
AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
|
|
|
1854 |
AbstractSettingsApplication::EditSettingsAppl open
|
|
4286
|
1855 |
"
|
|
|
1856 |
|
|
|
1857 |
<resource: #canvas>
|
|
|
1858 |
|
|
|
1859 |
^
|
|
|
1860 |
#(#FullSpec
|
|
|
1861 |
#name: #windowSpec
|
|
|
1862 |
#window:
|
|
|
1863 |
#(#WindowSpec
|
|
4405
|
1864 |
#label: 'Editor Settings'
|
|
|
1865 |
#name: 'Editor Settings'
|
|
4286
|
1866 |
#min: #(#Point 10 10)
|
|
|
1867 |
#max: #(#Point 1024 768)
|
|
4310
|
1868 |
#bounds: #(#Rectangle 16 42 616 362)
|
|
4286
|
1869 |
)
|
|
|
1870 |
#component:
|
|
|
1871 |
#(#SpecCollection
|
|
|
1872 |
#collection: #(
|
|
|
1873 |
#(#VerticalPanelViewSpec
|
|
|
1874 |
#name: 'VerticalPanel2'
|
|
4310
|
1875 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
4286
|
1876 |
#horizontalLayout: #fit
|
|
|
1877 |
#verticalLayout: #center
|
|
|
1878 |
#horizontalSpace: 3
|
|
|
1879 |
#verticalSpace: 3
|
|
|
1880 |
#component:
|
|
|
1881 |
#(#SpecCollection
|
|
|
1882 |
#collection: #(
|
|
|
1883 |
#(#VerticalPanelViewSpec
|
|
|
1884 |
#name: 'VerticalPanel1'
|
|
|
1885 |
#horizontalLayout: #fit
|
|
|
1886 |
#verticalLayout: #top
|
|
|
1887 |
#horizontalSpace: 3
|
|
|
1888 |
#verticalSpace: 3
|
|
|
1889 |
#component:
|
|
|
1890 |
#(#SpecCollection
|
|
|
1891 |
#collection: #(
|
|
|
1892 |
#(#CheckBoxSpec
|
|
|
1893 |
#label: 'CTRL-Key to Start TextDrag'
|
|
|
1894 |
#name: 'CTRLKeyStTextDragCheckBox'
|
|
|
1895 |
#model: #startTextDragWithControl
|
|
|
1896 |
#translateLabel: true
|
|
|
1897 |
#extent: #(#Point 600 23)
|
|
|
1898 |
)
|
|
|
1899 |
#(#CheckBoxSpec
|
|
|
1900 |
#label: 'SearchBox is Modal'
|
|
|
1901 |
#name: 'SearchBoxModalCheckBox'
|
|
|
1902 |
#model: #searchDialogIsModal
|
|
|
1903 |
#translateLabel: true
|
|
|
1904 |
#extent: #(#Point 600 23)
|
|
|
1905 |
)
|
|
|
1906 |
#(#CheckBoxSpec
|
|
|
1907 |
#label: 'Tab Stops in Multiples of 4'
|
|
|
1908 |
#name: 'TabStopsMultiples4CheckBox'
|
|
|
1909 |
#model: #tabsIs4
|
|
|
1910 |
#translateLabel: true
|
|
|
1911 |
#extent: #(#Point 600 23)
|
|
|
1912 |
)
|
|
|
1913 |
#(#CheckBoxSpec
|
|
|
1914 |
#label: 'Double Click Select Behavior as in ST80'
|
|
|
1915 |
#name: 'DoubleClickSelectBehaviorST80CheckBox'
|
|
|
1916 |
#model: #st80DoubleClickSelectMode
|
|
|
1917 |
#translateLabel: true
|
|
|
1918 |
#extent: #(#Point 600 23)
|
|
|
1919 |
)
|
|
|
1920 |
#(#CheckBoxSpec
|
|
|
1921 |
#label: 'Cursor has ST80 Line-end Behavior'
|
|
|
1922 |
#name: 'CursorST80LineEndBehaviorCheckBox'
|
|
|
1923 |
#model: #st80EditingMode
|
|
|
1924 |
#translateLabel: true
|
|
|
1925 |
#extent: #(#Point 600 23)
|
|
|
1926 |
)
|
|
|
1927 |
)
|
|
|
1928 |
|
|
|
1929 |
)
|
|
4310
|
1930 |
#extent: #(#Point 600 127)
|
|
4286
|
1931 |
)
|
|
|
1932 |
)
|
|
|
1933 |
|
|
|
1934 |
)
|
|
|
1935 |
)
|
|
|
1936 |
)
|
|
|
1937 |
|
|
|
1938 |
)
|
|
|
1939 |
)
|
|
|
1940 |
! !
|
|
|
1941 |
|
|
|
1942 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
|
|
|
1943 |
|
|
|
1944 |
evaluateModified
|
|
|
1945 |
|
|
|
1946 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
1947 |
!
|
|
|
1948 |
|
|
|
1949 |
help
|
|
|
1950 |
|
|
|
1951 |
"/ self warn:'no help available here'.
|
|
|
1952 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
|
|
|
1953 |
!
|
|
|
1954 |
|
|
|
1955 |
loadRequest
|
|
|
1956 |
|
|
|
1957 |
self st80EditingMode value: UserPreferences current st80EditMode.
|
|
|
1958 |
self st80DoubleClickSelectMode value: TextView st80SelectMode.
|
|
|
1959 |
self tabsIs4 value: (ListView userDefaultTabPositions = ListView tab4Positions).
|
|
|
1960 |
self searchDialogIsModal value: UserPreferences current searchDialogIsModal.
|
|
|
1961 |
self startTextDragWithControl value: UserPreferences current startTextDragWithControl.
|
|
|
1962 |
self modifiedChannel value:false.
|
|
|
1963 |
!
|
|
|
1964 |
|
|
|
1965 |
saveSettings
|
|
|
1966 |
|
|
|
1967 |
self hasUnsavedChanges ifTrue:[
|
|
|
1968 |
UserPreferences current st80EditMode:(self st80EditingMode value).
|
|
|
1969 |
TextView st80SelectMode:(self st80DoubleClickSelectMode value).
|
|
|
1970 |
tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
|
|
|
1971 |
ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
|
|
|
1972 |
ListView allSubInstancesDo:[:eachKindOfListView |
|
|
|
1973 |
self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
|
|
|
1974 |
].
|
|
|
1975 |
].
|
|
|
1976 |
UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
|
|
|
1977 |
UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
|
|
|
1978 |
self modifiedChannel value:false.
|
|
|
1979 |
].
|
|
|
1980 |
! !
|
|
|
1981 |
|
|
|
1982 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
|
|
|
1983 |
|
|
|
1984 |
modifiedChannel
|
|
|
1985 |
|
|
|
1986 |
modifiedChannel isNil ifTrue:[
|
|
|
1987 |
modifiedChannel := false asValue.
|
|
|
1988 |
].
|
|
|
1989 |
^ modifiedChannel
|
|
|
1990 |
!
|
|
|
1991 |
|
|
|
1992 |
searchDialogIsModal
|
|
|
1993 |
|
|
|
1994 |
searchDialogIsModal isNil ifTrue:[
|
|
|
1995 |
searchDialogIsModal := true asValue.
|
|
|
1996 |
searchDialogIsModal onChangeSend:#evaluateModified to:self.
|
|
|
1997 |
].
|
|
|
1998 |
^ searchDialogIsModal.
|
|
|
1999 |
!
|
|
|
2000 |
|
|
|
2001 |
st80DoubleClickSelectMode
|
|
|
2002 |
|
|
|
2003 |
st80DoubleClickSelectMode isNil ifTrue:[
|
|
|
2004 |
st80DoubleClickSelectMode := true asValue.
|
|
|
2005 |
st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
|
|
|
2006 |
].
|
|
|
2007 |
^ st80DoubleClickSelectMode.
|
|
|
2008 |
!
|
|
|
2009 |
|
|
|
2010 |
st80EditingMode
|
|
|
2011 |
|
|
|
2012 |
st80EditingMode isNil ifTrue:[
|
|
|
2013 |
st80EditingMode := true asValue.
|
|
|
2014 |
st80EditingMode onChangeSend:#evaluateModified to:self.
|
|
|
2015 |
].
|
|
|
2016 |
^ st80EditingMode.
|
|
|
2017 |
!
|
|
|
2018 |
|
|
|
2019 |
startTextDragWithControl
|
|
|
2020 |
|
|
|
2021 |
startTextDragWithControl isNil ifTrue:[
|
|
|
2022 |
startTextDragWithControl := true asValue.
|
|
|
2023 |
startTextDragWithControl onChangeSend:#evaluateModified to:self.
|
|
|
2024 |
].
|
|
|
2025 |
^ startTextDragWithControl.
|
|
|
2026 |
!
|
|
|
2027 |
|
|
|
2028 |
tabsIs4
|
|
|
2029 |
|
|
|
2030 |
tabsIs4 isNil ifTrue:[
|
|
|
2031 |
tabsIs4 := true asValue.
|
|
|
2032 |
tabsIs4 onChangeSend:#evaluateModified to:self.
|
|
|
2033 |
].
|
|
|
2034 |
^ tabsIs4.
|
|
|
2035 |
! !
|
|
|
2036 |
|
|
|
2037 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'change & update'!
|
|
|
2038 |
|
|
|
2039 |
update:something with:aParameter from:changedObject
|
|
|
2040 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
2041 |
|
|
|
2042 |
"stub code automatically generated - please change as required"
|
|
|
2043 |
|
|
|
2044 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
2045 |
"/ ^ self.
|
|
|
2046 |
"/ ].
|
|
|
2047 |
|
|
|
2048 |
super update:something with:aParameter from:changedObject
|
|
|
2049 |
! !
|
|
|
2050 |
|
|
|
2051 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
|
|
|
2052 |
|
|
|
2053 |
initialize
|
|
|
2054 |
|
|
4387
|
2055 |
resources := self class classResources.
|
|
4286
|
2056 |
self loadRequest.
|
|
|
2057 |
super initialize
|
|
|
2058 |
!
|
|
|
2059 |
|
|
|
2060 |
postOpen
|
|
|
2061 |
!
|
|
|
2062 |
|
|
|
2063 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
2064 |
|
|
|
2065 |
self postOpen.
|
|
|
2066 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
2067 |
!
|
|
|
2068 |
|
|
|
2069 |
postOpenWith:aBuilder
|
|
|
2070 |
|
|
|
2071 |
self postOpen.
|
|
|
2072 |
^ super postOpenWith:aBuilder
|
|
|
2073 |
! !
|
|
|
2074 |
|
|
|
2075 |
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
|
|
|
2076 |
|
|
|
2077 |
hasUnsavedChanges
|
|
|
2078 |
|
|
|
2079 |
^ (
|
|
|
2080 |
UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
|
|
|
2081 |
TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
|
|
|
2082 |
(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
|
|
|
2083 |
ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
|
|
|
2084 |
]]) or:[
|
|
|
2085 |
UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
|
|
|
2086 |
UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
|
|
|
2087 |
)
|
|
|
2088 |
! !
|
|
|
2089 |
|
|
|
2090 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
|
|
|
2091 |
|
|
|
2092 |
widgetList
|
|
|
2093 |
|
|
|
2094 |
^ #(
|
|
|
2095 |
'All'
|
|
|
2096 |
'Labels'
|
|
|
2097 |
'Buttons'
|
|
|
2098 |
'Lists'
|
|
|
2099 |
'Menus'
|
|
|
2100 |
'Edited Text'
|
|
|
2101 |
)
|
|
|
2102 |
! !
|
|
|
2103 |
|
|
4398
|
2104 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
|
|
|
2105 |
|
|
|
2106 |
defaultIcon
|
|
|
2107 |
"This resource specification was automatically generated
|
|
|
2108 |
by the ImageEditor of ST/X."
|
|
|
2109 |
|
|
|
2110 |
"Do not manually edit this!! If it is corrupted,
|
|
|
2111 |
the ImageEditor may not be able to read the specification."
|
|
|
2112 |
|
|
|
2113 |
"
|
|
|
2114 |
self defaultIcon inspect
|
|
|
2115 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
2116 |
Icon flushCachedIcons
|
|
|
2117 |
"
|
|
|
2118 |
|
|
|
2119 |
<resource: #image>
|
|
|
2120 |
|
|
|
2121 |
^Icon
|
|
|
2122 |
constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
|
|
|
2123 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
2124 |
@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
|
|
|
2125 |
ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
|
|
|
2126 |
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]
|
|
|
2127 |
!
|
|
|
2128 |
|
|
|
2129 |
defaultIcon2
|
|
|
2130 |
"This resource specification was automatically generated
|
|
|
2131 |
by the ImageEditor of ST/X."
|
|
|
2132 |
|
|
|
2133 |
"Do not manually edit this!! If it is corrupted,
|
|
|
2134 |
the ImageEditor may not be able to read the specification."
|
|
|
2135 |
|
|
|
2136 |
"
|
|
|
2137 |
self defaultIcon2 inspect
|
|
|
2138 |
ImageEditor openOnClass:self andSelector:#defaultIcon2
|
|
|
2139 |
Icon flushCachedIcons
|
|
|
2140 |
"
|
|
|
2141 |
|
|
|
2142 |
<resource: #image>
|
|
|
2143 |
|
|
|
2144 |
^Icon
|
|
|
2145 |
constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
|
|
|
2146 |
ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
2147 |
@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
|
|
|
2148 |
ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
|
|
|
2149 |
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]
|
|
|
2150 |
! !
|
|
|
2151 |
|
|
4286
|
2152 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
|
|
|
2153 |
|
|
|
2154 |
fontForEncoding:encodingMatch
|
|
|
2155 |
|
|
|
2156 |
| inst |
|
|
|
2157 |
|
|
|
2158 |
inst := self new.
|
|
|
2159 |
inst encodingMatch:encodingMatch.
|
|
|
2160 |
self initialize.
|
|
|
2161 |
self open.
|
|
|
2162 |
! !
|
|
|
2163 |
|
|
|
2164 |
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
|
|
|
2165 |
|
|
|
2166 |
windowSpec
|
|
|
2167 |
"This resource specification was automatically generated
|
|
|
2168 |
by the UIPainter of ST/X."
|
|
|
2169 |
|
|
|
2170 |
"Do not manually edit this!! If it is corrupted,
|
|
|
2171 |
the UIPainter may not be able to read the specification."
|
|
|
2172 |
|
|
|
2173 |
"
|
|
4310
|
2174 |
UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
|
|
|
2175 |
AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
|
|
|
2176 |
AbstractSettingsApplication::FontSettingsAppl open
|
|
4286
|
2177 |
"
|
|
|
2178 |
|
|
|
2179 |
<resource: #canvas>
|
|
|
2180 |
|
|
|
2181 |
^
|
|
|
2182 |
#(#FullSpec
|
|
|
2183 |
#name: #windowSpec
|
|
|
2184 |
#window:
|
|
|
2185 |
#(#WindowSpec
|
|
|
2186 |
#label: 'Font Settings'
|
|
|
2187 |
#name: 'Font Settings'
|
|
|
2188 |
#min: #(#Point 10 10)
|
|
|
2189 |
#max: #(#Point 1024 768)
|
|
4310
|
2190 |
#bounds: #(#Rectangle 16 42 512 654)
|
|
4286
|
2191 |
)
|
|
|
2192 |
#component:
|
|
|
2193 |
#(#SpecCollection
|
|
|
2194 |
#collection: #(
|
|
4310
|
2195 |
#(#VerticalPanelViewSpec
|
|
|
2196 |
#name: 'VerticalPanel1'
|
|
|
2197 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
2198 |
#horizontalLayout: #fitSpace
|
|
4286
|
2199 |
#verticalLayout: #center
|
|
|
2200 |
#horizontalSpace: 3
|
|
|
2201 |
#verticalSpace: 3
|
|
|
2202 |
#component:
|
|
|
2203 |
#(#SpecCollection
|
|
|
2204 |
#collection: #(
|
|
4310
|
2205 |
#(#ViewSpec
|
|
|
2206 |
#name: 'AllBox'
|
|
|
2207 |
#component:
|
|
|
2208 |
#(#SpecCollection
|
|
|
2209 |
#collection: #(
|
|
|
2210 |
#(#LabelSpec
|
|
|
2211 |
#label: 'All'
|
|
|
2212 |
#name: 'All'
|
|
|
2213 |
#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
|
|
|
2214 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
2215 |
#translateLabel: true
|
|
|
2216 |
#adjust: #left
|
|
|
2217 |
)
|
|
|
2218 |
#(#LabelSpec
|
|
|
2219 |
#label: 'Label'
|
|
|
2220 |
#name: 'AllFont'
|
|
|
2221 |
#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
|
|
|
2222 |
#translateLabel: true
|
|
|
2223 |
#labelChannel: #allFontLabelHolder
|
|
|
2224 |
#adjust: #left
|
|
|
2225 |
#postBuildCallback: #postBuildAllFontLabel:
|
|
|
2226 |
)
|
|
|
2227 |
#(#ActionButtonSpec
|
|
|
2228 |
#label: 'Change ...'
|
|
|
2229 |
#name: 'ChangeAll'
|
|
|
2230 |
#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
|
|
|
2231 |
#translateLabel: true
|
|
|
2232 |
#model: #changeAllFont
|
|
|
2233 |
)
|
|
|
2234 |
#(#DividerSpec
|
|
|
2235 |
#name: 'Separator1'
|
|
|
2236 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
2237 |
)
|
|
|
2238 |
)
|
|
|
2239 |
|
|
|
2240 |
)
|
|
|
2241 |
#extent: #(#Point 490 50)
|
|
4286
|
2242 |
)
|
|
4310
|
2243 |
#(#ViewSpec
|
|
|
2244 |
#name: 'LabelsBox'
|
|
4286
|
2245 |
#component:
|
|
|
2246 |
#(#SpecCollection
|
|
|
2247 |
#collection: #(
|
|
4310
|
2248 |
#(#LabelSpec
|
|
|
2249 |
#label: 'Labels'
|
|
|
2250 |
#name: 'Labels'
|
|
|
2251 |
#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
|
|
|
2252 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
2253 |
#translateLabel: true
|
|
|
2254 |
#adjust: #left
|
|
|
2255 |
)
|
|
|
2256 |
#(#LabelSpec
|
|
|
2257 |
#label: 'Labels'
|
|
|
2258 |
#name: 'LabelsFont'
|
|
|
2259 |
#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
|
|
|
2260 |
#translateLabel: true
|
|
|
2261 |
#labelChannel: #labelsFontLabelHolder
|
|
|
2262 |
#adjust: #left
|
|
|
2263 |
#postBuildCallback: #postBuildLabelsFontLabel:
|
|
|
2264 |
)
|
|
|
2265 |
#(#ActionButtonSpec
|
|
|
2266 |
#label: 'Change ...'
|
|
|
2267 |
#name: 'ChangeLabels'
|
|
|
2268 |
#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
|
|
|
2269 |
#translateLabel: true
|
|
|
2270 |
#model: #changeLabelsFont
|
|
|
2271 |
)
|
|
|
2272 |
#(#DividerSpec
|
|
|
2273 |
#name: 'Separator6'
|
|
|
2274 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
2275 |
)
|
|
|
2276 |
)
|
|
|
2277 |
|
|
|
2278 |
)
|
|
|
2279 |
#extent: #(#Point 490 50)
|
|
|
2280 |
)
|
|
|
2281 |
#(#ViewSpec
|
|
|
2282 |
#name: 'ButtonsBox'
|
|
|
2283 |
#component:
|
|
|
2284 |
#(#SpecCollection
|
|
|
2285 |
#collection: #(
|
|
|
2286 |
#(#LabelSpec
|
|
|
2287 |
#label: 'Buttons'
|
|
|
2288 |
#name: 'Buttons'
|
|
|
2289 |
#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
|
|
|
2290 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
2291 |
#translateLabel: true
|
|
|
2292 |
#adjust: #left
|
|
|
2293 |
)
|
|
|
2294 |
#(#LabelSpec
|
|
|
2295 |
#label: 'Buttons Font'
|
|
|
2296 |
#name: 'ButtonsFont'
|
|
|
2297 |
#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
|
|
|
2298 |
#translateLabel: true
|
|
|
2299 |
#labelChannel: #buttonsFontLabelHolder
|
|
|
2300 |
#adjust: #left
|
|
|
2301 |
#postBuildCallback: #postBuildButtonsFontLabel:
|
|
|
2302 |
)
|
|
|
2303 |
#(#ActionButtonSpec
|
|
|
2304 |
#label: 'Change ...'
|
|
|
2305 |
#name: 'Change Buttons'
|
|
|
2306 |
#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
|
|
|
2307 |
#translateLabel: true
|
|
|
2308 |
#model: #changeButtonsFont
|
|
|
2309 |
)
|
|
|
2310 |
#(#DividerSpec
|
|
|
2311 |
#name: 'Separator7'
|
|
|
2312 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
4286
|
2313 |
)
|
|
|
2314 |
)
|
|
|
2315 |
|
|
|
2316 |
)
|
|
4310
|
2317 |
#extent: #(#Point 490 50)
|
|
|
2318 |
)
|
|
|
2319 |
#(#ViewSpec
|
|
|
2320 |
#name: 'ListsBox'
|
|
|
2321 |
#component:
|
|
|
2322 |
#(#SpecCollection
|
|
|
2323 |
#collection: #(
|
|
|
2324 |
#(#LabelSpec
|
|
|
2325 |
#label: 'Lists'
|
|
|
2326 |
#name: 'Lists'
|
|
|
2327 |
#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
|
|
|
2328 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
2329 |
#translateLabel: true
|
|
|
2330 |
#adjust: #left
|
|
|
2331 |
)
|
|
|
2332 |
#(#LabelSpec
|
|
|
2333 |
#label: 'Lists Font'
|
|
|
2334 |
#name: 'ListsFont'
|
|
|
2335 |
#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
|
|
|
2336 |
#translateLabel: true
|
|
|
2337 |
#labelChannel: #listsFontLabelHolder
|
|
|
2338 |
#adjust: #left
|
|
|
2339 |
#postBuildCallback: #postBuildListsFontLabel:
|
|
|
2340 |
)
|
|
|
2341 |
#(#ActionButtonSpec
|
|
|
2342 |
#label: 'Change ...'
|
|
|
2343 |
#name: 'ChangeLists'
|
|
|
2344 |
#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
|
|
|
2345 |
#translateLabel: true
|
|
|
2346 |
#model: #changeListsFont
|
|
|
2347 |
)
|
|
|
2348 |
#(#DividerSpec
|
|
|
2349 |
#name: 'Separator8'
|
|
|
2350 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
2351 |
)
|
|
|
2352 |
)
|
|
|
2353 |
|
|
|
2354 |
)
|
|
|
2355 |
#extent: #(#Point 490 50)
|
|
4286
|
2356 |
)
|
|
4310
|
2357 |
#(#ViewSpec
|
|
|
2358 |
#name: 'MenusBox'
|
|
|
2359 |
#component:
|
|
|
2360 |
#(#SpecCollection
|
|
|
2361 |
#collection: #(
|
|
|
2362 |
#(#LabelSpec
|
|
|
2363 |
#label: 'Menus'
|
|
|
2364 |
#name: 'Menus'
|
|
|
2365 |
#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
|
|
|
2366 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
2367 |
#translateLabel: true
|
|
|
2368 |
#adjust: #left
|
|
|
2369 |
)
|
|
|
2370 |
#(#LabelSpec
|
|
|
2371 |
#label: 'Menus Font'
|
|
|
2372 |
#name: 'MenusFont'
|
|
|
2373 |
#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
|
|
|
2374 |
#translateLabel: true
|
|
|
2375 |
#labelChannel: #menusFontLabelHolder
|
|
|
2376 |
#adjust: #left
|
|
|
2377 |
#postBuildCallback: #postBuildMenuesFontLabel:
|
|
|
2378 |
)
|
|
|
2379 |
#(#ActionButtonSpec
|
|
|
2380 |
#label: 'Change ...'
|
|
|
2381 |
#name: 'ChangeMenus'
|
|
|
2382 |
#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
|
|
|
2383 |
#translateLabel: true
|
|
|
2384 |
#model: #changeMenusFont
|
|
|
2385 |
)
|
|
|
2386 |
#(#DividerSpec
|
|
|
2387 |
#name: 'Separator9'
|
|
|
2388 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
2389 |
)
|
|
|
2390 |
)
|
|
|
2391 |
|
|
|
2392 |
)
|
|
|
2393 |
#extent: #(#Point 490 50)
|
|
|
2394 |
)
|
|
|
2395 |
#(#ViewSpec
|
|
|
2396 |
#name: 'TextBox'
|
|
|
2397 |
#component:
|
|
|
2398 |
#(#SpecCollection
|
|
|
2399 |
#collection: #(
|
|
|
2400 |
#(#LabelSpec
|
|
|
2401 |
#label: 'Text'
|
|
|
2402 |
#name: 'Text'
|
|
|
2403 |
#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
|
|
|
2404 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
2405 |
#translateLabel: true
|
|
|
2406 |
#adjust: #left
|
|
|
2407 |
)
|
|
|
2408 |
#(#LabelSpec
|
|
|
2409 |
#label: 'Text Font'
|
|
|
2410 |
#name: 'TextFont'
|
|
|
2411 |
#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
|
|
|
2412 |
#translateLabel: true
|
|
|
2413 |
#labelChannel: #textFontLabelHolder
|
|
|
2414 |
#adjust: #left
|
|
|
2415 |
#postBuildCallback: #postBuildTextFontLabel:
|
|
|
2416 |
)
|
|
|
2417 |
#(#ActionButtonSpec
|
|
|
2418 |
#label: 'Change ...'
|
|
|
2419 |
#name: 'ChangeText'
|
|
|
2420 |
#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
|
|
|
2421 |
#translateLabel: true
|
|
|
2422 |
#model: #changeTextFont
|
|
|
2423 |
)
|
|
|
2424 |
#(#DividerSpec
|
|
|
2425 |
#name: 'Separator10'
|
|
|
2426 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
2427 |
)
|
|
|
2428 |
)
|
|
|
2429 |
|
|
|
2430 |
)
|
|
|
2431 |
#extent: #(#Point 490 50)
|
|
4286
|
2432 |
)
|
|
|
2433 |
)
|
|
|
2434 |
|
|
|
2435 |
)
|
|
|
2436 |
)
|
|
|
2437 |
)
|
|
|
2438 |
|
|
|
2439 |
)
|
|
|
2440 |
)
|
|
|
2441 |
! !
|
|
|
2442 |
|
|
|
2443 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
|
|
|
2444 |
|
|
|
2445 |
encodingMatch:aEncodingMatch
|
|
|
2446 |
|
|
|
2447 |
aEncodingMatch notNil ifTrue:[
|
|
|
2448 |
filter := [:f | f encoding notNil
|
|
|
2449 |
and:[aEncodingMatch match:f encoding]].
|
|
|
2450 |
].
|
|
|
2451 |
! !
|
|
|
2452 |
|
|
|
2453 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
|
|
|
2454 |
|
|
|
2455 |
changeAllFont
|
|
|
2456 |
|f|
|
|
|
2457 |
|
|
|
2458 |
f := FontPanel
|
|
|
2459 |
fontFromUserInitial:(self allOfThem value)
|
|
|
2460 |
title:(resources string:'Font for %1' with:'All')
|
|
|
2461 |
filter:filter.
|
|
|
2462 |
f notNil ifTrue:[
|
|
|
2463 |
self allOfThem value:f.
|
|
|
2464 |
self labelDef value:f.
|
|
|
2465 |
self buttonDef value:f.
|
|
|
2466 |
self listDef value:f.
|
|
|
2467 |
self menuDef value:f.
|
|
|
2468 |
self textDef value:f.
|
|
|
2469 |
]
|
|
|
2470 |
!
|
|
|
2471 |
|
|
|
2472 |
changeButtonsFont
|
|
|
2473 |
|
|
|
2474 |
|f|
|
|
|
2475 |
|
|
|
2476 |
f := FontPanel
|
|
|
2477 |
fontFromUserInitial:(self allOfThem value)
|
|
|
2478 |
title:(resources string:'Font for %1' with:'All')
|
|
|
2479 |
filter:filter.
|
|
|
2480 |
f notNil ifTrue:[
|
|
|
2481 |
self allOfThem value:f.
|
|
|
2482 |
]
|
|
|
2483 |
!
|
|
|
2484 |
|
|
|
2485 |
changeLabelsFont
|
|
4398
|
2486 |
|f |
|
|
4286
|
2487 |
|
|
|
2488 |
f := FontPanel
|
|
|
2489 |
fontFromUserInitial:(self labelDef value)
|
|
|
2490 |
title:(resources string:'Font for %1' with:'Labels')
|
|
|
2491 |
filter:filter.
|
|
|
2492 |
f notNil ifTrue:[
|
|
|
2493 |
self labelDef value:f.
|
|
4398
|
2494 |
].
|
|
4286
|
2495 |
!
|
|
|
2496 |
|
|
|
2497 |
changeListsFont
|
|
|
2498 |
|f|
|
|
|
2499 |
|
|
|
2500 |
f := FontPanel
|
|
|
2501 |
fontFromUserInitial:(self listDef value)
|
|
|
2502 |
title:(resources string:'Font for %1' with:'Lists')
|
|
|
2503 |
filter:filter.
|
|
|
2504 |
f notNil ifTrue:[
|
|
|
2505 |
self listDef value:f.
|
|
|
2506 |
]
|
|
|
2507 |
!
|
|
|
2508 |
|
|
|
2509 |
changeMenusFont
|
|
|
2510 |
|f|
|
|
|
2511 |
|
|
|
2512 |
f := FontPanel
|
|
|
2513 |
fontFromUserInitial:(self menuDef value)
|
|
|
2514 |
title:(resources string:'Font for %1' with:'Menus')
|
|
|
2515 |
filter:filter.
|
|
|
2516 |
f notNil ifTrue:[
|
|
|
2517 |
self menuDef value:f.
|
|
|
2518 |
]
|
|
|
2519 |
!
|
|
|
2520 |
|
|
|
2521 |
changeTextFont
|
|
|
2522 |
|f|
|
|
|
2523 |
|
|
|
2524 |
f := FontPanel
|
|
|
2525 |
fontFromUserInitial:(self textDef value)
|
|
|
2526 |
title:(resources string:'Font for %1' with:'Edited Text')
|
|
|
2527 |
filter:filter.
|
|
|
2528 |
f notNil ifTrue:[
|
|
|
2529 |
self textDef value:f.
|
|
|
2530 |
]
|
|
|
2531 |
!
|
|
|
2532 |
|
|
|
2533 |
evaluateModified
|
|
|
2534 |
|
|
|
2535 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
2536 |
!
|
|
|
2537 |
|
|
|
2538 |
help
|
|
|
2539 |
|
|
|
2540 |
self warn:'no help available here'.
|
|
|
2541 |
"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
|
|
|
2542 |
!
|
|
|
2543 |
|
|
|
2544 |
loadRequest
|
|
|
2545 |
|
|
|
2546 |
View readStyleSheetAndUpdateAllStyleCaches.
|
|
|
2547 |
self labelDef value:Label defaultFont.
|
|
|
2548 |
self buttonDef value:Button defaultFont.
|
|
|
2549 |
self listDef value:SelectionInListView defaultFont.
|
|
|
2550 |
self menuDef value:MenuView defaultFont.
|
|
|
2551 |
self textDef value:TextView defaultFont.
|
|
|
2552 |
self modifiedChannel value:false.
|
|
|
2553 |
!
|
|
|
2554 |
|
|
|
2555 |
saveSettings
|
|
|
2556 |
|
|
|
2557 |
| master requestor|
|
|
|
2558 |
|
|
|
2559 |
master := self masterApplication.
|
|
|
2560 |
master notNil ifTrue:[
|
|
|
2561 |
requestor := master requestor.
|
|
|
2562 |
].
|
|
|
2563 |
self hasUnsavedChanges ifTrue:[
|
|
|
2564 |
Label defaultFont:self labelDef value.
|
|
|
2565 |
Button defaultFont:self buttonDef value.
|
|
|
2566 |
Toggle defaultFont:self buttonDef value.
|
|
|
2567 |
TextView withAllSubclasses do:[:cls | cls defaultFont:self textDef value].
|
|
|
2568 |
SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:self listDef value].
|
|
|
2569 |
MenuView defaultFont:self menuDef value.
|
|
|
2570 |
PullDownMenu defaultFont:self menuDef value.
|
|
|
2571 |
self modifiedChannel value:false.
|
|
|
2572 |
].
|
|
|
2573 |
! !
|
|
|
2574 |
|
|
|
2575 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
|
|
|
2576 |
|
|
|
2577 |
allFontLabelHolder
|
|
|
2578 |
|
|
|
2579 |
allFontLabelHolder isNil ifTrue:[
|
|
|
2580 |
allFontLabelHolder := '' asValue.
|
|
|
2581 |
].
|
|
|
2582 |
^ allFontLabelHolder.
|
|
|
2583 |
!
|
|
|
2584 |
|
|
|
2585 |
allOfThem
|
|
|
2586 |
"return/create the 'allOfThem' value holder (automatically generated)"
|
|
|
2587 |
|
|
|
2588 |
allOfThem isNil ifTrue:[
|
|
|
2589 |
allOfThem := ValueHolder new.
|
|
|
2590 |
allOfThem addDependent:self.
|
|
|
2591 |
].
|
|
|
2592 |
^ allOfThem
|
|
|
2593 |
!
|
|
|
2594 |
|
|
|
2595 |
buttonDef
|
|
|
2596 |
"return/create the 'buttonDef' value holder (automatically generated)"
|
|
|
2597 |
|
|
|
2598 |
buttonDef isNil ifTrue:[
|
|
|
2599 |
buttonDef := ValueHolder new.
|
|
|
2600 |
buttonDef addDependent:self.
|
|
|
2601 |
].
|
|
|
2602 |
^ buttonDef
|
|
|
2603 |
!
|
|
|
2604 |
|
|
|
2605 |
buttonsFontLabelHolder
|
|
|
2606 |
|
|
|
2607 |
buttonsFontLabelHolder isNil ifTrue:[
|
|
|
2608 |
buttonsFontLabelHolder := Button defaultFont asValue.
|
|
|
2609 |
].
|
|
|
2610 |
^ buttonsFontLabelHolder.
|
|
|
2611 |
!
|
|
|
2612 |
|
|
|
2613 |
labelDef
|
|
|
2614 |
"return/create the 'labelDef' value holder (automatically generated)"
|
|
|
2615 |
|
|
|
2616 |
labelDef isNil ifTrue:[
|
|
|
2617 |
labelDef := ValueHolder new.
|
|
|
2618 |
labelDef addDependent:self.
|
|
|
2619 |
].
|
|
|
2620 |
^ labelDef
|
|
|
2621 |
!
|
|
|
2622 |
|
|
|
2623 |
labelsFontLabelHolder
|
|
|
2624 |
|
|
|
2625 |
labelsFontLabelHolder isNil ifTrue:[
|
|
|
2626 |
labelsFontLabelHolder := Label defaultFont asValue.
|
|
|
2627 |
].
|
|
|
2628 |
^ labelsFontLabelHolder.
|
|
|
2629 |
!
|
|
|
2630 |
|
|
|
2631 |
listDef
|
|
|
2632 |
"return/create the 'listDef' value holder (automatically generated)"
|
|
|
2633 |
|
|
|
2634 |
listDef isNil ifTrue:[
|
|
|
2635 |
listDef := ValueHolder new.
|
|
|
2636 |
listDef addDependent:self.
|
|
|
2637 |
].
|
|
|
2638 |
^ listDef
|
|
|
2639 |
!
|
|
|
2640 |
|
|
|
2641 |
listsFontLabelHolder
|
|
|
2642 |
|
|
|
2643 |
listsFontLabelHolder isNil ifTrue:[
|
|
|
2644 |
listsFontLabelHolder := SelectionInListView defaultFont asValue.
|
|
|
2645 |
].
|
|
|
2646 |
^ listsFontLabelHolder.
|
|
|
2647 |
!
|
|
|
2648 |
|
|
|
2649 |
menuDef
|
|
|
2650 |
"return/create the 'menuDef' value holder (automatically generated)"
|
|
|
2651 |
|
|
|
2652 |
menuDef isNil ifTrue:[
|
|
|
2653 |
menuDef := ValueHolder new.
|
|
|
2654 |
menuDef addDependent:self.
|
|
|
2655 |
].
|
|
|
2656 |
^ menuDef
|
|
|
2657 |
!
|
|
|
2658 |
|
|
|
2659 |
menusFontLabelHolder
|
|
|
2660 |
|
|
|
2661 |
menusFontLabelHolder isNil ifTrue:[
|
|
|
2662 |
menusFontLabelHolder := MenuView defaultFont asValue.
|
|
|
2663 |
].
|
|
|
2664 |
^ menusFontLabelHolder.
|
|
|
2665 |
!
|
|
|
2666 |
|
|
|
2667 |
modifiedChannel
|
|
|
2668 |
|
|
|
2669 |
modifiedChannel isNil ifTrue:[
|
|
|
2670 |
modifiedChannel := false asValue.
|
|
|
2671 |
].
|
|
|
2672 |
^ modifiedChannel
|
|
|
2673 |
!
|
|
|
2674 |
|
|
|
2675 |
textDef
|
|
|
2676 |
"return/create the 'textDef' value holder (automatically generated)"
|
|
|
2677 |
|
|
|
2678 |
textDef isNil ifTrue:[
|
|
|
2679 |
textDef := ValueHolder new.
|
|
|
2680 |
textDef addDependent:self.
|
|
|
2681 |
].
|
|
|
2682 |
^ textDef
|
|
|
2683 |
!
|
|
|
2684 |
|
|
|
2685 |
textFontLabelHolder
|
|
|
2686 |
|
|
|
2687 |
textFontLabelHolder isNil ifTrue:[
|
|
|
2688 |
textFontLabelHolder := TextView defaultFont asValue.
|
|
|
2689 |
].
|
|
|
2690 |
^ textFontLabelHolder.
|
|
|
2691 |
! !
|
|
|
2692 |
|
|
|
2693 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
|
|
|
2694 |
|
|
|
2695 |
update:something with:aParameter from:changedObject
|
|
|
2696 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
2697 |
|
|
|
2698 |
"stub code automatically generated - please change as required"
|
|
|
2699 |
|
|
|
2700 |
changedObject == self allOfThem ifTrue:[
|
|
|
2701 |
| f label|
|
|
|
2702 |
f := self allOfThem value.
|
|
|
2703 |
allLabel font:f.
|
|
|
2704 |
label := f isNil ifTrue:[
|
|
|
2705 |
''
|
|
|
2706 |
] ifFalse:[
|
|
|
2707 |
f userFriendlyName
|
|
|
2708 |
].
|
|
4398
|
2709 |
self allFontLabelHolder value:label.
|
|
4286
|
2710 |
self evaluateModified.
|
|
|
2711 |
^ self.
|
|
|
2712 |
].
|
|
|
2713 |
changedObject == self labelDef ifTrue:[
|
|
|
2714 |
| f label|
|
|
|
2715 |
f := self labelDef value.
|
|
|
2716 |
labelLabel font:f.
|
|
|
2717 |
label := f isNil ifTrue:[
|
|
|
2718 |
''
|
|
|
2719 |
] ifFalse:[
|
|
|
2720 |
f userFriendlyName
|
|
|
2721 |
].
|
|
4398
|
2722 |
self labelsFontLabelHolder value:label.
|
|
4286
|
2723 |
self evaluateModified.
|
|
|
2724 |
^ self.
|
|
|
2725 |
].
|
|
|
2726 |
changedObject == self buttonDef ifTrue:[
|
|
|
2727 |
| f label|
|
|
|
2728 |
f := self buttonDef value.
|
|
|
2729 |
buttonsLabel font:f.
|
|
|
2730 |
label := f isNil ifTrue:[
|
|
|
2731 |
''
|
|
|
2732 |
] ifFalse:[
|
|
|
2733 |
f userFriendlyName
|
|
|
2734 |
].
|
|
4398
|
2735 |
self buttonsFontLabelHolder value:label.
|
|
4286
|
2736 |
self evaluateModified.
|
|
|
2737 |
^ self.
|
|
|
2738 |
].
|
|
|
2739 |
changedObject == self listDef ifTrue:[
|
|
|
2740 |
| f label|
|
|
|
2741 |
f := self listDef value.
|
|
|
2742 |
listsLabel font:f.
|
|
|
2743 |
label := f isNil ifTrue:[
|
|
|
2744 |
''
|
|
|
2745 |
] ifFalse:[
|
|
|
2746 |
f userFriendlyName
|
|
|
2747 |
].
|
|
4398
|
2748 |
self listsFontLabelHolder value:label.
|
|
4286
|
2749 |
self evaluateModified.
|
|
|
2750 |
^ self.
|
|
|
2751 |
].
|
|
|
2752 |
changedObject == self menuDef ifTrue:[
|
|
|
2753 |
| f label|
|
|
|
2754 |
f := self menuDef value.
|
|
|
2755 |
menuLabel font:f.
|
|
|
2756 |
label := f isNil ifTrue:[
|
|
|
2757 |
''
|
|
|
2758 |
] ifFalse:[
|
|
|
2759 |
f userFriendlyName
|
|
|
2760 |
].
|
|
4398
|
2761 |
self menusFontLabelHolder value:label.
|
|
4286
|
2762 |
self evaluateModified.
|
|
|
2763 |
^ self.
|
|
|
2764 |
].
|
|
|
2765 |
changedObject == self textDef ifTrue:[
|
|
|
2766 |
| f label|
|
|
|
2767 |
f := self textDef value.
|
|
|
2768 |
textLabel font:f.
|
|
|
2769 |
label := f isNil ifTrue:[
|
|
|
2770 |
''
|
|
|
2771 |
] ifFalse:[
|
|
|
2772 |
f userFriendlyName
|
|
|
2773 |
].
|
|
|
2774 |
self evaluateModified.
|
|
4398
|
2775 |
self textFontLabelHolder value:label.
|
|
4286
|
2776 |
^ self.
|
|
|
2777 |
].
|
|
|
2778 |
|
|
|
2779 |
super update:something with:aParameter from:changedObject
|
|
|
2780 |
! !
|
|
|
2781 |
|
|
|
2782 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
|
|
|
2783 |
|
|
|
2784 |
initialize
|
|
|
2785 |
|
|
4387
|
2786 |
resources := self class classResources.
|
|
4286
|
2787 |
super initialize
|
|
|
2788 |
!
|
|
|
2789 |
|
|
|
2790 |
postBuildAllFontLabel:aWidget
|
|
|
2791 |
|
|
|
2792 |
allLabel := aWidget.
|
|
|
2793 |
!
|
|
|
2794 |
|
|
|
2795 |
postBuildButtonsFontLabel:aWidget
|
|
|
2796 |
|
|
|
2797 |
buttonsLabel := aWidget.
|
|
|
2798 |
!
|
|
|
2799 |
|
|
|
2800 |
postBuildLabelsFontLabel:aWidget
|
|
|
2801 |
|
|
|
2802 |
labelLabel := aWidget.
|
|
|
2803 |
!
|
|
|
2804 |
|
|
|
2805 |
postBuildListsFontLabel:aWidget
|
|
|
2806 |
|
|
|
2807 |
listsLabel := aWidget.
|
|
|
2808 |
!
|
|
|
2809 |
|
|
|
2810 |
postBuildMenuesFontLabel:aWidget
|
|
|
2811 |
|
|
|
2812 |
menuLabel := aWidget.
|
|
|
2813 |
!
|
|
|
2814 |
|
|
|
2815 |
postBuildTextFontLabel:aWidget
|
|
|
2816 |
|
|
|
2817 |
textLabel := aWidget.
|
|
|
2818 |
!
|
|
|
2819 |
|
|
|
2820 |
postOpen
|
|
|
2821 |
|
|
4398
|
2822 |
self loadRequest.
|
|
4286
|
2823 |
!
|
|
|
2824 |
|
|
|
2825 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
2826 |
|
|
|
2827 |
self postOpen.
|
|
|
2828 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
2829 |
!
|
|
|
2830 |
|
|
|
2831 |
postOpenWith:aBuilder
|
|
|
2832 |
|
|
|
2833 |
self postOpen.
|
|
|
2834 |
^ super postOpenWith:aBuilder
|
|
|
2835 |
! !
|
|
|
2836 |
|
|
|
2837 |
!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
|
|
|
2838 |
|
|
|
2839 |
hasUnsavedChanges
|
|
|
2840 |
|
|
|
2841 |
^ (self labelDef value ~= Label defaultFont) or:[
|
|
|
2842 |
self buttonDef value ~= Button defaultFont or:[
|
|
|
2843 |
self listDef value ~= SelectionInListView defaultFont or:[
|
|
|
2844 |
self menuDef value ~= MenuView defaultFont or:[
|
|
|
2845 |
self textDef value ~= TextView defaultFont ]]]]
|
|
|
2846 |
! !
|
|
|
2847 |
|
|
4387
|
2848 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
|
|
|
2849 |
|
|
|
2850 |
keepSourceOptions
|
|
|
2851 |
|
|
|
2852 |
^ #( keep reference absReference sourceReference discard )
|
|
|
2853 |
!
|
|
|
2854 |
|
|
|
2855 |
keepSourceStrings
|
|
|
2856 |
|
|
|
2857 |
^ #('Keep as String' 'Reference to Filename' 'Reference to Full Path' 'Append and Ref in `st.src''' 'Discard' )
|
|
|
2858 |
! !
|
|
|
2859 |
|
|
|
2860 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
|
|
|
2861 |
|
|
|
2862 |
defaultIcon
|
|
|
2863 |
"This resource specification was automatically generated
|
|
|
2864 |
by the ImageEditor of ST/X."
|
|
|
2865 |
|
|
|
2866 |
"Do not manually edit this!! If it is corrupted,
|
|
|
2867 |
the ImageEditor may not be able to read the specification."
|
|
|
2868 |
|
|
|
2869 |
"
|
|
|
2870 |
self defaultIcon inspect
|
|
|
2871 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
2872 |
Icon flushCachedIcons
|
|
|
2873 |
"
|
|
|
2874 |
|
|
|
2875 |
<resource: #image>
|
|
|
2876 |
|
|
|
2877 |
^Icon
|
|
|
2878 |
constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
|
|
|
2879 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
2880 |
@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
|
|
|
2881 |
@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
|
|
|
2882 |
@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PD@@PD@@@H@@@D@@@@@@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@@DA@P@A@P@A@P@@@ @@@P@@
|
|
|
2883 |
@@@A@P@A@PDA@PD@@PD@@@H@@@DA@PDA@PD@@PDA@PDA@@DA@@@B@@@A@@@@@@DA@@DA@PDA@P@A@P@@@ @@@PDA@PDA@P@A@PD@@PD@@PD@@@H@@@D@@@@@
|
|
|
2884 |
@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
2885 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; 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]
|
|
|
2886 |
! !
|
|
|
2887 |
|
|
|
2888 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
|
|
|
2889 |
|
|
|
2890 |
windowSpec
|
|
|
2891 |
"This resource specification was automatically generated
|
|
|
2892 |
by the UIPainter of ST/X."
|
|
|
2893 |
|
|
|
2894 |
"Do not manually edit this!! If it is corrupted,
|
|
|
2895 |
the UIPainter may not be able to read the specification."
|
|
|
2896 |
|
|
|
2897 |
"
|
|
|
2898 |
UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
|
|
|
2899 |
AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
|
|
|
2900 |
AbstractSettingsApplication::GeneralCompilerSettingsAppl open
|
|
|
2901 |
"
|
|
|
2902 |
|
|
|
2903 |
<resource: #canvas>
|
|
|
2904 |
|
|
|
2905 |
^
|
|
|
2906 |
#(#FullSpec
|
|
|
2907 |
#name: #windowSpec
|
|
|
2908 |
#window:
|
|
|
2909 |
#(#WindowSpec
|
|
|
2910 |
#label: 'General Compiler Settings'
|
|
|
2911 |
#name: 'General Compiler Settings'
|
|
|
2912 |
#min: #(#Point 10 10)
|
|
|
2913 |
#max: #(#Point 1024 768)
|
|
|
2914 |
#bounds: #(#Rectangle 16 42 616 362)
|
|
|
2915 |
)
|
|
|
2916 |
#component:
|
|
|
2917 |
#(#SpecCollection
|
|
|
2918 |
#collection: #(
|
|
|
2919 |
#(#VerticalPanelViewSpec
|
|
|
2920 |
#name: 'VerticalPanel2'
|
|
|
2921 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
2922 |
#horizontalLayout: #fit
|
|
|
2923 |
#verticalLayout: #center
|
|
|
2924 |
#horizontalSpace: 3
|
|
|
2925 |
#verticalSpace: 3
|
|
|
2926 |
#component:
|
|
|
2927 |
#(#SpecCollection
|
|
|
2928 |
#collection: #(
|
|
|
2929 |
#(#CheckBoxSpec
|
|
|
2930 |
#label: 'Catch Method Redefinitions'
|
|
|
2931 |
#name: 'CatchMethodRedefinitions'
|
|
|
2932 |
#model: #catchMethodRedefs
|
|
|
2933 |
#translateLabel: true
|
|
|
2934 |
#extent: #(#Point 600 25)
|
|
|
2935 |
)
|
|
|
2936 |
#(#CheckBoxSpec
|
|
|
2937 |
#label: 'Catch Class Redefinitions'
|
|
|
2938 |
#name: 'CatchClassRedefinitions'
|
|
|
2939 |
#model: #catchClassRedefs
|
|
|
2940 |
#translateLabel: true
|
|
|
2941 |
#extent: #(#Point 600 25)
|
|
|
2942 |
)
|
|
|
2943 |
#(#CheckBoxSpec
|
|
|
2944 |
#label: 'Keep History Line in Methods'
|
|
|
2945 |
#name: 'KeepHistoryLineinMethods'
|
|
|
2946 |
#model: #historyLines
|
|
|
2947 |
#translateLabel: true
|
|
|
2948 |
#extent: #(#Point 600 25)
|
|
|
2949 |
)
|
|
|
2950 |
#(#CheckBoxSpec
|
|
|
2951 |
#label: 'Keep Full Class History'
|
|
|
2952 |
#name: 'KeepFullClassHistory'
|
|
|
2953 |
#enableChannel: #hasHistoryManager
|
|
|
2954 |
#model: #fullHistoryUpdate
|
|
|
2955 |
#translateLabel: true
|
|
|
2956 |
#extent: #(#Point 600 25)
|
|
|
2957 |
)
|
|
|
2958 |
#(#ViewSpec
|
|
|
2959 |
#name: 'Box1'
|
|
|
2960 |
#component:
|
|
|
2961 |
#(#SpecCollection
|
|
|
2962 |
#collection: #(
|
|
|
2963 |
#(#PopUpListSpec
|
|
|
2964 |
#label: 'PopUp List'
|
|
|
2965 |
#name: 'KeepSourceSelection'
|
|
|
2966 |
#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
|
|
|
2967 |
#tabable: true
|
|
|
2968 |
#model: #keepSourceSelection
|
|
|
2969 |
#menu: #keepSource
|
|
|
2970 |
#useIndex: true
|
|
|
2971 |
)
|
|
|
2972 |
#(#LabelSpec
|
|
|
2973 |
#label: 'FileIn Source Mode:'
|
|
|
2974 |
#name: 'FileInSourceModeLabel'
|
|
|
2975 |
#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
|
|
|
2976 |
#translateLabel: true
|
|
|
2977 |
#adjust: #right
|
|
|
2978 |
)
|
|
|
2979 |
)
|
|
|
2980 |
|
|
|
2981 |
)
|
|
|
2982 |
#extent: #(#Point 600 30)
|
|
|
2983 |
)
|
|
|
2984 |
#(#DividerSpec
|
|
|
2985 |
#name: 'Separator1'
|
|
|
2986 |
#extent: #(#Point 600 3)
|
|
|
2987 |
)
|
|
|
2988 |
#(#CheckBoxSpec
|
|
|
2989 |
#label: 'If Present, Load Binary Objects when Autoloading'
|
|
|
2990 |
#name: 'LoadBinaryObjectsWhenAutoloading'
|
|
|
2991 |
#enableChannel: #canLoadBinaries
|
|
|
2992 |
#model: #loadBinaries
|
|
|
2993 |
#translateLabel: true
|
|
|
2994 |
#extent: #(#Point 600 25)
|
|
|
2995 |
)
|
|
|
2996 |
)
|
|
|
2997 |
|
|
|
2998 |
)
|
|
|
2999 |
)
|
|
|
3000 |
)
|
|
|
3001 |
|
|
|
3002 |
)
|
|
|
3003 |
)
|
|
|
3004 |
! !
|
|
|
3005 |
|
|
|
3006 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
|
|
|
3007 |
|
|
|
3008 |
evaluateModified
|
|
|
3009 |
|
|
|
3010 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
3011 |
!
|
|
|
3012 |
|
|
|
3013 |
help
|
|
|
3014 |
|
|
|
3015 |
"/ self warn:'no help available here'.
|
|
|
3016 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
|
|
|
3017 |
!
|
|
|
3018 |
|
|
|
3019 |
loadRequest
|
|
|
3020 |
|
|
|
3021 |
self keepSourceSelection value:(self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1).
|
|
|
3022 |
self catchClassRedefs value:(Class catchClassRedefinitions ? false).
|
|
|
3023 |
self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
|
|
|
3024 |
self canLoadBinaries ifTrue:[
|
|
|
3025 |
self loadBinaries value:Smalltalk loadBinaries.
|
|
|
3026 |
] ifFalse:[
|
|
|
3027 |
self loadBinaries value:false
|
|
|
3028 |
].
|
|
|
3029 |
self hasHistoryManager ifTrue:[
|
|
|
3030 |
self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false).
|
|
|
3031 |
] ifFalse:[
|
|
|
3032 |
self fullHistoryUpdate value:false.
|
|
|
3033 |
].
|
|
|
3034 |
self historyLines value:self hasHistoryManager.
|
|
|
3035 |
self modifiedChannel value:false.
|
|
|
3036 |
!
|
|
|
3037 |
|
|
|
3038 |
saveSettings
|
|
|
3039 |
|
|
|
3040 |
self hasUnsavedChanges ifTrue:[
|
|
|
3041 |
ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
|
|
|
3042 |
Class catchClassRedefinitions:self catchClassRedefs value.
|
|
|
3043 |
Class catchMethodRedefinitions:self catchMethodRedefs value.
|
|
|
3044 |
HistoryManager notNil ifTrue:[
|
|
|
3045 |
HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
|
|
|
3046 |
self historyLines value ifTrue:[
|
|
|
3047 |
HistoryManager activate
|
|
|
3048 |
] ifFalse:[
|
|
|
3049 |
HistoryManager deactivate
|
|
|
3050 |
].
|
|
|
3051 |
].
|
|
|
3052 |
Smalltalk loadBinaries:self loadBinaries value.
|
|
|
3053 |
self modifiedChannel value:false.
|
|
|
3054 |
].
|
|
|
3055 |
! !
|
|
|
3056 |
|
|
|
3057 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
|
|
|
3058 |
|
|
|
3059 |
canLoadBinaries
|
|
|
3060 |
|
|
|
3061 |
canLoadBinaries isNil ifTrue:[
|
|
|
3062 |
canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
|
|
|
3063 |
].
|
|
|
3064 |
^ canLoadBinaries.
|
|
|
3065 |
!
|
|
|
3066 |
|
|
|
3067 |
catchClassRedefs
|
|
|
3068 |
|
|
|
3069 |
catchClassRedefs isNil ifTrue:[
|
|
|
3070 |
catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
|
|
|
3071 |
catchClassRedefs onChangeSend:#evaluateModified to:self.
|
|
|
3072 |
].
|
|
|
3073 |
^ catchClassRedefs.
|
|
|
3074 |
!
|
|
|
3075 |
|
|
|
3076 |
catchMethodRedefs
|
|
|
3077 |
|
|
|
3078 |
catchMethodRedefs isNil ifTrue:[
|
|
|
3079 |
catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
|
|
|
3080 |
catchMethodRedefs onChangeSend:#evaluateModified to:self.
|
|
|
3081 |
].
|
|
|
3082 |
^ catchMethodRedefs.
|
|
|
3083 |
!
|
|
|
3084 |
|
|
|
3085 |
fullHistoryUpdate
|
|
|
3086 |
|
|
|
3087 |
fullHistoryUpdate isNil ifTrue:[
|
|
|
3088 |
self hasHistoryManager ifTrue:[
|
|
|
3089 |
fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
|
|
|
3090 |
] ifFalse:[
|
|
|
3091 |
fullHistoryUpdate := false asValue.
|
|
|
3092 |
].
|
|
|
3093 |
fullHistoryUpdate onChangeSend:#evaluateModified to:self.
|
|
|
3094 |
].
|
|
|
3095 |
^ fullHistoryUpdate.
|
|
|
3096 |
!
|
|
|
3097 |
|
|
|
3098 |
hasHistoryManager
|
|
|
3099 |
|
|
|
3100 |
^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
|
|
|
3101 |
!
|
|
|
3102 |
|
|
|
3103 |
historyLines
|
|
|
3104 |
|
|
|
3105 |
historyLines isNil ifTrue:[
|
|
|
3106 |
historyLines := self hasHistoryManager asValue.
|
|
|
3107 |
historyLines onChangeSend:#evaluateModified to:self.
|
|
|
3108 |
].
|
|
|
3109 |
^ historyLines.
|
|
|
3110 |
!
|
|
|
3111 |
|
|
|
3112 |
keepSource
|
|
|
3113 |
|
|
|
3114 |
keepSource isNil ifTrue:[
|
|
|
3115 |
keepSource := (resources array:(self class keepSourceStrings)) asList.
|
|
|
3116 |
].
|
|
|
3117 |
^ keepSource.
|
|
|
3118 |
!
|
|
|
3119 |
|
|
|
3120 |
keepSourceSelection
|
|
|
3121 |
|
|
|
3122 |
keepSourceSelection isNil ifTrue:[
|
|
|
3123 |
keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
|
|
|
3124 |
keepSourceSelection onChangeSend:#evaluateModified to:self.
|
|
|
3125 |
].
|
|
|
3126 |
^ keepSourceSelection.
|
|
|
3127 |
!
|
|
|
3128 |
|
|
|
3129 |
loadBinaries
|
|
|
3130 |
|
|
|
3131 |
loadBinaries isNil ifTrue:[
|
|
|
3132 |
self canLoadBinaries ifTrue:[
|
|
|
3133 |
loadBinaries:= Smalltalk loadBinaries asValue
|
|
|
3134 |
] ifFalse:[
|
|
|
3135 |
loadBinaries:= false asValue
|
|
|
3136 |
].
|
|
|
3137 |
loadBinaries onChangeSend:#evaluateModified to:self.
|
|
|
3138 |
].
|
|
|
3139 |
^ loadBinaries.
|
|
|
3140 |
!
|
|
|
3141 |
|
|
|
3142 |
modifiedChannel
|
|
|
3143 |
|
|
|
3144 |
modifiedChannel isNil ifTrue:[
|
|
|
3145 |
modifiedChannel := false asValue.
|
|
|
3146 |
].
|
|
|
3147 |
^ modifiedChannel
|
|
|
3148 |
! !
|
|
|
3149 |
|
|
|
3150 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'change & update'!
|
|
|
3151 |
|
|
|
3152 |
update:something with:aParameter from:changedObject
|
|
|
3153 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
3154 |
|
|
|
3155 |
"stub code automatically generated - please change as required"
|
|
|
3156 |
|
|
|
3157 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
3158 |
"/ ^ self.
|
|
|
3159 |
"/ ].
|
|
|
3160 |
|
|
|
3161 |
super update:something with:aParameter from:changedObject
|
|
|
3162 |
! !
|
|
|
3163 |
|
|
|
3164 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'initialization & release'!
|
|
|
3165 |
|
|
|
3166 |
initialize
|
|
|
3167 |
|
|
|
3168 |
resources := self class classResources.
|
|
|
3169 |
self loadRequest.
|
|
|
3170 |
super initialize
|
|
|
3171 |
! !
|
|
|
3172 |
|
|
|
3173 |
!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
|
|
|
3174 |
|
|
|
3175 |
hasUnsavedChanges
|
|
|
3176 |
|
|
|
3177 |
^ (
|
|
|
3178 |
((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
|
|
|
3179 |
((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
|
|
|
3180 |
((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
|
|
|
3181 |
((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
|
|
|
3182 |
((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
|
|
|
3183 |
((self hasHistoryManager) ~= self historyLines value)
|
|
|
3184 |
]]]]]
|
|
|
3185 |
)
|
|
|
3186 |
! !
|
|
|
3187 |
|
|
4312
|
3188 |
!AbstractSettingsApplication::HTTPServerSettingsAppl class methodsFor:'image specs'!
|
|
|
3189 |
|
|
|
3190 |
defaultIcon
|
|
|
3191 |
"This resource specification was automatically generated
|
|
|
3192 |
by the ImageEditor of ST/X."
|
|
|
3193 |
|
|
|
3194 |
"Do not manually edit this!! If it is corrupted,
|
|
|
3195 |
the ImageEditor may not be able to read the specification."
|
|
|
3196 |
|
|
|
3197 |
"
|
|
|
3198 |
self defaultIcon inspect
|
|
|
3199 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
3200 |
Icon flushCachedIcons
|
|
|
3201 |
"
|
|
|
3202 |
|
|
|
3203 |
<resource: #image>
|
|
|
3204 |
|
|
|
3205 |
^Icon
|
|
|
3206 |
constantNamed:#'AbstractSettingsApplication::HTTPServerSettingsAppl class defaultIcon'
|
|
|
3207 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
3208 |
@@@@@HQ-M!!T6M&5-\@@@@@@@@@@@@@@@@GT4HB,1DS$9NUQ0@@@@@@@@@@@@@F<3JP\MG X9NSL9RG@@@@@@@@@@@GT2GQ\C@0LIJ%L3O11J\@@@@@@@(XP4
|
|
|
3209 |
LA$C@0LCAA<''F"8,F4V3@KT@+0A-JCD]@0LCNT-MSEAPS49V$7L@@@@@MQ@XFPLCNE!!XVE!!XVE!!XVE!!X@@@@@AT$APLC@5"9-K6?1LSD1LFJQ@@@@@@KEBT&
|
|
|
3210 |
CPMX**R-+Z2+(JZX\DP@@@@@@RL1LR,NVJ8:.K"7-%&I%GAD@@@@@D$OK3D1HU"[%IRT%IRT%I]0Q@@@@@A=@!!L1KQYX*J"(*J"(.8:T\DP@@@@@)THRLQ$C
|
|
|
3211 |
VJ"(*J"(*IBO%''AD@@@@@@B:P2HL@5"K"8.K"8.K"8M0Q@@@@@@@@J]FB@MX0K0:N#(:N,B2\DP@@@@@@@@@,T\;VJ#B0<OC0<N>&GAD@@@@@@@@@@@@*U"(
|
|
|
3212 |
0<OC0<OC0I!!0Q@@@@@@@@@@@@@AX*LU<#HVF$,BX\DP@@@@@@@@@@@@@VJ#C@@@@@@CC&GAD@@@@@@@@@@@@@E"(''92\''I2\(9!!0Q@@@@@@@@@@@@@AX*IVO
|
|
|
3213 |
#8>O#9*X\DP@@@@@@@@@@@@@VJ!!>&Y:B"I:M&GAD@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 80 0 0 159 0 0 255 0 2 253 0 7 248 0 8 235 0 8 247 0 14 223 0 16 239 0 20 55 0 20 60 0 32 223 0 35 220 0 47 207 0 50 205 0 60 195 0 64 175 0 64 181 0 64 191 0 74 181 0 80 0 0 87 167 0 90 164 0 92 163 0 97 157 0 102 142 0 103 133 0 107 112 0 111 143 0 114 140 0 115 139 0 127 79 0 127 127 0 150 76 0 159 95 0 165 89 0 184 71 0 191 64 0 200 33 0 207 0 0 208 45 0 213 0 0 225 30 0 235 20 0 240 15 0 243 0 0 244 11 0 245 8 0 255 0 6 132 42 6 168 6 10 149 10 17 41 72 17 96 17 25 25 25 25 25 232 28 28 227 30 30 30 33 32 152 35 35 35 35 35 133 40 40 40 42 131 42 45 45 45 50 50 50 51 51 111 51 55 105 52 52 52 54 60 76 54 116 54 60 60 88 60 60 103 62 61 141 62 62 125 65 64 193 65 104 153 65 112 145 65 136 121 65 160 97 65 192 65 68 68 68 71 111 71 76 121 76 77 76 205 80 80 80 85 100 85 95 95 95 97 97 97 98 207 98 103 103 103 104 104 104 107 105 186 107 106 235 109 108 236 109 109 109 111 109 147 111 111 111 111 111 255 114 113 162 114 114 210 116 116 116 117 117 117 118 116 165 118 117 245 118 118 118 119 117 158 119 119 119 120 120 120 120 159 120 127 127 127 130 146 130 131 129 131 132 131 191 135 135 135 136 135 136 138 138 246 142 142 142 143 143 143 143 143 255 147 145 147 147 146 174 147 146 227 150 148 230 151 149 151 151 151 151 153 150 153 155 153 155 156 154 156 156 155 240 157 156 157 159 157 86 159 159 159 162 160 162 162 161 162 162 162 242 163 161 163 164 163 164 165 164 165 166 164 76 166 164 166 168 165 168 168 166 168 172 169 172 173 170 173 173 171 222 174 172 174 175 174 175 176 173 176 178 175 178 181 178 181 182 179 182 184 181 184 184 182 184 186 183 186 187 184 187 187 187 251 188 186 188 189 188 189 189 188 237 189 197 189 190 190 190 191 189 191 192 191 220 194 192 194 194 194 194 195 193 195 196 196 196 197 194 197 197 197 197 198 195 198 200 191 194 200 192 195 200 197 200 201 199 201 202 202 202 203 202 203 204 204 204 205 203 205 206 206 206 207 204 207 207 207 207 208 147 148 208 157 158 208 207 208 211 208 211 211 211 211 214 213 214 215 213 224 217 215 217 218 217 218 219 217 219 222 220 222 223 222 223 224 223 229 228 227 236 229 228 229 233 232 233]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<D??>(???@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
|
|
|
3214 |
! !
|
|
|
3215 |
|
|
4310
|
3216 |
!AbstractSettingsApplication::HTTPServerSettingsAppl class methodsFor:'interface specs'!
|
|
|
3217 |
|
|
|
3218 |
windowSpec
|
|
|
3219 |
"This resource specification was automatically generated
|
|
|
3220 |
by the UIPainter of ST/X."
|
|
|
3221 |
|
|
|
3222 |
"Do not manually edit this!! If it is corrupted,
|
|
|
3223 |
the UIPainter may not be able to read the specification."
|
|
|
3224 |
|
|
|
3225 |
"
|
|
|
3226 |
UIPainter new openOnClass:AbstractSettingsApplication::HTTPServerSettingsAppl andSelector:#windowSpec
|
|
|
3227 |
AbstractSettingsApplication::HTTPServerSettingsAppl new openInterface:#windowSpec
|
|
|
3228 |
AbstractSettingsApplication::HTTPServerSettingsAppl open
|
|
|
3229 |
"
|
|
|
3230 |
|
|
|
3231 |
<resource: #canvas>
|
|
|
3232 |
|
|
|
3233 |
^
|
|
|
3234 |
#(#FullSpec
|
|
|
3235 |
#name: #windowSpec
|
|
|
3236 |
#window:
|
|
|
3237 |
#(#WindowSpec
|
|
|
3238 |
#label: 'HTTP Server Settings'
|
|
|
3239 |
#name: 'HTTP Server Settings'
|
|
|
3240 |
#min: #(#Point 10 10)
|
|
|
3241 |
#max: #(#Point 1024 768)
|
|
|
3242 |
#bounds: #(#Rectangle 16 42 616 592)
|
|
|
3243 |
)
|
|
|
3244 |
#component:
|
|
|
3245 |
#(#SpecCollection
|
|
|
3246 |
#collection: #(
|
|
|
3247 |
#(#VerticalPanelViewSpec
|
|
|
3248 |
#name: 'VerticalPanel1'
|
|
|
3249 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
3250 |
#horizontalLayout: #fit
|
|
|
3251 |
#verticalLayout: #center
|
|
|
3252 |
#horizontalSpace: 3
|
|
|
3253 |
#verticalSpace: 3
|
|
|
3254 |
#component:
|
|
|
3255 |
#(#SpecCollection
|
|
|
3256 |
#collection: #(
|
|
|
3257 |
#(#VerticalPanelViewSpec
|
|
|
3258 |
#name: 'VerticalPanel2'
|
|
|
3259 |
#horizontalLayout: #fit
|
|
|
3260 |
#verticalLayout: #center
|
|
|
3261 |
#horizontalSpace: 3
|
|
|
3262 |
#verticalSpace: 3
|
|
|
3263 |
#component:
|
|
|
3264 |
#(#SpecCollection
|
|
|
3265 |
#collection: #(
|
|
|
3266 |
#(#ViewSpec
|
|
|
3267 |
#name: 'Box1'
|
|
|
3268 |
#component:
|
|
|
3269 |
#(#SpecCollection
|
|
|
3270 |
#collection: #(
|
|
|
3271 |
#(#CheckBoxSpec
|
|
|
3272 |
#label: 'Serving HTTP Requests'
|
|
|
3273 |
#name: 'CheckBox1'
|
|
|
3274 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
3275 |
#enableChannel: #hasHTTPServer
|
|
|
3276 |
#model: #httpServerRunning
|
|
|
3277 |
#translateLabel: true
|
|
|
3278 |
)
|
|
|
3279 |
)
|
|
|
3280 |
|
|
|
3281 |
)
|
|
|
3282 |
#extent: #(#Point 600 25)
|
|
|
3283 |
)
|
|
|
3284 |
#(#ViewSpec
|
|
|
3285 |
#name: 'Box2'
|
|
|
3286 |
#component:
|
|
|
3287 |
#(#SpecCollection
|
|
|
3288 |
#collection: #(
|
|
|
3289 |
#(#LabelSpec
|
|
|
3290 |
#label: 'Port:'
|
|
|
3291 |
#name: 'Label1'
|
|
|
3292 |
#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
|
|
|
3293 |
#translateLabel: true
|
|
|
3294 |
#adjust: #right
|
|
|
3295 |
)
|
|
|
3296 |
#(#InputFieldSpec
|
|
|
3297 |
#name: 'EntryField1'
|
|
|
3298 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
3299 |
#enableChannel: #httpServerRunning
|
|
|
3300 |
#model: #httpServerPort
|
|
|
3301 |
#type: #number
|
|
|
3302 |
#acceptOnReturn: true
|
|
|
3303 |
#acceptOnTab: true
|
|
|
3304 |
#acceptOnLostFocus: true
|
|
|
3305 |
#acceptOnPointerLeave: false
|
|
|
3306 |
)
|
|
|
3307 |
)
|
|
|
3308 |
|
|
|
3309 |
)
|
|
|
3310 |
#extent: #(#Point 600 25)
|
|
|
3311 |
)
|
|
|
3312 |
#(#ViewSpec
|
|
|
3313 |
#name: 'Box3'
|
|
|
3314 |
#component:
|
|
|
3315 |
#(#SpecCollection
|
|
|
3316 |
#collection: #(
|
|
|
3317 |
#(#LabelSpec
|
|
|
3318 |
#label: 'Log File:'
|
|
|
3319 |
#name: 'Label2'
|
|
|
3320 |
#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
|
|
|
3321 |
#translateLabel: true
|
|
|
3322 |
#adjust: #right
|
|
|
3323 |
)
|
|
|
3324 |
#(#InputFieldSpec
|
|
|
3325 |
#name: 'EntryField2'
|
|
|
3326 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
3327 |
#enableChannel: #httpServerRunning
|
|
|
3328 |
#model: #httpServerLogFile
|
|
|
3329 |
#acceptOnReturn: true
|
|
|
3330 |
#acceptOnTab: true
|
|
|
3331 |
#acceptOnLostFocus: true
|
|
|
3332 |
#acceptOnPointerLeave: false
|
|
|
3333 |
)
|
|
|
3334 |
)
|
|
|
3335 |
|
|
|
3336 |
)
|
|
|
3337 |
#extent: #(#Point 600 25)
|
|
|
3338 |
)
|
|
|
3339 |
#(#ViewSpec
|
|
|
3340 |
#name: 'Box4'
|
|
|
3341 |
#component:
|
|
|
3342 |
#(#SpecCollection
|
|
|
3343 |
#collection: #(
|
|
|
3344 |
#(#LabelSpec
|
|
|
3345 |
#label: 'File Root:'
|
|
|
3346 |
#name: 'Label3'
|
|
|
3347 |
#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
|
|
|
3348 |
#translateLabel: true
|
|
|
3349 |
#adjust: #right
|
|
|
3350 |
)
|
|
|
3351 |
#(#InputFieldSpec
|
|
|
3352 |
#name: 'EntryField3'
|
|
|
3353 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
3354 |
#enableChannel: #httpServerRunning
|
|
|
3355 |
#model: #httpServerFileRoot
|
|
|
3356 |
#acceptOnReturn: true
|
|
|
3357 |
#acceptOnTab: true
|
|
|
3358 |
#acceptOnLostFocus: true
|
|
|
3359 |
#acceptOnPointerLeave: false
|
|
|
3360 |
)
|
|
|
3361 |
)
|
|
|
3362 |
|
|
|
3363 |
)
|
|
|
3364 |
#extent: #(#Point 600 25)
|
|
|
3365 |
)
|
|
|
3366 |
#(#ViewSpec
|
|
|
3367 |
#name: 'Box5'
|
|
|
3368 |
#component:
|
|
|
3369 |
#(#SpecCollection
|
|
|
3370 |
#collection: #(
|
|
|
3371 |
#(#LabelSpec
|
|
|
3372 |
#label: 'Home URL:'
|
|
|
3373 |
#name: 'Label4'
|
|
|
3374 |
#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
|
|
|
3375 |
#translateLabel: true
|
|
|
3376 |
#adjust: #right
|
|
|
3377 |
)
|
|
|
3378 |
#(#InputFieldSpec
|
|
|
3379 |
#name: 'EntryField4'
|
|
|
3380 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
3381 |
#enableChannel: #httpServerRunning
|
|
|
3382 |
#model: #httpServerHomeURL
|
|
|
3383 |
#acceptOnReturn: true
|
|
|
3384 |
#acceptOnTab: true
|
|
|
3385 |
#acceptOnLostFocus: true
|
|
|
3386 |
#acceptOnPointerLeave: false
|
|
|
3387 |
)
|
|
|
3388 |
)
|
|
|
3389 |
|
|
|
3390 |
)
|
|
|
3391 |
#extent: #(#Point 600 25)
|
|
|
3392 |
)
|
|
|
3393 |
#(#ViewSpec
|
|
|
3394 |
#name: 'Box6'
|
|
|
3395 |
#component:
|
|
|
3396 |
#(#SpecCollection
|
|
|
3397 |
#collection: #(
|
|
|
3398 |
#(#CheckBoxSpec
|
|
|
3399 |
#label: 'Swiki enabled'
|
|
|
3400 |
#name: 'CheckBox2'
|
|
|
3401 |
#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
|
|
|
3402 |
#enableChannel: #httpServerRunning
|
|
|
3403 |
#model: #swikiEnabled
|
|
|
3404 |
#translateLabel: true
|
|
|
3405 |
)
|
|
|
3406 |
)
|
|
|
3407 |
|
|
|
3408 |
)
|
|
|
3409 |
#extent: #(#Point 600 25)
|
|
|
3410 |
)
|
|
|
3411 |
#(#ViewSpec
|
|
|
3412 |
#name: 'Box7'
|
|
|
3413 |
#component:
|
|
|
3414 |
#(#SpecCollection
|
|
|
3415 |
#collection: #(
|
|
|
3416 |
#(#LabelSpec
|
|
|
3417 |
#label: 'SwikiRoot:'
|
|
|
3418 |
#name: 'Label5'
|
|
|
3419 |
#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
|
|
|
3420 |
#translateLabel: true
|
|
|
3421 |
#adjust: #right
|
|
|
3422 |
)
|
|
|
3423 |
#(#InputFieldSpec
|
|
|
3424 |
#name: 'EntryField5'
|
|
|
3425 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
3426 |
#enableChannel: #swikiRootEnabled
|
|
|
3427 |
#model: #swikiRoot
|
|
|
3428 |
#acceptOnReturn: true
|
|
|
3429 |
#acceptOnTab: true
|
|
|
3430 |
#acceptOnLostFocus: true
|
|
|
3431 |
#acceptOnPointerLeave: false
|
|
|
3432 |
)
|
|
|
3433 |
)
|
|
|
3434 |
|
|
|
3435 |
)
|
|
|
3436 |
#extent: #(#Point 600 25)
|
|
|
3437 |
)
|
|
|
3438 |
#(#ViewSpec
|
|
|
3439 |
#name: 'Box8'
|
|
|
3440 |
#component:
|
|
|
3441 |
#(#SpecCollection
|
|
|
3442 |
#collection: #(
|
|
|
3443 |
#(#CheckBoxSpec
|
|
|
3444 |
#label: 'Allow embedded ST applications'
|
|
|
3445 |
#name: 'CheckBox3'
|
|
|
3446 |
#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
|
|
|
3447 |
#enableChannel: #httpServerRunning
|
|
|
3448 |
#model: #allowEmbedded
|
|
|
3449 |
#translateLabel: true
|
|
|
3450 |
)
|
|
|
3451 |
)
|
|
|
3452 |
|
|
|
3453 |
)
|
|
|
3454 |
#extent: #(#Point 600 25)
|
|
|
3455 |
)
|
|
|
3456 |
#(#ViewSpec
|
|
|
3457 |
#name: 'Box9'
|
|
|
3458 |
#component:
|
|
|
3459 |
#(#SpecCollection
|
|
|
3460 |
#collection: #(
|
|
|
3461 |
#(#CheckBoxSpec
|
|
|
3462 |
#label: 'Soap enabled'
|
|
|
3463 |
#name: 'CheckBox4'
|
|
|
3464 |
#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
|
|
|
3465 |
#enableChannel: #httpServerRunning
|
|
|
3466 |
#model: #soapEnabled
|
|
|
3467 |
#translateLabel: true
|
|
|
3468 |
)
|
|
|
3469 |
)
|
|
|
3470 |
|
|
|
3471 |
)
|
|
|
3472 |
#extent: #(#Point 600 25)
|
|
|
3473 |
)
|
|
|
3474 |
)
|
|
|
3475 |
|
|
|
3476 |
)
|
|
|
3477 |
#extent: #(#Point 600 230)
|
|
|
3478 |
)
|
|
|
3479 |
)
|
|
|
3480 |
|
|
|
3481 |
)
|
|
|
3482 |
)
|
|
|
3483 |
)
|
|
|
3484 |
|
|
|
3485 |
)
|
|
|
3486 |
)
|
|
|
3487 |
! !
|
|
|
3488 |
|
|
|
3489 |
!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'actions'!
|
|
|
3490 |
|
|
|
3491 |
evaluateModified
|
|
|
3492 |
|
|
|
3493 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
3494 |
!
|
|
|
3495 |
|
|
|
3496 |
help
|
|
|
3497 |
|
|
|
3498 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
|
|
|
3499 |
!
|
|
|
3500 |
|
|
|
3501 |
loadRequest
|
|
|
3502 |
|
|
|
3503 |
(self hasHTTPServer and:[HTTPServer isLoaded]) ifTrue:[
|
|
|
3504 |
self httpServerRunning value:HTTPServer isRunning.
|
|
|
3505 |
self httpServerFileRoot value:HTTPServer fileRoot.
|
|
|
3506 |
self httpServerHomeURL value:HTTPServer homeURL.
|
|
|
3507 |
self httpServerPort value:HTTPServer defaultPort.
|
|
|
3508 |
self httpServerLogFile value:HTTPServer defaultLogFile.
|
|
|
3509 |
] ifFalse:[
|
|
|
3510 |
self httpServerRunning value:false.
|
|
|
3511 |
].
|
|
|
3512 |
(self hasSwiki and:[PWS::SwikiAction isLoaded and:[(self hasHTTPServer and:[HTTPServer isLoaded])]]) ifTrue:[
|
|
|
3513 |
self swikiEnabled value:HTTPServer hasMySwikiConfigured.
|
|
|
3514 |
self swikiRoot value:PWS::SwikiAction serverDirectory.
|
|
|
3515 |
] ifFalse:[
|
|
|
3516 |
self swikiEnabled value:false.
|
|
|
3517 |
].
|
|
|
3518 |
(self hasSoap and:[SOAP::SoapHttpModule isLoaded and:[(self hasHTTPServer and:[HTTPServer isLoaded])]]) ifTrue:[
|
|
|
3519 |
self soapEnabled value:HTTPServer hasSoapEnabled.
|
|
|
3520 |
] ifFalse:[
|
|
|
3521 |
self soapEnabled value:false.
|
|
|
3522 |
].
|
|
|
3523 |
self allowEmbedded value:(HTTPServer isLoaded and:[HTTPServer enableEmbeddedSmalltalk]).
|
|
|
3524 |
self swikiRootEnabled value:(self httpServerRunning value and:[self swikiEnabled value]).
|
|
|
3525 |
self modifiedChannel value:false.
|
|
|
3526 |
!
|
|
|
3527 |
|
|
|
3528 |
saveSettings
|
|
|
3529 |
|
|
|
3530 |
| httpServFileRoot httpServLogFile httpServHomeURL swikiRootLoc|
|
|
|
3531 |
|
|
|
3532 |
self hasUnsavedChanges ifTrue:[
|
|
|
3533 |
(self hasHTTPServer and:[HTTPServer isLoaded]) ifTrue:[
|
|
|
3534 |
HTTPServer defaultPort:self httpServerPort value.
|
|
|
3535 |
httpServerFileRoot := self httpServerFileRoot value.
|
|
|
3536 |
httpServFileRoot size == 0 ifTrue:[
|
|
|
3537 |
httpServFileRoot := nil
|
|
|
3538 |
].
|
|
|
3539 |
HTTPServer fileRoot:httpServFileRoot.
|
|
|
3540 |
|
|
|
3541 |
httpServLogFile := self httpServerLogFile value.
|
|
|
3542 |
httpServLogFile size == 0 ifTrue:[
|
|
|
3543 |
httpServLogFile := nil
|
|
|
3544 |
].
|
|
|
3545 |
HTTPServer defaultLogFile:httpServLogFile.
|
|
|
3546 |
|
|
|
3547 |
httpServHomeURL := self httpServerHomeURL value.
|
|
|
3548 |
httpServHomeURL size == 0 ifTrue:[
|
|
|
3549 |
httpServHomeURL := nil
|
|
|
3550 |
].
|
|
|
3551 |
HTTPServer homeURL:httpServHomeURL.
|
|
|
3552 |
|
|
|
3553 |
self httpServerRunning value ifTrue:[
|
|
|
3554 |
HTTPServer startServer
|
|
|
3555 |
] ifFalse:[
|
|
|
3556 |
HTTPServer stopServer
|
|
|
3557 |
]
|
|
|
3558 |
].
|
|
|
3559 |
|
|
|
3560 |
self hasSwiki ifTrue:[
|
|
|
3561 |
swikiRootLoc := self swikiRoot value.
|
|
|
3562 |
swikiRootLoc size == 0 ifTrue:[
|
|
|
3563 |
swikiRootLoc := nil
|
|
|
3564 |
].
|
|
|
3565 |
PWS::ServerAction serverDirectory:swikiRootLoc.
|
|
|
3566 |
|
|
|
3567 |
self swikiEnabled value ifTrue:[
|
|
|
3568 |
HTTPServer setupMySwiki
|
|
|
3569 |
] ifFalse:[
|
|
|
3570 |
HTTPServer disableMySwiki
|
|
|
3571 |
].
|
|
|
3572 |
HTTPServer enableEmbeddedSmalltalk:self allowEmbedded value.
|
|
|
3573 |
].
|
|
|
3574 |
self hasSoap ifTrue:[
|
|
|
3575 |
self soapEnabled value ifTrue:[
|
|
|
3576 |
HTTPServer setupSoap
|
|
|
3577 |
] ifFalse:[
|
|
|
3578 |
HTTPServer disableSoap
|
|
|
3579 |
]
|
|
|
3580 |
].
|
|
|
3581 |
self modifiedChannel value:false.
|
|
|
3582 |
].
|
|
|
3583 |
! !
|
|
|
3584 |
|
|
|
3585 |
!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'aspects'!
|
|
|
3586 |
|
|
|
3587 |
allowEmbedded
|
|
|
3588 |
|
|
|
3589 |
allowEmbedded isNil ifTrue:[
|
|
|
3590 |
allowEmbedded := true asValue.
|
|
|
3591 |
allowEmbedded onChangeSend:#evaluateModified to:self.
|
|
|
3592 |
].
|
|
|
3593 |
^ allowEmbedded.
|
|
|
3594 |
!
|
|
|
3595 |
|
|
|
3596 |
httpServerFileRoot
|
|
|
3597 |
|
|
|
3598 |
httpServerFileRoot isNil ifTrue:[
|
|
|
3599 |
httpServerFileRoot := ValueHolder new.
|
|
|
3600 |
httpServerFileRoot onChangeSend:#evaluateModified to:self.
|
|
|
3601 |
].
|
|
|
3602 |
^ httpServerFileRoot.
|
|
|
3603 |
!
|
|
|
3604 |
|
|
|
3605 |
httpServerHomeURL
|
|
|
3606 |
|
|
|
3607 |
httpServerHomeURL isNil ifTrue:[
|
|
|
3608 |
httpServerHomeURL := ValueHolder new.
|
|
|
3609 |
httpServerHomeURL onChangeSend:#evaluateModified to:self.
|
|
|
3610 |
].
|
|
|
3611 |
^ httpServerHomeURL.
|
|
|
3612 |
!
|
|
|
3613 |
|
|
|
3614 |
httpServerLogFile
|
|
|
3615 |
|
|
|
3616 |
httpServerLogFile isNil ifTrue:[
|
|
|
3617 |
httpServerLogFile := ValueHolder new.
|
|
|
3618 |
httpServerLogFile onChangeSend:#evaluateModified to:self.
|
|
|
3619 |
].
|
|
|
3620 |
^ httpServerLogFile.
|
|
|
3621 |
!
|
|
|
3622 |
|
|
|
3623 |
httpServerPort
|
|
|
3624 |
|
|
|
3625 |
httpServerPort isNil ifTrue:[
|
|
|
3626 |
httpServerPort := ValueHolder new.
|
|
|
3627 |
httpServerPort onChangeSend:#evaluateModified to:self.
|
|
|
3628 |
].
|
|
|
3629 |
^ httpServerPort.
|
|
|
3630 |
!
|
|
|
3631 |
|
|
|
3632 |
httpServerRunning
|
|
|
3633 |
|
|
|
3634 |
httpServerRunning isNil ifTrue:[
|
|
|
3635 |
httpServerRunning := true asValue.
|
|
|
3636 |
httpServerRunning addDependent:self.
|
|
|
3637 |
httpServerRunning onChangeSend:#evaluateModified to:self.
|
|
|
3638 |
].
|
|
|
3639 |
^ httpServerRunning.
|
|
|
3640 |
!
|
|
|
3641 |
|
|
|
3642 |
modifiedChannel
|
|
|
3643 |
|
|
|
3644 |
modifiedChannel isNil ifTrue:[
|
|
|
3645 |
modifiedChannel := false asValue.
|
|
|
3646 |
].
|
|
|
3647 |
^ modifiedChannel
|
|
|
3648 |
!
|
|
|
3649 |
|
|
|
3650 |
soapEnabled
|
|
|
3651 |
|
|
|
3652 |
soapEnabled isNil ifTrue:[
|
|
|
3653 |
soapEnabled := true asValue.
|
|
|
3654 |
soapEnabled onChangeSend:#evaluateModified to:self.
|
|
|
3655 |
].
|
|
|
3656 |
^ soapEnabled.
|
|
|
3657 |
!
|
|
|
3658 |
|
|
|
3659 |
swikiEnabled
|
|
|
3660 |
|
|
|
3661 |
swikiEnabled isNil ifTrue:[
|
|
|
3662 |
swikiEnabled := true asValue.
|
|
|
3663 |
swikiEnabled addDependent:self.
|
|
|
3664 |
swikiEnabled onChangeSend:#evaluateModified to:self.
|
|
|
3665 |
].
|
|
|
3666 |
^ swikiEnabled.
|
|
|
3667 |
!
|
|
|
3668 |
|
|
|
3669 |
swikiRoot
|
|
|
3670 |
|
|
|
3671 |
swikiRoot isNil ifTrue:[
|
|
|
3672 |
swikiRoot := ValueHolder new.
|
|
|
3673 |
swikiRoot onChangeSend:#evaluateModified to:self.
|
|
|
3674 |
].
|
|
|
3675 |
^ swikiRoot.
|
|
|
3676 |
!
|
|
|
3677 |
|
|
|
3678 |
swikiRootEnabled
|
|
|
3679 |
|
|
|
3680 |
swikiRootEnabled isNil ifTrue:[
|
|
|
3681 |
swikiRootEnabled := true asValue.
|
|
|
3682 |
swikiRootEnabled onChangeSend:#evaluateModified to:self.
|
|
|
3683 |
].
|
|
|
3684 |
^ swikiRootEnabled.
|
|
|
3685 |
! !
|
|
|
3686 |
|
|
|
3687 |
!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'change & update'!
|
|
|
3688 |
|
|
|
3689 |
httpServerRunningChanged
|
|
|
3690 |
|
|
|
3691 |
self httpServerFileRoot value:(HTTPServer fileRoot).
|
|
|
3692 |
self httpServerHomeURL value:(HTTPServer homeURL).
|
|
|
3693 |
self httpServerPort value:(HTTPServer defaultPort).
|
|
|
3694 |
self httpServerLogFile value:(HTTPServer defaultLogFile).
|
|
|
3695 |
!
|
|
|
3696 |
|
|
|
3697 |
swikiEnabledChanged
|
|
|
3698 |
|
|
|
3699 |
self swikiRoot value:(PWS::SwikiAction serverDirectory).
|
|
|
3700 |
self swikiRootEnabled value:self swikiEnabled value.
|
|
|
3701 |
!
|
|
|
3702 |
|
|
|
3703 |
update:something with:aParameter from:changedObject
|
|
|
3704 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
3705 |
|
|
|
3706 |
"stub code automatically generated - please change as required"
|
|
|
3707 |
|
|
|
3708 |
changedObject == self httpServerRunning ifTrue:[
|
|
|
3709 |
self httpServerRunningChanged.
|
|
|
3710 |
^ self.
|
|
|
3711 |
].
|
|
|
3712 |
changedObject == self swikiEnabled ifTrue:[
|
|
|
3713 |
self swikiEnabledChanged.
|
|
|
3714 |
^ self.
|
|
|
3715 |
].
|
|
|
3716 |
|
|
|
3717 |
super update:something with:aParameter from:changedObject
|
|
|
3718 |
! !
|
|
|
3719 |
|
|
|
3720 |
!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'initialization & release'!
|
|
|
3721 |
|
|
|
3722 |
initialize
|
|
|
3723 |
|
|
4387
|
3724 |
resources := self class classResources.
|
|
4310
|
3725 |
self loadRequest.
|
|
|
3726 |
super initialize
|
|
|
3727 |
! !
|
|
|
3728 |
|
|
|
3729 |
!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'queries'!
|
|
|
3730 |
|
|
|
3731 |
hasHTTPServer
|
|
|
3732 |
|
|
|
3733 |
^ HTTPServer notNil
|
|
|
3734 |
!
|
|
|
3735 |
|
|
|
3736 |
hasSoap
|
|
|
3737 |
|
|
|
3738 |
^ SOAP::SoapHttpModule notNil
|
|
|
3739 |
!
|
|
|
3740 |
|
|
|
3741 |
hasSwiki
|
|
|
3742 |
|
|
|
3743 |
^ PWS::SwikiAction notNil
|
|
|
3744 |
!
|
|
|
3745 |
|
|
|
3746 |
hasUnsavedChanges
|
|
|
3747 |
|
|
|
3748 |
^ (
|
|
|
3749 |
(((self hasHTTPServer and:[HTTPServer isLoaded]) and:[
|
|
|
3750 |
HTTPServer defaultPort ~= self httpServerPort value or:[
|
|
|
3751 |
HTTPServer fileRoot ~= (self httpServerFileRoot value isEmptyOrNil ifTrue:[nil] ifFalse:[self httpServerFileRoot value]) or:[
|
|
|
3752 |
HTTPServer defaultLogFile ~= (self httpServerLogFile value isEmptyOrNil ifTrue:[nil] ifFalse:[self httpServerLogFile value]) or:[
|
|
|
3753 |
HTTPServer homeURL ~= (self httpServerHomeURL value isEmptyOrNil ifTrue:[nil] ifFalse:[self httpServerHomeURL value]) or:[
|
|
|
3754 |
HTTPServer isRunning ~= self httpServerRunning value]]]]]) or:[
|
|
|
3755 |
|
|
|
3756 |
self hasSwiki and:[
|
|
|
3757 |
PWS::ServerAction serverDirectory ~= (self swikiRoot value isEmptyOrNil ifTrue:[nil] ifFalse:[self swikiRoot value]) or:[
|
|
|
3758 |
HTTPServer enableEmbeddedSmalltalk ~= self allowEmbedded value or:[
|
|
|
3759 |
HTTPServer hasMySwikiConfigured ~= self swikiEnabled value ]]]]) or:[
|
|
|
3760 |
self hasSoap and:[HTTPServer hasSoapEnabled ~= self soapEnabled value]]
|
|
|
3761 |
)
|
|
|
3762 |
! !
|
|
|
3763 |
|
|
4312
|
3764 |
!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
|
|
|
3765 |
|
|
|
3766 |
defaultIcon
|
|
|
3767 |
"This resource specification was automatically generated
|
|
|
3768 |
by the ImageEditor of ST/X."
|
|
|
3769 |
|
|
|
3770 |
"Do not manually edit this!! If it is corrupted,
|
|
|
3771 |
the ImageEditor may not be able to read the specification."
|
|
|
3772 |
|
|
|
3773 |
"
|
|
|
3774 |
self defaultIcon inspect
|
|
|
3775 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
3776 |
Icon flushCachedIcons
|
|
|
3777 |
"
|
|
|
3778 |
|
|
|
3779 |
<resource: #image>
|
|
|
3780 |
|
|
|
3781 |
^Icon
|
|
|
3782 |
constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
|
|
|
3783 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
3784 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
3785 |
@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
|
|
|
3786 |
@@HDA@PDA@@D@@PD@@@@@@@@@@@@@@PDA@P@A@P@A@@DA@L@@@@@@@@@@@@B@ PD@@PD@@PDA@LC@0@@@@@@@@@@@ HBA@@@@@@DA@LC@0@@@@@@@@@@@@@B
|
|
|
3787 |
@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
|
|
|
3788 |
@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
3789 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 128 128 128 192 192 192 255 255 255]; 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]
|
|
|
3790 |
! !
|
|
|
3791 |
|
|
4286
|
3792 |
!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
|
|
|
3793 |
|
|
|
3794 |
windowSpec
|
|
|
3795 |
"This resource specification was automatically generated
|
|
|
3796 |
by the UIPainter of ST/X."
|
|
|
3797 |
|
|
|
3798 |
"Do not manually edit this!! If it is corrupted,
|
|
|
3799 |
the UIPainter may not be able to read the specification."
|
|
|
3800 |
|
|
|
3801 |
"
|
|
4310
|
3802 |
UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
|
|
|
3803 |
AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
|
|
|
3804 |
AbstractSettingsApplication::KbdMappingSettingsAppl open
|
|
4286
|
3805 |
"
|
|
|
3806 |
|
|
|
3807 |
<resource: #canvas>
|
|
|
3808 |
|
|
|
3809 |
^
|
|
|
3810 |
#(#FullSpec
|
|
|
3811 |
#name: #windowSpec
|
|
|
3812 |
#window:
|
|
|
3813 |
#(#WindowSpec
|
|
4405
|
3814 |
#label: 'Keyboard Mapping Settings'
|
|
|
3815 |
#name: 'Keyboard Mapping Settings'
|
|
4286
|
3816 |
#min: #(#Point 10 10)
|
|
|
3817 |
#max: #(#Point 1024 768)
|
|
4310
|
3818 |
#bounds: #(#Rectangle 16 42 491 650)
|
|
4286
|
3819 |
)
|
|
|
3820 |
#component:
|
|
|
3821 |
#(#SpecCollection
|
|
|
3822 |
#collection: #(
|
|
|
3823 |
#(#VariableVerticalPanelSpec
|
|
|
3824 |
#name: 'VariableVerticalPanel1'
|
|
4310
|
3825 |
#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
|
|
4286
|
3826 |
#component:
|
|
|
3827 |
#(#SpecCollection
|
|
|
3828 |
#collection: #(
|
|
|
3829 |
#(#VariableHorizontalPanelSpec
|
|
|
3830 |
#name: 'VariableHorizontalPanel1'
|
|
|
3831 |
#component:
|
|
|
3832 |
#(#SpecCollection
|
|
|
3833 |
#collection: #(
|
|
|
3834 |
#(#SequenceViewSpec
|
|
|
3835 |
#name: 'RawKeyList'
|
|
|
3836 |
#model: #selectedRawKey
|
|
|
3837 |
#hasHorizontalScrollBar: true
|
|
|
3838 |
#hasVerticalScrollBar: true
|
|
|
3839 |
#useIndex: false
|
|
|
3840 |
#sequenceList: #rawKeyList
|
|
|
3841 |
)
|
|
|
3842 |
#(#SequenceViewSpec
|
|
|
3843 |
#name: 'FunctionKeyList'
|
|
|
3844 |
#model: #selectedFunctionKey
|
|
|
3845 |
#hasHorizontalScrollBar: true
|
|
|
3846 |
#hasVerticalScrollBar: true
|
|
|
3847 |
#useIndex: false
|
|
|
3848 |
#sequenceList: #functionKeyList
|
|
|
3849 |
)
|
|
|
3850 |
)
|
|
|
3851 |
|
|
|
3852 |
)
|
|
|
3853 |
#handles: #(#Any 0.5 1.0)
|
|
|
3854 |
)
|
|
|
3855 |
#(#ViewSpec
|
|
|
3856 |
#name: 'Box1'
|
|
|
3857 |
#component:
|
|
|
3858 |
#(#SpecCollection
|
|
|
3859 |
#collection: #(
|
|
|
3860 |
#(#TextEditorSpec
|
|
|
3861 |
#name: 'MacroText'
|
|
|
3862 |
#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
|
|
|
3863 |
#model: #macroTextHolder
|
|
|
3864 |
#hasHorizontalScrollBar: true
|
|
|
3865 |
#hasVerticalScrollBar: true
|
|
|
3866 |
#isReadOnly: true
|
|
|
3867 |
)
|
|
|
3868 |
#(#LabelSpec
|
|
|
3869 |
#label: 'Macro text (if any):'
|
|
|
3870 |
#name: 'MacroTextLabel'
|
|
|
3871 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
|
|
|
3872 |
#translateLabel: true
|
|
|
3873 |
#adjust: #left
|
|
|
3874 |
)
|
|
|
3875 |
)
|
|
|
3876 |
|
|
|
3877 |
)
|
|
|
3878 |
)
|
|
|
3879 |
)
|
|
|
3880 |
|
|
|
3881 |
)
|
|
|
3882 |
#handles: #(#Any 0.5 1.0)
|
|
|
3883 |
)
|
|
|
3884 |
#(#LabelSpec
|
|
|
3885 |
#label: 'NoticeText'
|
|
|
3886 |
#name: 'Text'
|
|
|
3887 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
|
|
|
3888 |
#translateLabel: true
|
|
|
3889 |
#labelChannel: #labelTextHolder
|
|
|
3890 |
#resizeForLabel: true
|
|
|
3891 |
#adjust: #left
|
|
|
3892 |
)
|
|
|
3893 |
)
|
|
|
3894 |
|
|
|
3895 |
)
|
|
|
3896 |
)
|
|
|
3897 |
! !
|
|
|
3898 |
|
|
|
3899 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
|
|
|
3900 |
|
|
|
3901 |
evaluateModified
|
|
|
3902 |
|
|
|
3903 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
3904 |
!
|
|
|
3905 |
|
|
|
3906 |
help
|
|
|
3907 |
|
|
|
3908 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
|
|
|
3909 |
!
|
|
|
3910 |
|
|
|
3911 |
loadRequest
|
|
|
3912 |
|
|
|
3913 |
self modifiedChannel value:false.
|
|
|
3914 |
!
|
|
|
3915 |
|
|
|
3916 |
saveSettings
|
|
|
3917 |
! !
|
|
|
3918 |
|
|
|
3919 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
|
|
|
3920 |
|
|
|
3921 |
functionKeyList
|
|
|
3922 |
"automatically generated by UIPainter ..."
|
|
|
3923 |
|
|
|
3924 |
"*** the code below creates a default model when invoked."
|
|
|
3925 |
"*** (which may not be the one you wanted)"
|
|
|
3926 |
"*** Please change as required and accept it in the browser."
|
|
|
3927 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
3928 |
|
|
|
3929 |
functionKeyList isNil ifTrue:[
|
|
|
3930 |
functionKeyList := ValueHolder new.
|
|
|
3931 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
3932 |
"/ functionKeyList addDependent:self.
|
|
|
3933 |
"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
|
|
|
3934 |
].
|
|
|
3935 |
^ functionKeyList.
|
|
|
3936 |
!
|
|
|
3937 |
|
|
|
3938 |
labelTextHolder
|
|
|
3939 |
"automatically generated by UIPainter ..."
|
|
|
3940 |
|
|
|
3941 |
"*** the code below creates a default model when invoked."
|
|
|
3942 |
"*** (which may not be the one you wanted)"
|
|
|
3943 |
"*** Please change as required and accept it in the browser."
|
|
|
3944 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
3945 |
|
|
|
3946 |
labelTextHolder isNil ifTrue:[
|
|
|
3947 |
labelTextHolder := ValueHolder new.
|
|
|
3948 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
3949 |
"/ labelTextHolder addDependent:self.
|
|
|
3950 |
"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
|
|
|
3951 |
].
|
|
|
3952 |
^ labelTextHolder.
|
|
|
3953 |
!
|
|
|
3954 |
|
|
|
3955 |
macroTextHolder
|
|
|
3956 |
"automatically generated by UIPainter ..."
|
|
|
3957 |
|
|
|
3958 |
"*** the code below creates a default model when invoked."
|
|
|
3959 |
"*** (which may not be the one you wanted)"
|
|
|
3960 |
"*** Please change as required and accept it in the browser."
|
|
|
3961 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
3962 |
|
|
|
3963 |
macroTextHolder isNil ifTrue:[
|
|
|
3964 |
macroTextHolder := ValueHolder new.
|
|
|
3965 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
3966 |
"/ macroTextHolder addDependent:self.
|
|
|
3967 |
"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
|
|
|
3968 |
].
|
|
|
3969 |
^ macroTextHolder.
|
|
|
3970 |
!
|
|
|
3971 |
|
|
|
3972 |
modifiedChannel
|
|
|
3973 |
|
|
|
3974 |
modifiedChannel isNil ifTrue:[
|
|
|
3975 |
modifiedChannel := false asValue.
|
|
|
3976 |
].
|
|
|
3977 |
^ modifiedChannel
|
|
|
3978 |
!
|
|
|
3979 |
|
|
|
3980 |
rawKeyList
|
|
|
3981 |
|
|
|
3982 |
rawKeyList isNil ifTrue:[
|
|
|
3983 |
rawKeyList := List new.
|
|
|
3984 |
].
|
|
|
3985 |
^ rawKeyList.
|
|
|
3986 |
!
|
|
|
3987 |
|
|
|
3988 |
selectedFunctionKey
|
|
|
3989 |
|
|
|
3990 |
selectedFunctionKey isNil ifTrue:[
|
|
|
3991 |
selectedFunctionKey := ValueHolder new.
|
|
|
3992 |
selectedFunctionKey addDependent:self.
|
|
|
3993 |
].
|
|
|
3994 |
^ selectedFunctionKey.
|
|
|
3995 |
!
|
|
|
3996 |
|
|
|
3997 |
selectedRawKey
|
|
|
3998 |
|
|
|
3999 |
selectedRawKey isNil ifTrue:[
|
|
|
4000 |
selectedRawKey := ValueHolder new.
|
|
|
4001 |
selectedRawKey addDependent:self.
|
|
|
4002 |
].
|
|
|
4003 |
^ selectedRawKey.
|
|
|
4004 |
! !
|
|
|
4005 |
|
|
|
4006 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
|
|
|
4007 |
|
|
|
4008 |
changeFunctionKeySelection
|
|
|
4009 |
|
|
|
4010 |
|raw|
|
|
|
4011 |
raw := self selectedRawKey value.
|
|
|
4012 |
self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
|
|
|
4013 |
!
|
|
|
4014 |
|
|
|
4015 |
changeMacroText
|
|
|
4016 |
|
|
|
4017 |
|f macro indent|
|
|
|
4018 |
|
|
|
4019 |
f := self selectedFunctionKey value.
|
|
|
4020 |
(f startsWith:'Cmd') ifTrue:[
|
|
|
4021 |
f := f copyFrom:4
|
|
|
4022 |
].
|
|
|
4023 |
macro := UserPreferences current functionKeySequences
|
|
|
4024 |
at:(f asSymbol) ifAbsent:nil.
|
|
|
4025 |
macro notNil ifTrue:[
|
|
|
4026 |
macro := macro asStringCollection.
|
|
|
4027 |
indent := macro
|
|
|
4028 |
inject:99999 into:[:min :element |
|
|
|
4029 |
|stripped|
|
|
|
4030 |
|
|
|
4031 |
stripped := element withoutLeadingSeparators.
|
|
|
4032 |
stripped size == 0 ifTrue:[
|
|
|
4033 |
min
|
|
|
4034 |
] ifFalse:[
|
|
|
4035 |
min min:(element size - stripped size)
|
|
|
4036 |
]
|
|
|
4037 |
].
|
|
|
4038 |
indent ~~ 0 ifTrue:[
|
|
|
4039 |
macro := macro collect:[:line |
|
|
|
4040 |
line size > indent ifTrue:[
|
|
|
4041 |
line copyFrom:indent+1
|
|
|
4042 |
] ifFalse:[
|
|
|
4043 |
line
|
|
|
4044 |
].
|
|
|
4045 |
]
|
|
|
4046 |
].
|
|
|
4047 |
].
|
|
|
4048 |
macroTextHolder value:macro.
|
|
|
4049 |
!
|
|
|
4050 |
|
|
|
4051 |
changeRawKeySelection
|
|
|
4052 |
|f raw|
|
|
|
4053 |
|
|
|
4054 |
f := self selectedFunctionKey value.
|
|
|
4055 |
raw := mappings keyAtValue:f asString.
|
|
|
4056 |
raw isNil ifTrue:[
|
|
|
4057 |
raw := mappings keyAtValue:f first.
|
|
|
4058 |
raw isNil ifTrue:[
|
|
|
4059 |
raw := mappings keyAtValue:f asSymbol.
|
|
|
4060 |
]
|
|
|
4061 |
].
|
|
|
4062 |
self selectedRawKey value:raw.
|
|
|
4063 |
!
|
|
|
4064 |
|
|
|
4065 |
update:something with:aParameter from:changedObject
|
|
|
4066 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
4067 |
|
|
|
4068 |
"stub code automatically generated - please change as required"
|
|
|
4069 |
|
|
|
4070 |
changedObject == self selectedFunctionKey ifTrue:[
|
|
|
4071 |
self changeRawKeySelection.
|
|
|
4072 |
self changeMacroText.
|
|
|
4073 |
^ self
|
|
|
4074 |
].
|
|
|
4075 |
changedObject == self selectedRawKey ifTrue:[
|
|
|
4076 |
self changeFunctionKeySelection.
|
|
|
4077 |
^ self
|
|
|
4078 |
].
|
|
|
4079 |
super update:something with:aParameter from:changedObject
|
|
|
4080 |
! !
|
|
|
4081 |
|
|
|
4082 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
|
|
|
4083 |
|
|
|
4084 |
closeDownViews
|
|
|
4085 |
"This is a hook method generated by the Browser.
|
|
|
4086 |
It will be invoked when your app/dialog-window is really closed.
|
|
|
4087 |
See also #closeDownViews, which is invoked before and may suppress the close
|
|
|
4088 |
or ask the user for confirmation."
|
|
|
4089 |
|
|
|
4090 |
"/ change the code below as required ...
|
|
|
4091 |
"/ This should cleanup any leftover resources
|
|
|
4092 |
"/ (for example, temporary files)
|
|
|
4093 |
"/ super closeRequest will initiate the closeDown
|
|
|
4094 |
|
|
|
4095 |
"/ add your code here
|
|
|
4096 |
|
|
|
4097 |
"/ do not remove the one below ...
|
|
|
4098 |
^ super closeDownViews
|
|
|
4099 |
!
|
|
|
4100 |
|
|
|
4101 |
initialize
|
|
|
4102 |
|
|
4387
|
4103 |
resources := self class classResources.
|
|
4286
|
4104 |
|
|
|
4105 |
mappings := Screen current keyboardMap.
|
|
|
4106 |
|
|
|
4107 |
rawKeyList := (mappings keys asArray collect:[:key | key asString]) sort.
|
|
|
4108 |
functionKeyList := (mappings values asSet asArray collect:[:key | key asString]) sort.
|
|
|
4109 |
|
|
|
4110 |
self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
|
|
|
4111 |
super initialize
|
|
|
4112 |
! !
|
|
|
4113 |
|
|
|
4114 |
!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
|
|
|
4115 |
|
|
|
4116 |
hasUnsavedChanges
|
|
|
4117 |
|
|
|
4118 |
^ false
|
|
|
4119 |
! !
|
|
|
4120 |
|
|
4312
|
4121 |
!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
|
|
|
4122 |
|
|
|
4123 |
defaultIcon
|
|
|
4124 |
"This resource specification was automatically generated
|
|
|
4125 |
by the ImageEditor of ST/X."
|
|
|
4126 |
|
|
|
4127 |
"Do not manually edit this!! If it is corrupted,
|
|
|
4128 |
the ImageEditor may not be able to read the specification."
|
|
|
4129 |
|
|
|
4130 |
"
|
|
|
4131 |
self defaultIcon inspect
|
|
|
4132 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
4133 |
Icon flushCachedIcons
|
|
|
4134 |
"
|
|
|
4135 |
|
|
|
4136 |
<resource: #image>
|
|
|
4137 |
|
|
|
4138 |
^Icon
|
|
|
4139 |
constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
|
|
|
4140 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
4141 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@PD@@@@@@@@A@PD@@@@@@@@A@R,+J2,+@PDA@PDAF1@P@P@@@@@@@PD[J2,+GQ4]GQ4+J2,WE0D@@@@@@@DA
|
|
|
4142 |
F2,+J14]GQ4]GR,+E1\A@@@@@@@A@Q,+J14]GQ4]GQ4]J1,[@P@@@@@@@PD[J2,]GQ4]GQ4]GR,+J0DA@PD@@@DAF2,+@PX]GPXAGQ4+J2,B@PDA@@@A@Q,+
|
|
|
4143 |
J0DFB0,F@P(J@P(J@ DA@P@@@PD[J2,A@PXFB0XA@PTEAPTE@PDA@@DAF2,+@QPFA!!8T@0LBAPTEB@DA@P@A@QXA@PD^IBP$G <OD!!PTHBDXF@$@@PDV@PDA
|
|
|
4144 |
G"@ HB@OC1HTEB@ FA I@@DAA@@@@QP^G"PTD1LNGA0 HB@ BP@A@P@@@@DTF!!(*JR (EQPTH"T_G0$@@PD@@@@AEA(#H2L(JATTEBH%G2LI@@DA@@@@@QT#
|
|
|
4145 |
H2$#H2L#H2L#H2L#A0@A@P@@@@DQFQ$LA2L#CBL#JR(#H00@@@@@@@@AC@0L@@@GA00GA00LA0\@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@
|
|
|
4146 |
@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@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 107 107 107 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 233 135 135 235 146 146 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]
|
|
|
4147 |
! !
|
|
|
4148 |
|
|
4286
|
4149 |
!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
|
|
|
4150 |
|
|
|
4151 |
windowSpec
|
|
|
4152 |
"This resource specification was automatically generated
|
|
|
4153 |
by the UIPainter of ST/X."
|
|
|
4154 |
|
|
|
4155 |
"Do not manually edit this!! If it is corrupted,
|
|
|
4156 |
the UIPainter may not be able to read the specification."
|
|
|
4157 |
|
|
|
4158 |
"
|
|
4310
|
4159 |
UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
|
|
|
4160 |
AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
|
|
|
4161 |
AbstractSettingsApplication::LanguageSettingsAppl open
|
|
4286
|
4162 |
"
|
|
|
4163 |
|
|
|
4164 |
<resource: #canvas>
|
|
|
4165 |
|
|
|
4166 |
^
|
|
|
4167 |
#(#FullSpec
|
|
|
4168 |
#name: #windowSpec
|
|
|
4169 |
#window:
|
|
|
4170 |
#(#WindowSpec
|
|
|
4171 |
#label: 'Language Settings'
|
|
|
4172 |
#name: 'Language Settings'
|
|
|
4173 |
#min: #(#Point 10 10)
|
|
|
4174 |
#max: #(#Point 1024 768)
|
|
|
4175 |
#bounds: #(#Rectangle 16 42 491 713)
|
|
|
4176 |
)
|
|
|
4177 |
#component:
|
|
|
4178 |
#(#SpecCollection
|
|
|
4179 |
#collection: #(
|
|
|
4180 |
#(#InputFieldSpec
|
|
|
4181 |
#name: 'EntryField1'
|
|
|
4182 |
#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 125 0)
|
|
|
4183 |
#model: #languageHolder
|
|
|
4184 |
#acceptOnReturn: true
|
|
|
4185 |
#acceptOnTab: true
|
|
|
4186 |
#acceptOnLostFocus: true
|
|
|
4187 |
#acceptOnPointerLeave: false
|
|
|
4188 |
)
|
|
|
4189 |
#(#SequenceViewSpec
|
|
|
4190 |
#name: 'List1'
|
|
4310
|
4191 |
#layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 0 1.0)
|
|
4286
|
4192 |
#model: #languageHolder
|
|
|
4193 |
#hasHorizontalScrollBar: true
|
|
|
4194 |
#hasVerticalScrollBar: true
|
|
|
4195 |
#doubleClickSelector: #doubleClick:
|
|
|
4196 |
#useIndex: false
|
|
|
4197 |
#sequenceList: #languageList
|
|
|
4198 |
)
|
|
|
4199 |
#(#LabelSpec
|
|
|
4200 |
#label: 'Notice:'
|
|
|
4201 |
#name: 'Notice'
|
|
|
4202 |
#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
|
|
|
4203 |
#translateLabel: true
|
|
|
4204 |
#labelChannel: #noticeLabelHolder
|
|
|
4205 |
#adjust: #left
|
|
|
4206 |
)
|
|
|
4207 |
#(#LabelSpec
|
|
|
4208 |
#label: 'Label'
|
|
|
4209 |
#name: 'CurrentLang'
|
|
|
4210 |
#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
|
|
|
4211 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
4212 |
#translateLabel: true
|
|
|
4213 |
#labelChannel: #currentLanguageChannel
|
|
|
4214 |
#adjust: #left
|
|
|
4215 |
)
|
|
|
4216 |
#(#LabelSpec
|
|
|
4217 |
#label: 'Current Language:'
|
|
|
4218 |
#name: 'Label1'
|
|
|
4219 |
#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
|
|
|
4220 |
#translateLabel: true
|
|
|
4221 |
#labelChannel: #currentLanguageLabel
|
|
|
4222 |
#adjust: #right
|
|
|
4223 |
)
|
|
|
4224 |
)
|
|
|
4225 |
|
|
|
4226 |
)
|
|
|
4227 |
)
|
|
|
4228 |
! !
|
|
|
4229 |
|
|
|
4230 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
|
|
|
4231 |
|
|
|
4232 |
languageList
|
|
|
4233 |
"return the value of the instance variable 'languageList' (automatically generated)"
|
|
|
4234 |
|
|
|
4235 |
^ languageList
|
|
|
4236 |
!
|
|
|
4237 |
|
|
|
4238 |
requestor
|
|
|
4239 |
"return the value of the instance variable 'requestor' (automatically generated)"
|
|
|
4240 |
|
|
|
4241 |
| masterApplication |
|
|
|
4242 |
masterApplication := self masterApplication.
|
|
|
4243 |
masterApplication notNil ifTrue:[
|
|
|
4244 |
^ masterApplication requestor.
|
|
|
4245 |
].
|
|
|
4246 |
^ nil
|
|
|
4247 |
! !
|
|
|
4248 |
|
|
|
4249 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
|
|
|
4250 |
|
|
|
4251 |
doubleClick:aEntry
|
|
|
4252 |
|
|
|
4253 |
self saveSettings.
|
|
|
4254 |
!
|
|
|
4255 |
|
|
|
4256 |
evaluateModified
|
|
|
4257 |
|
|
|
4258 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
4259 |
!
|
|
|
4260 |
|
|
|
4261 |
help
|
|
|
4262 |
|
|
|
4263 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
|
|
|
4264 |
!
|
|
|
4265 |
|
|
|
4266 |
loadRequest
|
|
|
4267 |
|
|
|
4268 |
self languageHolder value:self currentLanguage.
|
|
|
4269 |
self currentLanguageChannel value:self currentLanguage.
|
|
|
4270 |
self modifiedChannel value:false.
|
|
|
4271 |
!
|
|
|
4272 |
|
|
|
4273 |
saveSettings
|
|
|
4274 |
|
|
|
4275 |
|fontPref idx language oldLanguage territory enc
|
|
|
4276 |
answer matchingFonts l screen newLanguage switch|
|
|
|
4277 |
|
|
|
4278 |
newLanguage := self languageHolder value.
|
|
|
4279 |
self withWaitCursorDo:[
|
|
|
4280 |
idx := translatedLanguages indexOf:newLanguage.
|
|
|
4281 |
idx ~~ 0 ifTrue:[
|
|
|
4282 |
language := listOfLanguages at:idx
|
|
|
4283 |
] ifFalse:[
|
|
|
4284 |
language := newLanguage
|
|
|
4285 |
].
|
|
|
4286 |
(language includes:$-) ifTrue:[
|
|
|
4287 |
l := language asCollectionOfSubstringsSeparatedBy:$-.
|
|
|
4288 |
language := l at:1.
|
|
|
4289 |
territory := l at:2.
|
|
|
4290 |
].
|
|
|
4291 |
territory isNil ifTrue:[
|
|
|
4292 |
territory := language copyTo:2
|
|
|
4293 |
].
|
|
|
4294 |
|
|
|
4295 |
"/ check if the new language needs a differently encoded font;
|
|
|
4296 |
"/ ask user to switch font and allow cancellation.
|
|
|
4297 |
"/ Otherwise, you are left with unreadable menu & button items ...
|
|
|
4298 |
|
|
|
4299 |
oldLanguage := Smalltalk language.
|
|
|
4300 |
Smalltalk language:language asSymbol.
|
|
|
4301 |
ResourcePack flushCachedResourcePacks.
|
|
|
4302 |
"/ refetch resources ...
|
|
|
4303 |
resources := AbstractLauncherApplication classResources.
|
|
|
4304 |
fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
|
|
|
4305 |
fontPref := fontPref asLowercase.
|
|
|
4306 |
Smalltalk language:oldLanguage.
|
|
|
4307 |
|
|
|
4308 |
switch := true.
|
|
|
4309 |
enc := MenuView defaultFont encoding.
|
|
|
4310 |
(fontPref match:enc asLowercase) ifFalse:[
|
|
|
4311 |
"/ look if there is one at all.
|
|
|
4312 |
screen := Screen current.
|
|
|
4313 |
matchingFonts := screen listOfAvailableFonts select:[:f | fontPref match:f encoding asLowercase].
|
|
|
4314 |
matchingFonts size == 0 ifTrue:[
|
|
|
4315 |
"/ flush and try again - just in case, the font path has changed.
|
|
|
4316 |
screen flushListOfAvailableFonts.
|
|
|
4317 |
matchingFonts := screen listOfAvailableFonts select:[:f | fontPref match:f encoding asLowercase].
|
|
|
4318 |
].
|
|
|
4319 |
matchingFonts size == 0 ifTrue:[
|
|
|
4320 |
(Dialog
|
|
|
4321 |
confirm:(resources
|
|
|
4322 |
string:'Your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
|
|
|
4323 |
with:fontPref) withCRs)
|
|
|
4324 |
ifFalse:[
|
|
|
4325 |
switch := false
|
|
|
4326 |
]
|
|
|
4327 |
] ifFalse:[
|
|
|
4328 |
answer := Dialog
|
|
|
4329 |
confirmWithCancel:(resources
|
|
|
4330 |
string:'menu font is not %1-encoded.\\Change it ?'
|
|
|
4331 |
with:fontPref) withCRs
|
|
|
4332 |
labels:(resources
|
|
|
4333 |
array:#('cancel' 'no' 'yes'))
|
|
|
4334 |
default:3.
|
|
|
4335 |
answer isNil ifTrue:[
|
|
|
4336 |
switch := false
|
|
|
4337 |
] ifFalse:[
|
|
|
4338 |
answer ifTrue:[
|
|
|
4339 |
switch := ( self requestor fontBoxForEncoding:fontPref)
|
|
|
4340 |
]
|
|
|
4341 |
].
|
|
|
4342 |
].
|
|
|
4343 |
].
|
|
|
4344 |
|
|
|
4345 |
switch ifTrue:[
|
|
|
4346 |
Transcript showCR:'change language to ' , newLanguage , ' ...'.
|
|
|
4347 |
Smalltalk language:language asSymbol.
|
|
|
4348 |
Smalltalk languageTerritory:territory asSymbol.
|
|
|
4349 |
"/ ResourcePack flushCachedResourcePacks - already done by language-change
|
|
|
4350 |
].
|
|
|
4351 |
].
|
|
4327
|
4352 |
switch ifTrue:[
|
|
4286
|
4353 |
self requestor notNil ifTrue:[
|
|
|
4354 |
self requestor reopenLauncher.
|
|
4327
|
4355 |
] ifFalse:[
|
|
|
4356 |
NewLauncher current reopenLauncher.
|
|
4286
|
4357 |
].
|
|
|
4358 |
DebugView newDebugger.
|
|
|
4359 |
].
|
|
|
4360 |
self currentLanguageChannel value:self currentLanguage.
|
|
|
4361 |
self modifiedChannel value:false.
|
|
|
4362 |
! !
|
|
|
4363 |
|
|
|
4364 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
|
|
|
4365 |
|
|
|
4366 |
currentLanguageChannel
|
|
|
4367 |
|
|
|
4368 |
currentLanguageChannel isNil ifTrue:[
|
|
|
4369 |
currentLanguageChannel := self currentLanguage asValue.
|
|
|
4370 |
].
|
|
|
4371 |
^ currentLanguageChannel.
|
|
|
4372 |
!
|
|
|
4373 |
|
|
|
4374 |
currentLanguageLabel
|
|
|
4375 |
|
|
|
4376 |
currentLanguageLabel isNil ifTrue:[
|
|
|
4377 |
currentLanguageLabel := (resources string:'Current Language:') asValue.
|
|
|
4378 |
].
|
|
|
4379 |
^ currentLanguageLabel.
|
|
|
4380 |
!
|
|
|
4381 |
|
|
|
4382 |
languageHolder
|
|
|
4383 |
|
|
|
4384 |
languageHolder isNil ifTrue:[
|
|
|
4385 |
languageHolder := self currentLanguage asValue.
|
|
|
4386 |
languageHolder onChangeSend:#evaluateModified to:self.
|
|
|
4387 |
].
|
|
|
4388 |
^ languageHolder.
|
|
|
4389 |
!
|
|
|
4390 |
|
|
|
4391 |
modifiedChannel
|
|
|
4392 |
|
|
|
4393 |
modifiedChannel isNil ifTrue:[
|
|
|
4394 |
modifiedChannel := false asValue.
|
|
|
4395 |
].
|
|
|
4396 |
^ modifiedChannel
|
|
|
4397 |
!
|
|
|
4398 |
|
|
|
4399 |
noticeLabelHolder
|
|
|
4400 |
|
|
|
4401 |
noticeLabelHolder isNil ifTrue:[
|
|
|
4402 |
noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
|
|
|
4403 |
].
|
|
|
4404 |
^ noticeLabelHolder.
|
|
|
4405 |
! !
|
|
|
4406 |
|
|
|
4407 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
|
|
|
4408 |
|
|
|
4409 |
closeDownViews
|
|
|
4410 |
"This is a hook method generated by the Browser.
|
|
|
4411 |
It will be invoked when your app/dialog-window is really closed.
|
|
|
4412 |
See also #closeDownViews, which is invoked before and may suppress the close
|
|
|
4413 |
or ask the user for confirmation."
|
|
|
4414 |
|
|
|
4415 |
"/ change the code below as required ...
|
|
|
4416 |
"/ This should cleanup any leftover resources
|
|
|
4417 |
"/ (for example, temporary files)
|
|
|
4418 |
"/ super closeRequest will initiate the closeDown
|
|
|
4419 |
|
|
|
4420 |
"/ add your code here
|
|
|
4421 |
|
|
|
4422 |
"/ do not remove the one below ...
|
|
|
4423 |
^ super closeDownViews
|
|
|
4424 |
!
|
|
|
4425 |
|
|
|
4426 |
initialize
|
|
|
4427 |
|
|
|
4428 |
|flags|
|
|
|
4429 |
|
|
4387
|
4430 |
resources := self class classResources.
|
|
4286
|
4431 |
listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
|
|
|
4432 |
listOfLanguages := listOfLanguages asOrderedCollection.
|
|
|
4433 |
translatedLanguages := listOfLanguages collect:[:lang | |item|
|
|
|
4434 |
item := resources at:lang.
|
|
|
4435 |
item isString ifTrue:[
|
|
|
4436 |
item
|
|
|
4437 |
] ifFalse:[
|
|
|
4438 |
item at:1
|
|
|
4439 |
]
|
|
|
4440 |
].
|
|
|
4441 |
flags := listOfLanguages collect:[:lang | |item|
|
|
|
4442 |
item := resources at:lang.
|
|
|
4443 |
item isArray ifTrue:[
|
|
|
4444 |
item at:2
|
|
|
4445 |
] ifFalse:[
|
|
|
4446 |
nil
|
|
|
4447 |
]
|
|
|
4448 |
].
|
|
|
4449 |
flags := flags collect:[:nm | |img d| nm notNil ifTrue:[
|
|
|
4450 |
img := Image fromFile:nm.
|
|
|
4451 |
img isNil ifTrue:[
|
|
|
4452 |
d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
|
|
|
4453 |
img := Image fromFile:(d construct:nm).
|
|
|
4454 |
].
|
|
|
4455 |
] ifFalse:[
|
|
|
4456 |
nil
|
|
|
4457 |
]
|
|
|
4458 |
].
|
|
|
4459 |
listOfLanguages := listOfLanguages collect:[:nm | nm copyFrom:'LANG_' size + 1].
|
|
|
4460 |
languageList := translatedLanguages with:flags collect:[:lang :flag | LabelAndIcon icon:flag string:lang.].
|
|
|
4461 |
super initialize
|
|
|
4462 |
! !
|
|
|
4463 |
|
|
|
4464 |
!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
|
|
|
4465 |
|
|
|
4466 |
currentLanguage
|
|
|
4467 |
|
|
|
4468 |
| lang |
|
|
|
4469 |
|
|
|
4470 |
lang := Language ~= LanguageTerritory ifTrue:[
|
|
|
4471 |
Language , '-' , LanguageTerritory
|
|
|
4472 |
] ifFalse:[
|
|
|
4473 |
Language
|
|
|
4474 |
].
|
|
|
4475 |
^ languageList at:(listOfLanguages indexOf:lang)
|
|
|
4476 |
!
|
|
|
4477 |
|
|
|
4478 |
hasUnsavedChanges
|
|
|
4479 |
|
|
|
4480 |
^ (self languageHolder value) ~= (self currentLanguage)
|
|
|
4481 |
! !
|
|
|
4482 |
|
|
4312
|
4483 |
!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
|
|
|
4484 |
|
|
|
4485 |
defaultIcon
|
|
|
4486 |
"This resource specification was automatically generated
|
|
|
4487 |
by the ImageEditor of ST/X."
|
|
|
4488 |
|
|
|
4489 |
"Do not manually edit this!! If it is corrupted,
|
|
|
4490 |
the ImageEditor may not be able to read the specification."
|
|
|
4491 |
|
|
|
4492 |
"
|
|
|
4493 |
self defaultIcon inspect
|
|
|
4494 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
4495 |
Icon flushCachedIcons
|
|
|
4496 |
"
|
|
|
4497 |
|
|
|
4498 |
<resource: #image>
|
|
|
4499 |
|
|
|
4500 |
^Icon
|
|
|
4501 |
constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
|
|
|
4502 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
4503 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
|
|
|
4504 |
@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
|
|
|
4505 |
RC-VGQ\JB0,MCP0NGQPEUQ4@@@ARM14>IA\HB $JB0,MF!!TGO%,6T0@@RSMAF!!TGA0 HB $JFQL@AR9ZRTX@RDAWHALEAPTGA0 HE1HGPA<;FC@@@B$&I1LA
|
|
|
4506 |
@ LEA@TGE1L@NU1EOQ=M@@@''L LXB@@A@ LEEQDHB1!!ERC!!U@@@@P#,@AQ\G@@@AEA@@OB5FGT!!T@@@@@@AYF0@EE0\AD1D@G5D4S%UG@@@@@@@@@C(F@@PW
|
|
|
4507 |
E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
4508 |
SAMM@@@@@@@@@@@@@@@@@@@@@@@@@@@V@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 1 1 1 3 3 3 5 5 5 9 9 9 10 10 10 14 14 14 15 15 15 20 20 20 23 23 23 25 25 25 30 30 30 34 34 34 35 35 35 39 39 39 40 40 40 44 44 44 45 45 45 49 49 49 50 50 50 57 57 57 60 60 60 69 69 69 70 70 70 80 80 80 82 82 82 83 83 83 84 84 84 89 89 89 90 90 90 93 93 93 94 94 94 95 95 95 98 98 98 99 99 99 101 101 101 106 106 106 109 109 109 113 113 113 114 114 114 119 119 120 128 128 128 134 134 134 137 137 137 137 137 139 139 139 139 143 143 143 144 144 144 145 145 145 146 146 146 147 147 147 147 147 148 148 148 148 149 149 149 150 150 150 155 155 155 156 156 156 157 157 157 158 158 158 160 160 160 162 162 162 163 163 164 165 165 165 166 166 168 167 167 167 168 168 168 172 172 172 173 173 173 175 175 175 177 177 177 178 178 178 179 179 179 180 180 180 182 182 182 182 182 184 192 192 192 193 193 196 198 198 198 200 200 200 200 200 201 201 201 201 202 202 202 203 203 203 204 204 204 204 204 206 205 205 205 206 206 206 207 207 207 209 209 209 213 213 213 225 225 225 247 247 247 255 255 255]; 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]
|
|
|
4509 |
! !
|
|
|
4510 |
|
|
4286
|
4511 |
!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
|
|
|
4512 |
|
|
|
4513 |
windowSpec
|
|
|
4514 |
"This resource specification was automatically generated
|
|
|
4515 |
by the UIPainter of ST/X."
|
|
|
4516 |
|
|
|
4517 |
"Do not manually edit this!! If it is corrupted,
|
|
|
4518 |
the UIPainter may not be able to read the specification."
|
|
|
4519 |
|
|
|
4520 |
"
|
|
4310
|
4521 |
UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
|
|
|
4522 |
AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
|
|
|
4523 |
AbstractSettingsApplication::MemorySettingsAppl open
|
|
4286
|
4524 |
"
|
|
|
4525 |
|
|
|
4526 |
<resource: #canvas>
|
|
|
4527 |
|
|
|
4528 |
^
|
|
|
4529 |
#(#FullSpec
|
|
|
4530 |
#name: #windowSpec
|
|
|
4531 |
#window:
|
|
|
4532 |
#(#WindowSpec
|
|
|
4533 |
#label: 'Memory Manager Settings'
|
|
|
4534 |
#name: 'Memory Manager Settings'
|
|
|
4535 |
#min: #(#Point 10 10)
|
|
|
4536 |
#max: #(#Point 1024 768)
|
|
|
4537 |
#bounds: #(#Rectangle 16 42 616 592)
|
|
|
4538 |
)
|
|
|
4539 |
#component:
|
|
|
4540 |
#(#SpecCollection
|
|
|
4541 |
#collection: #(
|
|
|
4542 |
#(#LabelSpec
|
|
|
4543 |
#label: 'Label'
|
|
|
4544 |
#name: 'Label1'
|
|
|
4545 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
|
|
|
4546 |
#translateLabel: true
|
|
|
4547 |
#labelChannel: #warningLabelHolder
|
|
|
4548 |
#adjust: #left
|
|
|
4549 |
)
|
|
4310
|
4550 |
#(#VerticalPanelViewSpec
|
|
|
4551 |
#name: 'VerticalPanel1'
|
|
|
4552 |
#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
|
|
|
4553 |
#horizontalLayout: #fit
|
|
4286
|
4554 |
#verticalLayout: #center
|
|
|
4555 |
#horizontalSpace: 3
|
|
|
4556 |
#verticalSpace: 3
|
|
|
4557 |
#component:
|
|
|
4558 |
#(#SpecCollection
|
|
|
4559 |
#collection: #(
|
|
4310
|
4560 |
#(#ViewSpec
|
|
|
4561 |
#name: 'NewSpaceSizeBox'
|
|
|
4562 |
#component:
|
|
|
4563 |
#(#SpecCollection
|
|
|
4564 |
#collection: #(
|
|
|
4565 |
#(#InputFieldSpec
|
|
|
4566 |
#name: 'EntryField23'
|
|
|
4567 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4568 |
#model: #newSpaceSize
|
|
|
4569 |
#type: #number
|
|
|
4570 |
#acceptOnReturn: true
|
|
|
4571 |
#acceptOnTab: true
|
|
|
4572 |
#acceptOnLostFocus: true
|
|
|
4573 |
#acceptOnPointerLeave: false
|
|
|
4574 |
)
|
|
|
4575 |
#(#LabelSpec
|
|
|
4576 |
#label: 'Size of NewSpace:'
|
|
|
4577 |
#name: 'Label44'
|
|
|
4578 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4579 |
#translateLabel: true
|
|
|
4580 |
#adjust: #right
|
|
|
4581 |
)
|
|
|
4582 |
#(#LabelSpec
|
|
|
4583 |
#label: 'Size of newSpace where objects are created'
|
|
|
4584 |
#name: 'Label45'
|
|
|
4585 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4586 |
#translateLabel: true
|
|
|
4587 |
#adjust: #left
|
|
|
4588 |
)
|
|
|
4589 |
#(#DividerSpec
|
|
|
4590 |
#name: 'Separator24'
|
|
|
4591 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4592 |
)
|
|
|
4593 |
)
|
|
|
4594 |
|
|
|
4595 |
)
|
|
|
4596 |
#extent: #(#Point 600 49)
|
|
|
4597 |
)
|
|
|
4598 |
#(#ViewSpec
|
|
|
4599 |
#name: 'MaximumMemoryLimitBox'
|
|
|
4600 |
#component:
|
|
|
4601 |
#(#SpecCollection
|
|
|
4602 |
#collection: #(
|
|
|
4603 |
#(#InputFieldSpec
|
|
|
4604 |
#name: 'EntryField24'
|
|
|
4605 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4606 |
#model: #maxOldSpace
|
|
|
4607 |
#type: #number
|
|
|
4608 |
#acceptOnReturn: true
|
|
|
4609 |
#acceptOnTab: true
|
|
|
4610 |
#acceptOnLostFocus: true
|
|
|
4611 |
#acceptOnPointerLeave: false
|
|
|
4612 |
)
|
|
|
4613 |
#(#LabelSpec
|
|
|
4614 |
#label: 'Maximum Memory Limit:'
|
|
|
4615 |
#name: 'Label46'
|
|
|
4616 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4617 |
#translateLabel: true
|
|
|
4618 |
#adjust: #right
|
|
|
4619 |
)
|
|
|
4620 |
#(#LabelSpec
|
|
|
4621 |
#label: 'Never allocate more than this amount of memory'
|
|
|
4622 |
#name: 'Label47'
|
|
|
4623 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4624 |
#translateLabel: true
|
|
|
4625 |
#adjust: #left
|
|
|
4626 |
)
|
|
|
4627 |
#(#DividerSpec
|
|
|
4628 |
#name: 'Separator25'
|
|
|
4629 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4630 |
)
|
|
|
4631 |
)
|
|
|
4632 |
|
|
|
4633 |
)
|
|
|
4634 |
#extent: #(#Point 600 49)
|
|
|
4635 |
)
|
|
|
4636 |
#(#ViewSpec
|
|
|
4637 |
#name: 'QuickAllocationLimitBox'
|
|
|
4638 |
#component:
|
|
|
4639 |
#(#SpecCollection
|
|
|
4640 |
#collection: #(
|
|
|
4641 |
#(#InputFieldSpec
|
|
|
4642 |
#name: 'EntryField14'
|
|
|
4643 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4644 |
#model: #fastMoreLimit
|
|
|
4645 |
#type: #number
|
|
|
4646 |
#acceptOnReturn: true
|
|
|
4647 |
#acceptOnTab: true
|
|
|
4648 |
#acceptOnLostFocus: true
|
|
|
4649 |
#acceptOnPointerLeave: false
|
|
|
4650 |
)
|
|
|
4651 |
#(#LabelSpec
|
|
|
4652 |
#label: 'Quick Allocation Limit:'
|
|
|
4653 |
#name: 'Label26'
|
|
|
4654 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4655 |
#translateLabel: true
|
|
|
4656 |
#adjust: #right
|
|
|
4657 |
)
|
|
|
4658 |
#(#LabelSpec
|
|
|
4659 |
#label: 'Quickly allocate more memory (suppress GC) up to this limit'
|
|
|
4660 |
#name: 'Label27'
|
|
|
4661 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4662 |
#translateLabel: true
|
|
|
4663 |
#adjust: #left
|
|
|
4664 |
)
|
|
|
4665 |
#(#DividerSpec
|
|
|
4666 |
#name: 'Separator15'
|
|
|
4667 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4668 |
)
|
|
|
4669 |
)
|
|
|
4670 |
|
|
|
4671 |
)
|
|
|
4672 |
#extent: #(#Point 600 50)
|
|
|
4673 |
)
|
|
|
4674 |
#(#ViewSpec
|
|
|
4675 |
#name: 'IncrementalGCAllocationTriggerBox'
|
|
|
4676 |
#component:
|
|
|
4677 |
#(#SpecCollection
|
|
|
4678 |
#collection: #(
|
|
|
4679 |
#(#InputFieldSpec
|
|
|
4680 |
#name: 'EntryField25'
|
|
|
4681 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4682 |
#model: #igcLimit
|
|
|
4683 |
#type: #number
|
|
|
4684 |
#acceptOnReturn: true
|
|
|
4685 |
#acceptOnTab: true
|
|
|
4686 |
#acceptOnLostFocus: true
|
|
|
4687 |
#acceptOnPointerLeave: false
|
|
|
4688 |
)
|
|
|
4689 |
#(#LabelSpec
|
|
|
4690 |
#label: 'Incremental GC Allocation Trigger:'
|
|
|
4691 |
#name: 'Label48'
|
|
|
4692 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4693 |
#translateLabel: true
|
|
|
4694 |
#adjust: #right
|
|
|
4695 |
)
|
|
|
4696 |
#(#LabelSpec
|
|
|
4697 |
#label: 'Start IGC whenever this amount has been allocated'
|
|
|
4698 |
#name: 'Label49'
|
|
|
4699 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4700 |
#translateLabel: true
|
|
|
4701 |
#adjust: #left
|
|
|
4702 |
)
|
|
|
4703 |
#(#DividerSpec
|
|
|
4704 |
#name: 'Separator26'
|
|
|
4705 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4706 |
)
|
|
|
4707 |
)
|
|
|
4708 |
|
|
|
4709 |
)
|
|
|
4710 |
#extent: #(#Point 600 49)
|
|
|
4711 |
)
|
|
|
4712 |
#(#ViewSpec
|
|
|
4713 |
#name: 'IncrementalGCFreespaceTriggerBox'
|
|
|
4714 |
#component:
|
|
|
4715 |
#(#SpecCollection
|
|
|
4716 |
#collection: #(
|
|
|
4717 |
#(#InputFieldSpec
|
|
|
4718 |
#name: 'EntryField26'
|
|
|
4719 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4720 |
#model: #igcFreeLimit
|
|
|
4721 |
#type: #number
|
|
|
4722 |
#acceptOnReturn: true
|
|
|
4723 |
#acceptOnTab: true
|
|
|
4724 |
#acceptOnLostFocus: true
|
|
|
4725 |
#acceptOnPointerLeave: false
|
|
|
4726 |
)
|
|
|
4727 |
#(#LabelSpec
|
|
|
4728 |
#label: 'Incremental GC Freespace Trigger:'
|
|
|
4729 |
#name: 'Label50'
|
|
|
4730 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4731 |
#translateLabel: true
|
|
|
4732 |
#adjust: #right
|
|
|
4733 |
)
|
|
|
4734 |
#(#LabelSpec
|
|
|
4735 |
#label: 'Start IGC whenever freespace drops below this'
|
|
|
4736 |
#name: 'Label51'
|
|
|
4737 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4738 |
#translateLabel: true
|
|
|
4739 |
#adjust: #left
|
|
|
4740 |
)
|
|
|
4741 |
#(#DividerSpec
|
|
|
4742 |
#name: 'Separator27'
|
|
|
4743 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4744 |
)
|
|
|
4745 |
)
|
|
|
4746 |
|
|
|
4747 |
)
|
|
|
4748 |
#extent: #(#Point 600 48)
|
|
4286
|
4749 |
)
|
|
4310
|
4750 |
#(#ViewSpec
|
|
|
4751 |
#name: 'GCAmountBox'
|
|
|
4752 |
#component:
|
|
|
4753 |
#(#SpecCollection
|
|
|
4754 |
#collection: #(
|
|
|
4755 |
#(#InputFieldSpec
|
|
|
4756 |
#name: 'EntryField17'
|
|
|
4757 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4758 |
#model: #igcFreeAmount
|
|
|
4759 |
#type: #number
|
|
|
4760 |
#acceptOnReturn: true
|
|
|
4761 |
#acceptOnTab: true
|
|
|
4762 |
#acceptOnLostFocus: true
|
|
|
4763 |
#acceptOnPointerLeave: false
|
|
|
4764 |
)
|
|
|
4765 |
#(#LabelSpec
|
|
|
4766 |
#label: 'Incremental GC Amount:'
|
|
|
4767 |
#name: 'Label32'
|
|
|
4768 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4769 |
#translateLabel: true
|
|
|
4770 |
#adjust: #right
|
|
|
4771 |
)
|
|
|
4772 |
#(#LabelSpec
|
|
|
4773 |
#label: 'Try to keep this amount for peak requests'
|
|
|
4774 |
#name: 'Label33'
|
|
|
4775 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4776 |
#translateLabel: true
|
|
|
4777 |
#adjust: #left
|
|
|
4778 |
)
|
|
|
4779 |
#(#DividerSpec
|
|
|
4780 |
#name: 'Separator18'
|
|
|
4781 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4782 |
)
|
|
|
4783 |
)
|
|
|
4784 |
|
|
|
4785 |
)
|
|
|
4786 |
#extent: #(#Point 600 50)
|
|
|
4787 |
)
|
|
|
4788 |
#(#ViewSpec
|
|
|
4789 |
#name: 'OldspaceIncrementBox'
|
|
|
4790 |
#component:
|
|
|
4791 |
#(#SpecCollection
|
|
|
4792 |
#collection: #(
|
|
|
4793 |
#(#InputFieldSpec
|
|
|
4794 |
#name: 'EntryField18'
|
|
|
4795 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
|
|
|
4796 |
#model: #oldIncr
|
|
|
4797 |
#type: #number
|
|
|
4798 |
#acceptOnReturn: true
|
|
|
4799 |
#acceptOnTab: true
|
|
|
4800 |
#acceptOnLostFocus: true
|
|
|
4801 |
#acceptOnPointerLeave: false
|
|
|
4802 |
)
|
|
|
4803 |
#(#LabelSpec
|
|
|
4804 |
#label: 'Oldspace Increment:'
|
|
|
4805 |
#name: 'Label34'
|
|
|
4806 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4807 |
#translateLabel: true
|
|
|
4808 |
#adjust: #right
|
|
|
4809 |
)
|
|
|
4810 |
#(#LabelSpec
|
|
|
4811 |
#label: 'Increase oldSpace in chunks of this size'
|
|
|
4812 |
#name: 'Label35'
|
|
|
4813 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4814 |
#translateLabel: true
|
|
|
4815 |
#adjust: #left
|
|
|
4816 |
)
|
|
|
4817 |
#(#DividerSpec
|
|
|
4818 |
#name: 'Separator19'
|
|
|
4819 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4820 |
)
|
|
|
4821 |
)
|
|
|
4822 |
|
|
|
4823 |
)
|
|
|
4824 |
#extent: #(#Point 600 50)
|
|
|
4825 |
)
|
|
|
4826 |
#(#ViewSpec
|
|
|
4827 |
#name: 'OldSpaceCompressLimitBox'
|
|
|
4828 |
#component:
|
|
|
4829 |
#(#SpecCollection
|
|
|
4830 |
#collection: #(
|
|
|
4831 |
#(#InputFieldSpec
|
|
|
4832 |
#name: 'EntryField19'
|
|
|
4833 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4834 |
#model: #compressLimit
|
|
|
4835 |
#type: #number
|
|
|
4836 |
#acceptOnReturn: true
|
|
|
4837 |
#acceptOnTab: true
|
|
|
4838 |
#acceptOnLostFocus: true
|
|
|
4839 |
#acceptOnPointerLeave: false
|
|
|
4840 |
)
|
|
|
4841 |
#(#LabelSpec
|
|
|
4842 |
#label: 'Oldspace Compress Limit:'
|
|
|
4843 |
#name: 'Label36'
|
|
|
4844 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4845 |
#translateLabel: true
|
|
|
4846 |
#adjust: #right
|
|
|
4847 |
)
|
|
|
4848 |
#(#LabelSpec
|
|
|
4849 |
#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
|
|
|
4850 |
#name: 'Label37'
|
|
|
4851 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4852 |
#translateLabel: true
|
|
|
4853 |
#adjust: #left
|
|
|
4854 |
)
|
|
|
4855 |
#(#DividerSpec
|
|
|
4856 |
#name: 'Separator20'
|
|
|
4857 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4858 |
)
|
|
|
4859 |
)
|
|
|
4860 |
|
|
|
4861 |
)
|
|
|
4862 |
#extent: #(#Point 600 50)
|
|
4286
|
4863 |
)
|
|
4310
|
4864 |
#(#ViewSpec
|
|
|
4865 |
#name: 'StackLimitBox'
|
|
|
4866 |
#component:
|
|
|
4867 |
#(#SpecCollection
|
|
|
4868 |
#collection: #(
|
|
|
4869 |
#(#InputFieldSpec
|
|
|
4870 |
#name: 'EntryField20'
|
|
|
4871 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4872 |
#enableChannel: #supportsJustInTimeCompilation
|
|
|
4873 |
#model: #stackLimit
|
|
|
4874 |
#type: #number
|
|
|
4875 |
#acceptOnReturn: true
|
|
|
4876 |
#acceptOnTab: true
|
|
|
4877 |
#acceptOnLostFocus: true
|
|
|
4878 |
#acceptOnPointerLeave: false
|
|
|
4879 |
)
|
|
|
4880 |
#(#LabelSpec
|
|
|
4881 |
#label: 'Stack Limit:'
|
|
|
4882 |
#name: 'Label38'
|
|
|
4883 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4884 |
#translateLabel: true
|
|
|
4885 |
#adjust: #right
|
|
|
4886 |
)
|
|
|
4887 |
#(#LabelSpec
|
|
|
4888 |
#label: 'Trigger recursionInterrupt if more stack is used by a process'
|
|
|
4889 |
#name: 'Label39'
|
|
|
4890 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4891 |
#translateLabel: true
|
|
|
4892 |
#adjust: #left
|
|
|
4893 |
)
|
|
|
4894 |
#(#DividerSpec
|
|
|
4895 |
#name: 'Separator21'
|
|
|
4896 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4897 |
)
|
|
|
4898 |
)
|
|
|
4899 |
|
|
|
4900 |
)
|
|
|
4901 |
#extent: #(#Point 600 550)
|
|
|
4902 |
)
|
|
|
4903 |
#(#ViewSpec
|
|
|
4904 |
#name: 'CodeLimitBox'
|
|
|
4905 |
#component:
|
|
|
4906 |
#(#SpecCollection
|
|
|
4907 |
#collection: #(
|
|
|
4908 |
#(#InputFieldSpec
|
|
|
4909 |
#name: 'EntryField21'
|
|
|
4910 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4911 |
#enableChannel: #supportsJustInTimeCompilation
|
|
|
4912 |
#model: #codeLimit
|
|
|
4913 |
#type: #numberOrNil
|
|
|
4914 |
#acceptOnReturn: true
|
|
|
4915 |
#acceptOnTab: true
|
|
|
4916 |
#acceptOnLostFocus: true
|
|
|
4917 |
#acceptOnPointerLeave: false
|
|
|
4918 |
)
|
|
|
4919 |
#(#LabelSpec
|
|
|
4920 |
#label: 'Dynamic code Limit:'
|
|
|
4921 |
#name: 'Label40'
|
|
|
4922 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4923 |
#translateLabel: true
|
|
|
4924 |
#adjust: #right
|
|
|
4925 |
)
|
|
|
4926 |
#(#LabelSpec
|
|
|
4927 |
#label: 'Flush dynamic compiled code to stay within this limit'
|
|
|
4928 |
#name: 'Label41'
|
|
|
4929 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4930 |
#translateLabel: true
|
|
|
4931 |
#adjust: #left
|
|
|
4932 |
)
|
|
|
4933 |
#(#DividerSpec
|
|
|
4934 |
#name: 'Separator22'
|
|
|
4935 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4936 |
)
|
|
|
4937 |
)
|
|
|
4938 |
|
|
|
4939 |
)
|
|
|
4940 |
#extent: #(#Point 600 50)
|
|
|
4941 |
)
|
|
|
4942 |
#(#ViewSpec
|
|
|
4943 |
#name: 'CodeTriggerBox'
|
|
|
4944 |
#component:
|
|
|
4945 |
#(#SpecCollection
|
|
|
4946 |
#collection: #(
|
|
|
4947 |
#(#InputFieldSpec
|
|
|
4948 |
#name: 'EntryField22'
|
|
|
4949 |
#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
|
|
|
4950 |
#model: #codeTrigger
|
|
|
4951 |
#type: #number
|
|
|
4952 |
#acceptOnReturn: true
|
|
|
4953 |
#acceptOnTab: true
|
|
|
4954 |
#acceptOnLostFocus: true
|
|
|
4955 |
#acceptOnPointerLeave: false
|
|
|
4956 |
)
|
|
|
4957 |
#(#LabelSpec
|
|
|
4958 |
#label: 'Dynamic code Limit:'
|
|
|
4959 |
#name: 'Label42'
|
|
|
4960 |
#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
|
|
|
4961 |
#translateLabel: true
|
|
|
4962 |
#adjust: #right
|
|
|
4963 |
)
|
|
|
4964 |
#(#LabelSpec
|
|
|
4965 |
#label: 'Start incremental GC whenever this amount of code has been allocated'
|
|
|
4966 |
#name: 'Label43'
|
|
|
4967 |
#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
|
|
|
4968 |
#translateLabel: true
|
|
|
4969 |
#adjust: #left
|
|
|
4970 |
)
|
|
|
4971 |
#(#DividerSpec
|
|
|
4972 |
#name: 'Separator23'
|
|
|
4973 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
|
|
|
4974 |
)
|
|
|
4975 |
)
|
|
|
4976 |
|
|
|
4977 |
)
|
|
|
4978 |
#extent: #(#Point 600 50)
|
|
4286
|
4979 |
)
|
|
|
4980 |
)
|
|
|
4981 |
|
|
|
4982 |
)
|
|
|
4983 |
)
|
|
|
4984 |
)
|
|
|
4985 |
|
|
|
4986 |
)
|
|
|
4987 |
)
|
|
|
4988 |
! !
|
|
|
4989 |
|
|
|
4990 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
|
|
|
4991 |
|
|
|
4992 |
evaluateModified
|
|
|
4993 |
|
|
|
4994 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
4995 |
!
|
|
|
4996 |
|
|
|
4997 |
help
|
|
|
4998 |
|
|
|
4999 |
"/ self warn:'no help available here'.
|
|
|
5000 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
|
|
|
5001 |
!
|
|
|
5002 |
|
|
|
5003 |
loadRequest
|
|
|
5004 |
|
|
|
5005 |
self igcLimit value:ObjectMemory incrementalGCLimit.
|
|
|
5006 |
self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
|
|
|
5007 |
self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
|
|
|
5008 |
self newSpaceSize value:ObjectMemory newSpaceSize.
|
|
|
5009 |
self oldIncr value:ObjectMemory oldSpaceIncrement.
|
|
|
5010 |
self compressLimit value:ObjectMemory oldSpaceCompressLimit.
|
|
|
5011 |
self codeLimit value:ObjectMemory dynamicCodeLimit.
|
|
|
5012 |
self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
|
|
|
5013 |
self stackLimit value:Process defaultMaximumStackSize.
|
|
|
5014 |
self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
|
|
|
5015 |
self maxOldSpace value:ObjectMemory maxOldSpace.
|
|
|
5016 |
self modifiedChannel value:false.
|
|
|
5017 |
!
|
|
|
5018 |
|
|
|
5019 |
saveSettings
|
|
|
5020 |
|
|
|
5021 |
self hasUnsavedChanges ifTrue:[
|
|
|
5022 |
ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
|
|
|
5023 |
ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
|
|
|
5024 |
ObjectMemory incrementalGCLimit:self igcLimit value.
|
|
|
5025 |
ObjectMemory newSpaceSize:self newSpaceSize value.
|
|
|
5026 |
ObjectMemory oldSpaceIncrement:self oldIncr value.
|
|
|
5027 |
Process defaultMaximumStackSize:self stackLimit value.
|
|
|
5028 |
ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
|
|
|
5029 |
ObjectMemory maxOldSpace:self maxOldSpace value.
|
|
|
5030 |
ObjectMemory oldSpaceCompressLimit:self compressLimit value.
|
|
|
5031 |
ObjectMemory dynamicCodeLimit:self codeLimit value.
|
|
|
5032 |
ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
|
|
|
5033 |
self modifiedChannel value:false.
|
|
|
5034 |
].
|
|
|
5035 |
! !
|
|
|
5036 |
|
|
|
5037 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
|
|
|
5038 |
|
|
|
5039 |
codeLimit
|
|
|
5040 |
|
|
|
5041 |
codeLimit isNil ifTrue:[
|
|
|
5042 |
codeLimit := ObjectMemory dynamicCodeLimit asValue.
|
|
|
5043 |
codeLimit onChangeSend:#evaluateModified to:self
|
|
|
5044 |
].
|
|
|
5045 |
^ codeLimit.
|
|
|
5046 |
!
|
|
|
5047 |
|
|
|
5048 |
codeTrigger
|
|
|
5049 |
|
|
|
5050 |
codeTrigger isNil ifTrue:[
|
|
|
5051 |
codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
|
|
|
5052 |
codeTrigger onChangeSend:#evaluateModified to:self
|
|
|
5053 |
].
|
|
|
5054 |
^ codeTrigger.
|
|
|
5055 |
!
|
|
|
5056 |
|
|
|
5057 |
compressLimit
|
|
|
5058 |
|
|
|
5059 |
compressLimit isNil ifTrue:[
|
|
|
5060 |
compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
|
|
|
5061 |
compressLimit onChangeSend:#evaluateModified to:self
|
|
|
5062 |
].
|
|
|
5063 |
^ compressLimit.
|
|
|
5064 |
!
|
|
|
5065 |
|
|
|
5066 |
fastMoreLimit
|
|
|
5067 |
|
|
|
5068 |
fastMoreLimit isNil ifTrue:[
|
|
|
5069 |
fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
|
|
|
5070 |
fastMoreLimit onChangeSend:#evaluateModified to:self
|
|
|
5071 |
].
|
|
|
5072 |
^ fastMoreLimit.
|
|
|
5073 |
!
|
|
|
5074 |
|
|
|
5075 |
igcFreeAmount
|
|
|
5076 |
|
|
|
5077 |
igcFreeAmount isNil ifTrue:[
|
|
|
5078 |
igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
|
|
|
5079 |
igcFreeAmount onChangeSend:#evaluateModified to:self
|
|
|
5080 |
].
|
|
|
5081 |
^ igcFreeAmount.
|
|
|
5082 |
!
|
|
|
5083 |
|
|
|
5084 |
igcFreeLimit
|
|
|
5085 |
|
|
|
5086 |
igcFreeLimit isNil ifTrue:[
|
|
|
5087 |
igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
|
|
|
5088 |
igcFreeLimit onChangeSend:#evaluateModified to:self
|
|
|
5089 |
].
|
|
|
5090 |
^ igcFreeLimit.
|
|
|
5091 |
!
|
|
|
5092 |
|
|
|
5093 |
igcLimit
|
|
|
5094 |
|
|
|
5095 |
igcLimit isNil ifTrue:[
|
|
|
5096 |
igcLimit := ObjectMemory incrementalGCLimit asValue.
|
|
|
5097 |
igcLimit onChangeSend:#evaluateModified to:self
|
|
|
5098 |
].
|
|
|
5099 |
^ igcLimit.
|
|
|
5100 |
!
|
|
|
5101 |
|
|
|
5102 |
maxOldSpace
|
|
|
5103 |
|
|
|
5104 |
maxOldSpace isNil ifTrue:[
|
|
|
5105 |
maxOldSpace := ObjectMemory maxOldSpace asValue.
|
|
|
5106 |
maxOldSpace onChangeSend:#evaluateModified to:self
|
|
|
5107 |
].
|
|
|
5108 |
^ maxOldSpace.
|
|
|
5109 |
!
|
|
|
5110 |
|
|
|
5111 |
modifiedChannel
|
|
|
5112 |
|
|
|
5113 |
modifiedChannel isNil ifTrue:[
|
|
|
5114 |
modifiedChannel := false asValue.
|
|
|
5115 |
].
|
|
|
5116 |
^ modifiedChannel
|
|
|
5117 |
!
|
|
|
5118 |
|
|
|
5119 |
newSpaceSize
|
|
|
5120 |
|
|
|
5121 |
newSpaceSize isNil ifTrue:[
|
|
|
5122 |
newSpaceSize := ObjectMemory newSpaceSize asValue.
|
|
|
5123 |
newSpaceSize onChangeSend:#evaluateModified to:self
|
|
|
5124 |
].
|
|
|
5125 |
^ newSpaceSize.
|
|
|
5126 |
!
|
|
|
5127 |
|
|
|
5128 |
oldIncr
|
|
|
5129 |
|
|
|
5130 |
oldIncr isNil ifTrue:[
|
|
|
5131 |
oldIncr := ObjectMemory oldSpaceIncrement asValue.
|
|
|
5132 |
oldIncr onChangeSend:#evaluateModified to:self
|
|
|
5133 |
].
|
|
|
5134 |
^ oldIncr.
|
|
|
5135 |
!
|
|
|
5136 |
|
|
|
5137 |
stackLimit
|
|
|
5138 |
|
|
|
5139 |
stackLimit isNil ifTrue:[
|
|
|
5140 |
stackLimit := Process defaultMaximumStackSize asValue.
|
|
|
5141 |
stackLimit onChangeSend:#evaluateModified to:self
|
|
|
5142 |
].
|
|
|
5143 |
^ stackLimit.
|
|
|
5144 |
!
|
|
|
5145 |
|
|
|
5146 |
supportsJustInTimeCompilation
|
|
|
5147 |
|
|
|
5148 |
^ ObjectMemory supportsJustInTimeCompilation.
|
|
|
5149 |
!
|
|
|
5150 |
|
|
|
5151 |
warningLabelHolder
|
|
|
5152 |
|
|
|
5153 |
warningLabelHolder isNil ifTrue:[
|
|
|
5154 |
warningLabelHolder := ValueHolder new.
|
|
|
5155 |
].
|
|
|
5156 |
^ warningLabelHolder.
|
|
|
5157 |
! !
|
|
|
5158 |
|
|
|
5159 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
|
|
|
5160 |
|
|
|
5161 |
initialize
|
|
|
5162 |
|
|
4387
|
5163 |
resources := self class classResources.
|
|
4286
|
5164 |
self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
|
|
|
5165 |
' , 'You have been warned' allBold , '.'.
|
|
|
5166 |
super initialize
|
|
|
5167 |
! !
|
|
|
5168 |
|
|
|
5169 |
!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
|
|
|
5170 |
|
|
|
5171 |
hasUnsavedChanges
|
|
|
5172 |
|
|
|
5173 |
^ (
|
|
|
5174 |
ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
|
|
|
5175 |
ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
|
|
|
5176 |
ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
|
|
|
5177 |
ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
|
|
|
5178 |
ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
|
|
|
5179 |
Process defaultMaximumStackSize ~= self stackLimit value or:[
|
|
|
5180 |
(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
|
|
|
5181 |
ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
|
|
|
5182 |
ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
|
|
|
5183 |
ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
|
|
|
5184 |
ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
|
|
|
5185 |
)
|
|
|
5186 |
! !
|
|
|
5187 |
|
|
4312
|
5188 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
|
|
|
5189 |
|
|
|
5190 |
defaultIcon
|
|
|
5191 |
"This resource specification was automatically generated
|
|
|
5192 |
by the ImageEditor of ST/X."
|
|
|
5193 |
|
|
|
5194 |
"Do not manually edit this!! If it is corrupted,
|
|
|
5195 |
the ImageEditor may not be able to read the specification."
|
|
|
5196 |
|
|
|
5197 |
"
|
|
|
5198 |
self defaultIcon inspect
|
|
|
5199 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
5200 |
Icon flushCachedIcons
|
|
|
5201 |
"
|
|
|
5202 |
|
|
|
5203 |
<resource: #image>
|
|
|
5204 |
|
|
|
5205 |
^Icon
|
|
|
5206 |
constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
|
|
|
5207 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
5208 |
@@@@_$RA@@@@@@@@@@@@@HED_ @@@@@@ U2+UX\@@@@@@@@@@H]U*52A@@@@ U*9^S-A @@@@@@@HIT.HD4O8D@_%29^#6JZE"B@@@@@HIX-(@9!!&-\_"Z+
|
|
|
5209 |
.+QKZ(0@J @@@@@*@K*5SV2B*2XDQ+":,XR5WP8@@@@@BDJ5.+V@.E4KEA46-+*5U9TVHRD!!HP<+JKV:-%*SG1@Y@R8@WYV)I@A/@@@SH D$@E>K*BP-$PUH
|
|
|
5210 |
QH60)2U0[$:]KYPJN$RK,JX''[TFW]BB*)*4Z\K)[Q''L6''GD *JZ.HF4UV;H_**U6\+)%T7,WDUB3G:^%_E<@WB%RG*)8\+*BL(=Q#@(!!R!!2-_P5-@@AUNA!!4
|
|
|
5211 |
BGV:.(IQ)I<LQS@R^VE([P@@(E9OZQT/[[*:-9=YO8M''S6B ZF4@@@@@[0@[M0I5.)!!!!(4NE@F<@&$&C@@@@@@@@G&PCBGYV&;@<!!P@@#$^P@@@@@@@@@FN@
|
|
|
5212 |
[R<#+J2,PHT@%$2E@@@@@@@@@@BEA7>"I;B/''$*H%$"I@@@@@@@@@@@@$#D]^RF''*F]5$D2I@@@@@@@@@@@@@@BIKB<F(VHIHSNE@@@@@@@@@@@@@@@@@I$>
|
|
|
5213 |
MVY7@@@@@@@@@@@@@@@@@@@@@@@@!!3Y9@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 7 7 7 12 12 12 20 20 20 23 23 23 24 24 24 28 28 28 30 30 30 32 32 32 35 35 35 40 40 40 41 41 41 43 43 43 45 45 45 48 47 48 50 49 50 51 50 51 52 52 52 54 53 54 55 54 55 56 56 56 58 57 58 58 58 58 59 59 59 60 59 60 60 60 60 61 61 61 62 62 62 66 65 66 66 66 66 67 66 67 68 67 68 69 69 69 70 69 70 70 70 70 71 71 71 72 71 72 73 73 73 74 73 74 75 75 75 76 75 76 76 76 76 77 76 77 78 78 78 79 79 79 80 80 80 85 84 85 86 84 86 86 85 86 87 86 87 87 87 87 88 87 88 89 88 89 89 89 89 90 88 90 90 89 90 93 91 93 93 93 93 94 92 94 94 93 94 96 94 96 97 96 97 98 97 98 99 98 99 99 99 99 100 99 100 100 100 100 102 102 102 103 103 103 104 103 104 104 104 104 105 105 105 106 106 106 108 107 108 109 109 109 110 110 110 111 110 111 113 113 113 114 113 114 114 114 114 115 115 115 116 116 116 117 115 117 118 118 118 120 120 120 121 121 121 122 121 122 122 122 122 123 122 123 123 123 123 124 124 124 125 125 125 127 127 127 128 128 128 129 129 129 130 130 130 131 131 131 132 131 132 132 132 132 133 132 133 134 134 134 135 135 135 136 136 136 137 137 137 138 138 138 140 139 140 142 142 142 147 147 147 151 151 151 153 153 153 154 154 154 155 155 155 156 155 156 156 156 156 159 159 159 164 163 164 165 165 165 167 167 167 168 168 168 170 170 170 172 172 172 174 174 174 175 174 175 177 177 177 178 178 178 181 181 181 182 182 182 183 183 183 185 185 185 189 189 189 190 190 190 191 191 191 192 192 192 194 192 194 194 194 194 195 195 195 196 196 196 198 196 198 199 198 199 200 200 200 201 200 201 201 201 201 202 201 202 202 202 202 203 203 203 204 204 204 205 204 205 205 205 205 206 205 206 206 206 206 209 209 209 210 210 210 211 211 211 212 212 212 213 212 213 213 213 213 214 214 214 215 213 215 215 215 215 216 216 216 217 216 217 217 217 217 218 217 218 219 219 219 221 219 221 222 221 222 224 222 224 224 223 224 225 223 225 225 224 225 225 225 225 226 224 226 226 225 226 227 226 227 228 226 228 229 228 229 231 231 231 232 231 232 235 234 235 237 237 237 239 239 239 241 241 241 244 244 244 247 247 247 248 248 248 255 255 255]; 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 @@G@@') ; yourself); yourself]
|
|
|
5214 |
! !
|
|
|
5215 |
|
|
4310
|
5216 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
|
|
|
5217 |
|
|
|
5218 |
windowSpec
|
|
|
5219 |
"This resource specification was automatically generated
|
|
|
5220 |
by the UIPainter of ST/X."
|
|
|
5221 |
|
|
|
5222 |
"Do not manually edit this!! If it is corrupted,
|
|
|
5223 |
the UIPainter may not be able to read the specification."
|
|
|
5224 |
|
|
|
5225 |
"
|
|
|
5226 |
UIPainter new openOnClass:AbstractSettingsApplication::CommunicationSettingsAppl andSelector:#windowSpec
|
|
|
5227 |
AbstractSettingsApplication::CommunicationSettingsAppl new openInterface:#windowSpec
|
|
|
5228 |
AbstractSettingsApplication::CommunicationSettingsAppl open
|
|
|
5229 |
"
|
|
|
5230 |
|
|
|
5231 |
<resource: #canvas>
|
|
|
5232 |
|
|
|
5233 |
^
|
|
|
5234 |
#(#FullSpec
|
|
|
5235 |
#name: #windowSpec
|
|
|
5236 |
#window:
|
|
|
5237 |
#(#WindowSpec
|
|
|
5238 |
#label: 'Communication Settings'
|
|
|
5239 |
#name: 'Communication Settings'
|
|
|
5240 |
#min: #(#Point 10 10)
|
|
|
5241 |
#max: #(#Point 1024 768)
|
|
|
5242 |
#bounds: #(#Rectangle 16 42 616 556)
|
|
|
5243 |
)
|
|
|
5244 |
#component:
|
|
|
5245 |
#(#SpecCollection
|
|
|
5246 |
#collection: #(
|
|
|
5247 |
#(#VerticalPanelViewSpec
|
|
|
5248 |
#name: 'VerticalPanel2'
|
|
|
5249 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
5250 |
#horizontalLayout: #fit
|
|
|
5251 |
#verticalLayout: #center
|
|
|
5252 |
#horizontalSpace: 3
|
|
|
5253 |
#verticalSpace: 3
|
|
|
5254 |
#component:
|
|
|
5255 |
#(#SpecCollection
|
|
|
5256 |
#collection: #(
|
|
|
5257 |
#(#VerticalPanelViewSpec
|
|
|
5258 |
#name: 'VerticalPanel1'
|
|
|
5259 |
#horizontalLayout: #fit
|
|
|
5260 |
#verticalLayout: #center
|
|
|
5261 |
#horizontalSpace: 3
|
|
|
5262 |
#verticalSpace: 3
|
|
|
5263 |
#component:
|
|
|
5264 |
#(#SpecCollection
|
|
|
5265 |
#collection: #(
|
|
|
5266 |
#(#LabelSpec
|
|
|
5267 |
#label: 'Remote browsing'
|
|
|
5268 |
#name: 'Label1'
|
|
|
5269 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
5270 |
#translateLabel: true
|
|
|
5271 |
#extent: #(#Point 600 22)
|
|
|
5272 |
)
|
|
|
5273 |
#(#ViewSpec
|
|
|
5274 |
#name: 'Box1'
|
|
|
5275 |
#component:
|
|
|
5276 |
#(#SpecCollection
|
|
|
5277 |
#collection: #(
|
|
|
5278 |
#(#CheckBoxSpec
|
|
|
5279 |
#label: 'Remote browsing enabled'
|
|
|
5280 |
#name: 'CheckBox1'
|
|
|
5281 |
#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
|
|
|
5282 |
#enableChannel: #hasRemoteBrowsingSupport
|
|
|
5283 |
#model: #remoteBrowsingEnabled
|
|
|
5284 |
#translateLabel: true
|
|
|
5285 |
)
|
|
|
5286 |
)
|
|
|
5287 |
|
|
|
5288 |
)
|
|
|
5289 |
#extent: #(#Point 600 23)
|
|
|
5290 |
)
|
|
|
5291 |
#(#DividerSpec
|
|
|
5292 |
#name: 'Separator1'
|
|
|
5293 |
#extent: #(#Point 600 4)
|
|
|
5294 |
)
|
|
|
5295 |
#(#LabelSpec
|
|
|
5296 |
#label: 'Window migration'
|
|
|
5297 |
#name: 'Label2'
|
|
|
5298 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
5299 |
#translateLabel: true
|
|
|
5300 |
#extent: #(#Point 600 22)
|
|
|
5301 |
)
|
|
|
5302 |
#(#ViewSpec
|
|
|
5303 |
#name: 'Box2'
|
|
|
5304 |
#component:
|
|
|
5305 |
#(#SpecCollection
|
|
|
5306 |
#collection: #(
|
|
|
5307 |
#(#CheckBoxSpec
|
|
|
5308 |
#label: 'Window migration enabled'
|
|
|
5309 |
#name: 'CheckBox2'
|
|
|
5310 |
#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
|
|
|
5311 |
#enableChannel: #hasWindowMigrationServer
|
|
|
5312 |
#model: #windowMigrationEnabled
|
|
|
5313 |
#translateLabel: true
|
|
|
5314 |
)
|
|
|
5315 |
)
|
|
|
5316 |
|
|
|
5317 |
)
|
|
|
5318 |
#extent: #(#Point 600 23)
|
|
|
5319 |
)
|
|
|
5320 |
#(#ViewSpec
|
|
|
5321 |
#name: 'Box3'
|
|
|
5322 |
#component:
|
|
|
5323 |
#(#SpecCollection
|
|
|
5324 |
#collection: #(
|
|
|
5325 |
#(#CheckBoxSpec
|
|
|
5326 |
#label: 'Password check'
|
|
|
5327 |
#name: 'CheckBox3'
|
|
|
5328 |
#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
|
|
|
5329 |
#enableChannel: #enablePasswordCheck
|
|
|
5330 |
#model: #windowMigrationAuthenticate
|
|
|
5331 |
#translateLabel: true
|
|
|
5332 |
)
|
|
|
5333 |
)
|
|
|
5334 |
|
|
|
5335 |
)
|
|
|
5336 |
#extent: #(#Point 600 22)
|
|
|
5337 |
)
|
|
|
5338 |
#(#ViewSpec
|
|
|
5339 |
#name: 'Box4'
|
|
|
5340 |
#component:
|
|
|
5341 |
#(#SpecCollection
|
|
|
5342 |
#collection: #(
|
|
|
5343 |
#(#LabelSpec
|
|
|
5344 |
#label: 'Password:'
|
|
|
5345 |
#name: 'Label3'
|
|
|
5346 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
|
|
|
5347 |
#translateLabel: true
|
|
|
5348 |
#adjust: #right
|
|
|
5349 |
)
|
|
|
5350 |
#(#InputFieldSpec
|
|
|
5351 |
#name: 'EntryField1'
|
|
|
5352 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
5353 |
#enableChannel: #windowMigrationAuthenticate
|
|
|
5354 |
#model: #windowMigrationPassword
|
|
|
5355 |
#type: #password
|
|
|
5356 |
#acceptOnReturn: true
|
|
|
5357 |
#acceptOnTab: true
|
|
|
5358 |
#acceptOnLostFocus: true
|
|
|
5359 |
#acceptOnPointerLeave: false
|
|
|
5360 |
)
|
|
|
5361 |
)
|
|
|
5362 |
|
|
|
5363 |
)
|
|
|
5364 |
#extent: #(#Point 600 22)
|
|
|
5365 |
)
|
|
|
5366 |
#(#DividerSpec
|
|
|
5367 |
#name: 'Separator2'
|
|
|
5368 |
#extent: #(#Point 600 4)
|
|
|
5369 |
)
|
|
|
5370 |
)
|
|
|
5371 |
|
|
|
5372 |
)
|
|
|
5373 |
#extent: #(#Point 600 250)
|
|
|
5374 |
)
|
|
|
5375 |
)
|
|
|
5376 |
|
|
|
5377 |
)
|
|
|
5378 |
)
|
|
|
5379 |
)
|
|
|
5380 |
|
|
|
5381 |
)
|
|
|
5382 |
)
|
|
|
5383 |
! !
|
|
|
5384 |
|
|
|
5385 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
|
|
|
5386 |
|
|
|
5387 |
evaluateModified
|
|
|
5388 |
|
|
|
5389 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
5390 |
!
|
|
|
5391 |
|
|
|
5392 |
help
|
|
|
5393 |
|
|
|
5394 |
"/ self warn:'no help available here'.
|
|
|
5395 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
|
|
|
5396 |
!
|
|
|
5397 |
|
|
|
5398 |
loadRequest
|
|
|
5399 |
|
|
|
5400 |
self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
|
|
|
5401 |
self windowMigrationEnabled value:(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]).
|
|
|
5402 |
(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
|
|
|
5403 |
self windowMigrationPassword value:WindowMigrationServer password.
|
|
|
5404 |
self windowMigrationAuthenticate value:self windowMigrationPassword value notNil.
|
|
|
5405 |
] ifFalse:[
|
|
|
5406 |
self windowMigrationPassword value:nil.
|
|
|
5407 |
self windowMigrationAuthenticate value:false.
|
|
|
5408 |
].
|
|
|
5409 |
self modifiedChannel value:false.
|
|
|
5410 |
!
|
|
|
5411 |
|
|
|
5412 |
saveSettings
|
|
|
5413 |
|
|
|
5414 |
self hasUnsavedChanges ifTrue:[
|
|
|
5415 |
self hasRemoteBrowsingSupport ifTrue:[
|
|
|
5416 |
self remoteBrowsingEnabled value ifTrue:[
|
|
|
5417 |
SmalltalkShareServer serverRunning ifTrue:[
|
|
|
5418 |
SmalltalkShareServer killAll
|
|
|
5419 |
].
|
|
|
5420 |
] ifFalse:[
|
|
|
5421 |
SmalltalkShareServer serverRunning not ifTrue:[
|
|
|
5422 |
SmalltalkShareServer start.
|
|
|
5423 |
"/ must wait a bit; give it a chance to
|
|
|
5424 |
"/ really start (before checking)
|
|
|
5425 |
Delay waitForSeconds:0.5.
|
|
|
5426 |
SmalltalkShareServer serverRunning ifFalse:[
|
|
|
5427 |
self warn:'SmalltalkShareServer startup failed (see stderr).'
|
|
|
5428 |
]
|
|
|
5429 |
].
|
|
|
5430 |
].
|
|
|
5431 |
].
|
|
|
5432 |
self hasWindowMigrationServer ifTrue:[
|
|
|
5433 |
self windowMigrationAuthenticate value ifTrue:[
|
|
|
5434 |
WindowMigrationServer password:self windowMigrationPassword value.
|
|
|
5435 |
] ifFalse:[
|
|
|
5436 |
WindowMigrationServer password:nil
|
|
|
5437 |
].
|
|
|
5438 |
self windowMigrationEnabled value ifTrue:[
|
|
|
5439 |
WindowMigrationServer serverRunning ifTrue:[
|
|
|
5440 |
WindowMigrationServer stop
|
|
|
5441 |
].
|
|
|
5442 |
] ifFalse:[
|
|
|
5443 |
WindowMigrationServer serverRunning not ifTrue:[
|
|
|
5444 |
WindowMigrationServer start.
|
|
|
5445 |
"/ must wait a bit; give it a chance to
|
|
|
5446 |
"/ really start (before checking)
|
|
|
5447 |
Delay waitForSeconds:0.5.
|
|
|
5448 |
WindowMigrationServer serverRunning ifFalse:[
|
|
|
5449 |
self warn:'WindowMigrationServer startup failed (see stderr).'
|
|
|
5450 |
]
|
|
|
5451 |
].
|
|
|
5452 |
].
|
|
|
5453 |
].
|
|
|
5454 |
self modifiedChannel value:false.
|
|
|
5455 |
].
|
|
|
5456 |
! !
|
|
|
5457 |
|
|
|
5458 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
|
|
|
5459 |
|
|
|
5460 |
enablePasswordCheck
|
|
|
5461 |
|
|
|
5462 |
enablePasswordCheck isNil ifTrue:[
|
|
|
5463 |
self hasWindowMigrationServer not ifTrue:[
|
|
|
5464 |
enablePasswordCheck := false asValue.
|
|
|
5465 |
] ifFalse:[
|
|
|
5466 |
enablePasswordCheck := self windowMigrationEnabled.
|
|
|
5467 |
].
|
|
|
5468 |
].
|
|
|
5469 |
^ enablePasswordCheck.
|
|
|
5470 |
!
|
|
|
5471 |
|
|
|
5472 |
modifiedChannel
|
|
|
5473 |
|
|
|
5474 |
modifiedChannel isNil ifTrue:[
|
|
|
5475 |
modifiedChannel := false asValue.
|
|
|
5476 |
].
|
|
|
5477 |
^ modifiedChannel
|
|
|
5478 |
!
|
|
|
5479 |
|
|
|
5480 |
remoteBrowsingEnabled
|
|
|
5481 |
|
|
|
5482 |
remoteBrowsingEnabled isNil ifTrue:[
|
|
|
5483 |
remoteBrowsingEnabled := true asValue.
|
|
|
5484 |
remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
|
|
|
5485 |
].
|
|
|
5486 |
^ remoteBrowsingEnabled.
|
|
|
5487 |
!
|
|
|
5488 |
|
|
|
5489 |
windowMigrationAuthenticate
|
|
|
5490 |
|
|
|
5491 |
windowMigrationAuthenticate isNil ifTrue:[
|
|
|
5492 |
windowMigrationAuthenticate := true asValue.
|
|
|
5493 |
windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
|
|
|
5494 |
].
|
|
|
5495 |
^ windowMigrationAuthenticate.
|
|
|
5496 |
!
|
|
|
5497 |
|
|
|
5498 |
windowMigrationEnabled
|
|
|
5499 |
|
|
|
5500 |
windowMigrationEnabled isNil ifTrue:[
|
|
|
5501 |
windowMigrationEnabled := true asValue.
|
|
|
5502 |
windowMigrationEnabled onChangeSend:#evaluateModified to:self.
|
|
|
5503 |
].
|
|
|
5504 |
^ windowMigrationEnabled.
|
|
|
5505 |
!
|
|
|
5506 |
|
|
|
5507 |
windowMigrationPassword
|
|
|
5508 |
|
|
|
5509 |
windowMigrationPassword isNil ifTrue:[
|
|
|
5510 |
windowMigrationPassword := ValueHolder new.
|
|
|
5511 |
windowMigrationPassword onChangeSend:#evaluateModified to:self.
|
|
|
5512 |
].
|
|
|
5513 |
^ windowMigrationPassword.
|
|
|
5514 |
! !
|
|
|
5515 |
|
|
|
5516 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
|
|
|
5517 |
|
|
|
5518 |
update:something with:aParameter from:changedObject
|
|
|
5519 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
5520 |
|
|
|
5521 |
"stub code automatically generated - please change as required"
|
|
|
5522 |
|
|
|
5523 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
5524 |
"/ ^ self.
|
|
|
5525 |
"/ ].
|
|
|
5526 |
|
|
|
5527 |
super update:something with:aParameter from:changedObject
|
|
|
5528 |
! !
|
|
|
5529 |
|
|
|
5530 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
|
|
|
5531 |
|
|
|
5532 |
initialize
|
|
|
5533 |
|
|
4387
|
5534 |
resources := self class classResources.
|
|
4310
|
5535 |
self loadRequest.
|
|
|
5536 |
super initialize
|
|
|
5537 |
! !
|
|
|
5538 |
|
|
|
5539 |
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
|
|
|
5540 |
|
|
|
5541 |
hasRemoteBrowsingSupport
|
|
|
5542 |
|
|
|
5543 |
^ SmalltalkShareServer notNil
|
|
|
5544 |
!
|
|
|
5545 |
|
|
|
5546 |
hasUnsavedChanges
|
|
|
5547 |
|
|
|
5548 |
^ (
|
|
|
5549 |
self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
|
|
|
5550 |
self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
|
|
|
5551 |
self windowMigrationPassword value ~= WindowMigrationServer password or:[
|
|
|
5552 |
self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
|
|
|
5553 |
)
|
|
|
5554 |
!
|
|
|
5555 |
|
|
|
5556 |
hasWindowMigrationServer
|
|
|
5557 |
|
|
|
5558 |
^ WindowMigrationServer notNil
|
|
|
5559 |
! !
|
|
|
5560 |
|
|
4398
|
5561 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
|
|
|
5562 |
|
|
|
5563 |
defaultIcon
|
|
|
5564 |
"This resource specification was automatically generated
|
|
|
5565 |
by the ImageEditor of ST/X."
|
|
|
5566 |
|
|
|
5567 |
"Do not manually edit this!! If it is corrupted,
|
|
|
5568 |
the ImageEditor may not be able to read the specification."
|
|
|
5569 |
|
|
|
5570 |
"
|
|
|
5571 |
self defaultIcon inspect
|
|
|
5572 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
5573 |
Icon flushCachedIcons
|
|
|
5574 |
"
|
|
|
5575 |
|
|
|
5576 |
<resource: #image>
|
|
|
5577 |
|
|
|
5578 |
^Icon
|
|
|
5579 |
constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
|
|
|
5580 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
5581 |
@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
|
|
|
5582 |
@@@@@@LB@ HFA \G@PD@@@@@@@@@@@@@@@LB@ HB@ GA0(J@P@@@@@@@@@@@@LB@ HB@ HBB \IB ,A@@@@@@@@@@LB@ HB@ HB@ 4NB ,OC0DE@@@@@@LB
|
|
|
5583 |
@ HB@ HB@ HB@ 8OC0TE@P@@@@@@@0HB@ HB@ HBCQDQC0TEAPHP@AHRD!!HRD!!HRD!!HRD!!HRD!!HAA@HC@@@RD HED1LTEQXVE1 BAPTR@ DC@@@@D!!HBAQLS
|
|
|
5584 |
EATVE!!\X@ TED HC@@@@@AHRAPPYFQ([GA0]G TDAAHC@@@@@@@C@0HB@ HB@ HB@!!<MDQDC@@@@@@@@@0LB@ HB@ HB@ H_CQDQ@0@@@@@@@@LC@ HB@ HB
|
|
|
5585 |
@ HBCP4QDPL@@@@@@@@C@0HB@ HB@ HB@ 4MDQDC@@@@@@@@@0LB@ HB@ HB@!!<MDQDQ@0@@@@@@@@LC@ HB@ HB@ H_CQDQDPL@@@@@@@@C@0HB@ HB@ HB
|
|
|
5586 |
CP4QDQDC@@@@@@@@@0LC@0LC@0LC@0LC@0LC@0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 88 248 248 248 80 80 80 128 128 128 192 192 192 64 144 136 48 120 112 56 136 128 56 128 120 40 104 96 40 104 104 32 96 96 232 232 232 32 88 88 32 88 80 64 104 104 224 224 224 0 88 128 24 152 192 16 136 184 16 128 168 8 120 160 8 112 152 8 104 144 16 120 152 16 112 144 8 104 136 8 96 128 8 88 120 0 80 112 240 240 240]; 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]
|
|
|
5587 |
! !
|
|
|
5588 |
|
|
|
5589 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
|
|
4286
|
5590 |
|
|
|
5591 |
windowSpec
|
|
|
5592 |
"This resource specification was automatically generated
|
|
|
5593 |
by the UIPainter of ST/X."
|
|
|
5594 |
|
|
|
5595 |
"Do not manually edit this!! If it is corrupted,
|
|
|
5596 |
the UIPainter may not be able to read the specification."
|
|
|
5597 |
|
|
|
5598 |
"
|
|
4398
|
5599 |
UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
|
|
|
5600 |
AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
|
|
|
5601 |
AbstractSettingsApplication::MiscDisplaySettingsAppl open
|
|
4286
|
5602 |
"
|
|
|
5603 |
|
|
|
5604 |
<resource: #canvas>
|
|
|
5605 |
|
|
|
5606 |
^
|
|
|
5607 |
#(#FullSpec
|
|
|
5608 |
#name: #windowSpec
|
|
|
5609 |
#window:
|
|
|
5610 |
#(#WindowSpec
|
|
4405
|
5611 |
#label: 'Display settings'
|
|
|
5612 |
#name: 'Display settings'
|
|
4286
|
5613 |
#min: #(#Point 10 10)
|
|
|
5614 |
#max: #(#Point 1024 768)
|
|
4398
|
5615 |
#bounds: #(#Rectangle 23 48 533 614)
|
|
4286
|
5616 |
)
|
|
|
5617 |
#component:
|
|
|
5618 |
#(#SpecCollection
|
|
|
5619 |
#collection: #(
|
|
4310
|
5620 |
#(#VerticalPanelViewSpec
|
|
4398
|
5621 |
#name: 'VerticalPanel2'
|
|
4310
|
5622 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
5623 |
#horizontalLayout: #fit
|
|
4286
|
5624 |
#verticalLayout: #center
|
|
|
5625 |
#horizontalSpace: 3
|
|
|
5626 |
#verticalSpace: 3
|
|
|
5627 |
#component:
|
|
|
5628 |
#(#SpecCollection
|
|
|
5629 |
#collection: #(
|
|
4398
|
5630 |
#(#VerticalPanelViewSpec
|
|
|
5631 |
#name: 'VerticalPanel1'
|
|
|
5632 |
#horizontalLayout: #fitSpace
|
|
|
5633 |
#verticalLayout: #topSpace
|
|
|
5634 |
#horizontalSpace: 5
|
|
|
5635 |
#verticalSpace: 3
|
|
4310
|
5636 |
#component:
|
|
|
5637 |
#(#SpecCollection
|
|
|
5638 |
#collection: #(
|
|
|
5639 |
#(#CheckBoxSpec
|
|
4398
|
5640 |
#label: 'Shadows under PopUp Views'
|
|
|
5641 |
#name: 'CheckBox1'
|
|
|
5642 |
#model: #shadows
|
|
|
5643 |
#translateLabel: true
|
|
|
5644 |
#extent: #(#Point 500 22)
|
|
|
5645 |
)
|
|
|
5646 |
#(#CheckBoxSpec
|
|
|
5647 |
#label: 'Beeper enabled'
|
|
|
5648 |
#name: 'CheckBox2'
|
|
|
5649 |
#model: #beepEnabled
|
|
|
5650 |
#translateLabel: true
|
|
|
5651 |
#extent: #(#Point 500 22)
|
|
|
5652 |
)
|
|
|
5653 |
#(#CheckBoxSpec
|
|
|
5654 |
#label: 'Boxes Return Focus to Previously Active View'
|
|
|
5655 |
#name: 'CheckBox3'
|
|
|
5656 |
#model: #returnFocus
|
|
|
5657 |
#translateLabel: true
|
|
|
5658 |
#extent: #(#Point 500 22)
|
|
|
5659 |
)
|
|
|
5660 |
#(#CheckBoxSpec
|
|
|
5661 |
#label: 'Views Catch Focus when Mapped'
|
|
|
5662 |
#name: 'CheckBox4'
|
|
|
5663 |
#model: #takeFocus
|
|
|
5664 |
#translateLabel: true
|
|
|
5665 |
#extent: #(#Point 500 22)
|
|
|
5666 |
)
|
|
|
5667 |
#(#CheckBoxSpec
|
|
|
5668 |
#label: 'Show Accelerator Keys in Menus'
|
|
|
5669 |
#name: 'CheckBox6'
|
|
|
5670 |
#model: #showAccelerators
|
|
|
5671 |
#translateLabel: true
|
|
|
5672 |
#extent: #(#Point 500 22)
|
|
|
5673 |
)
|
|
|
5674 |
#(#CheckBoxSpec
|
|
|
5675 |
#label: 'Raise & Activate Windows on Click'
|
|
|
5676 |
#name: 'CheckBox7'
|
|
|
5677 |
#model: #activateOnClick
|
|
|
5678 |
#translateLabel: true
|
|
|
5679 |
#extent: #(#Point 500 22)
|
|
|
5680 |
)
|
|
|
5681 |
#(#CheckBoxSpec
|
|
|
5682 |
#label: 'Focus Follows Mouse'
|
|
|
5683 |
#name: 'CheckBox8'
|
|
|
5684 |
#model: #focusFollowsMouse
|
|
4310
|
5685 |
#translateLabel: true
|
|
4398
|
5686 |
#extent: #(#Point 500 22)
|
|
|
5687 |
)
|
|
|
5688 |
#(#CheckBoxSpec
|
|
|
5689 |
#label: 'Opaque Variable Panel Resizing'
|
|
|
5690 |
#name: 'CheckBox9'
|
|
|
5691 |
#model: #opaqueVariablePanelResize
|
|
|
5692 |
#translateLabel: true
|
|
|
5693 |
#extent: #(#Point 500 22)
|
|
|
5694 |
)
|
|
|
5695 |
#(#CheckBoxSpec
|
|
|
5696 |
#label: 'Opaque Table Column Resizing'
|
|
|
5697 |
#name: 'CheckBox10'
|
|
|
5698 |
#model: #opaqueTableColumnResize
|
|
|
5699 |
#translateLabel: true
|
|
|
5700 |
#extent: #(#Point 500 22)
|
|
|
5701 |
)
|
|
|
5702 |
#(#ViewSpec
|
|
|
5703 |
#name: 'Box1'
|
|
|
5704 |
#component:
|
|
|
5705 |
#(#SpecCollection
|
|
|
5706 |
#collection: #(
|
|
|
5707 |
#(#LabelSpec
|
|
|
5708 |
#label: 'Label'
|
|
|
5709 |
#name: 'Label1'
|
|
|
5710 |
#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 -22 1)
|
|
|
5711 |
#translateLabel: true
|
|
|
5712 |
#labelChannel: #formatHostNameWindowLabel
|
|
|
5713 |
#adjust: #leftRight
|
|
|
5714 |
)
|
|
|
5715 |
#(#CheckBoxSpec
|
|
|
5716 |
#label: 'Hostname in Window Labels'
|
|
|
5717 |
#name: 'CheckBox5'
|
|
|
5718 |
#layout: #(#LayoutFrame 0 0 -22 1 200 0 0 1)
|
|
|
5719 |
#model: #hostNameInLabelHolder
|
|
|
5720 |
#translateLabel: true
|
|
|
5721 |
)
|
|
|
5722 |
#(#InputFieldSpec
|
|
|
5723 |
#name: 'EntryField1'
|
|
|
5724 |
#layout: #(#LayoutFrame 200 0 -22 1 -5 1 0 1)
|
|
|
5725 |
#enableChannel: #hostNameInLabelHolder
|
|
|
5726 |
#model: #newWindowLabelFormat
|
|
|
5727 |
#immediateAccept: true
|
|
|
5728 |
#acceptOnReturn: true
|
|
|
5729 |
#acceptOnTab: true
|
|
|
5730 |
#acceptOnLostFocus: true
|
|
|
5731 |
#acceptOnPointerLeave: false
|
|
|
5732 |
)
|
|
|
5733 |
)
|
|
|
5734 |
|
|
|
5735 |
)
|
|
|
5736 |
#extent: #(#Point 500 120)
|
|
4310
|
5737 |
)
|
|
|
5738 |
)
|
|
|
5739 |
|
|
|
5740 |
)
|
|
4398
|
5741 |
#extent: #(#Point 510 550)
|
|
4387
|
5742 |
)
|
|
4286
|
5743 |
)
|
|
|
5744 |
|
|
|
5745 |
)
|
|
|
5746 |
)
|
|
|
5747 |
)
|
|
|
5748 |
|
|
|
5749 |
)
|
|
|
5750 |
)
|
|
4398
|
5751 |
! !
|
|
|
5752 |
|
|
|
5753 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
|
|
4286
|
5754 |
|
|
|
5755 |
evaluateModified
|
|
|
5756 |
|
|
|
5757 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
5758 |
!
|
|
|
5759 |
|
|
|
5760 |
formatHostNameinWindowLabels
|
|
|
5761 |
|newFormat|
|
|
|
5762 |
|
|
|
5763 |
newFormat := Dialog request:
|
|
|
5764 |
'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
|
|
|
5765 |
withCRs initialAnswer:newWindowLabelFormat.
|
|
|
5766 |
|
|
|
5767 |
newFormat size > 0 ifTrue:[
|
|
|
5768 |
newWindowLabelFormat := newFormat.
|
|
|
5769 |
self evaluateModified.
|
|
|
5770 |
].
|
|
|
5771 |
!
|
|
|
5772 |
|
|
|
5773 |
help
|
|
|
5774 |
|
|
|
5775 |
"/ self warn:'no help available here'.
|
|
|
5776 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
|
|
|
5777 |
!
|
|
|
5778 |
|
|
|
5779 |
loadRequest
|
|
|
5780 |
|
|
|
5781 |
self shadows value:PopUpView shadows.
|
|
|
5782 |
self beepEnabled value:currentUserPrefs beepEnabled.
|
|
4387
|
5783 |
self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
|
|
|
5784 |
|
|
|
5785 |
self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
|
|
4286
|
5786 |
self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
|
|
|
5787 |
self takeFocus value:StandardSystemView takeFocusWhenMapped .
|
|
|
5788 |
self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true) .
|
|
|
5789 |
self activateOnClick value:(Display activateOnClick:nil).
|
|
|
5790 |
self opaqueVariablePanelResize value:currentUserPrefs opaqueVariablePanelResizing.
|
|
|
5791 |
self opaqueTableColumnResize value:currentUserPrefs opaqueTableColumnResizing.
|
|
|
5792 |
|
|
|
5793 |
self showAccelerators value:MenuView showAcceleratorKeys.
|
|
|
5794 |
self modifiedChannel value:false.
|
|
4387
|
5795 |
|
|
|
5796 |
"Modified: / 16.12.2002 / 18:08:20 / penk"
|
|
4286
|
5797 |
!
|
|
|
5798 |
|
|
|
5799 |
saveSettings
|
|
|
5800 |
|
|
|
5801 |
self hasUnsavedChanges ifTrue:[
|
|
4387
|
5802 |
PopUpView shadows:self shadows value.
|
|
4286
|
5803 |
(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
|
|
4387
|
5804 |
or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
|
|
4286
|
5805 |
StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
|
|
4387
|
5806 |
self newWindowLabelFormat value notNil ifTrue:[
|
|
|
5807 |
StandardSystemView windowLabelFormat:self newWindowLabelFormat value
|
|
4286
|
5808 |
].
|
|
|
5809 |
|
|
|
5810 |
Screen allScreens do:[:aDisplay |
|
|
|
5811 |
aDisplay allViewsDo:[:aView |
|
|
|
5812 |
|l|
|
|
|
5813 |
|
|
|
5814 |
aView isTopView ifTrue:[
|
|
|
5815 |
l := aView label.
|
|
|
5816 |
l notNil ifTrue:[
|
|
|
5817 |
aView label:(l , ' '); label:l. "/ force a change
|
|
|
5818 |
]
|
|
|
5819 |
]
|
|
|
5820 |
]
|
|
|
5821 |
]
|
|
|
5822 |
].
|
|
|
5823 |
|
|
|
5824 |
currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
|
|
|
5825 |
currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
|
|
|
5826 |
|
|
|
5827 |
currentUserPrefs beepEnabled:self beepEnabled value.
|
|
|
5828 |
|
|
|
5829 |
StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
|
|
|
5830 |
StandardSystemView takeFocusWhenMapped:self takeFocus value.
|
|
|
5831 |
currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
|
|
|
5832 |
Screen current activateOnClick:self activateOnClick value.
|
|
|
5833 |
|
|
|
5834 |
MenuView showAcceleratorKeys:self showAccelerators value.
|
|
|
5835 |
self modifiedChannel value:false.
|
|
|
5836 |
].
|
|
4387
|
5837 |
|
|
|
5838 |
"Modified: / 16.12.2002 / 18:06:31 / penk"
|
|
4286
|
5839 |
! !
|
|
|
5840 |
|
|
4398
|
5841 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
|
|
4286
|
5842 |
|
|
|
5843 |
activateOnClick
|
|
|
5844 |
|
|
|
5845 |
activateOnClick isNil ifTrue:[
|
|
|
5846 |
activateOnClick := true asValue.
|
|
|
5847 |
activateOnClick onChangeSend:#evaluateModified to:self
|
|
|
5848 |
].
|
|
|
5849 |
^ activateOnClick.
|
|
|
5850 |
!
|
|
|
5851 |
|
|
|
5852 |
beepEnabled
|
|
|
5853 |
|
|
|
5854 |
beepEnabled isNil ifTrue:[
|
|
|
5855 |
beepEnabled := true asValue.
|
|
|
5856 |
beepEnabled onChangeSend:#evaluateModified to:self
|
|
|
5857 |
].
|
|
|
5858 |
^ beepEnabled.
|
|
|
5859 |
!
|
|
|
5860 |
|
|
|
5861 |
focusFollowsMouse
|
|
|
5862 |
|
|
|
5863 |
focusFollowsMouse isNil ifTrue:[
|
|
|
5864 |
focusFollowsMouse := true asValue.
|
|
|
5865 |
focusFollowsMouse onChangeSend:#evaluateModified to:self
|
|
|
5866 |
].
|
|
|
5867 |
^ focusFollowsMouse.
|
|
|
5868 |
!
|
|
|
5869 |
|
|
4387
|
5870 |
formatHostNameWindowLabel
|
|
|
5871 |
|
|
|
5872 |
formatHostNameWindowLabel isNil ifTrue:[
|
|
|
5873 |
formatHostNameWindowLabel :=
|
|
|
5874 |
('Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\' withCRs)
|
|
|
5875 |
asValue.
|
|
|
5876 |
].
|
|
|
5877 |
^ formatHostNameWindowLabel.
|
|
|
5878 |
|
|
|
5879 |
"Created: / 16.12.2002 / 17:50:49 / penk"
|
|
|
5880 |
"Modified: / 16.12.2002 / 17:55:18 / penk"
|
|
|
5881 |
!
|
|
|
5882 |
|
|
4286
|
5883 |
hostNameInLabelHolder
|
|
|
5884 |
|
|
|
5885 |
hostNameInLabelHolder isNil ifTrue:[
|
|
|
5886 |
hostNameInLabelHolder := true asValue.
|
|
|
5887 |
hostNameInLabelHolder onChangeSend:#evaluateModified to:self
|
|
|
5888 |
].
|
|
|
5889 |
^ hostNameInLabelHolder.
|
|
|
5890 |
!
|
|
|
5891 |
|
|
|
5892 |
modifiedChannel
|
|
|
5893 |
|
|
|
5894 |
modifiedChannel isNil ifTrue:[
|
|
|
5895 |
modifiedChannel := false asValue.
|
|
|
5896 |
].
|
|
|
5897 |
^ modifiedChannel
|
|
|
5898 |
!
|
|
|
5899 |
|
|
4387
|
5900 |
newWindowLabelFormat
|
|
|
5901 |
|
|
|
5902 |
newWindowLabelFormat isNil ifTrue:[
|
|
|
5903 |
newWindowLabelFormat := true asValue.
|
|
|
5904 |
newWindowLabelFormat onChangeSend:#evaluateModified to:self
|
|
|
5905 |
].
|
|
|
5906 |
^ newWindowLabelFormat.
|
|
|
5907 |
|
|
|
5908 |
"Created: / 16.12.2002 / 17:50:49 / penk"
|
|
|
5909 |
!
|
|
|
5910 |
|
|
4286
|
5911 |
opaqueTableColumnResize
|
|
|
5912 |
|
|
|
5913 |
opaqueTableColumnResize isNil ifTrue:[
|
|
|
5914 |
opaqueTableColumnResize := true asValue.
|
|
|
5915 |
opaqueTableColumnResize onChangeSend:#evaluateModified to:self
|
|
|
5916 |
].
|
|
|
5917 |
^ opaqueTableColumnResize.
|
|
|
5918 |
!
|
|
|
5919 |
|
|
|
5920 |
opaqueVariablePanelResize
|
|
|
5921 |
|
|
|
5922 |
opaqueVariablePanelResize isNil ifTrue:[
|
|
|
5923 |
opaqueVariablePanelResize := true asValue.
|
|
|
5924 |
opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
|
|
|
5925 |
].
|
|
|
5926 |
^ opaqueVariablePanelResize.
|
|
|
5927 |
!
|
|
|
5928 |
|
|
|
5929 |
returnFocus
|
|
|
5930 |
|
|
|
5931 |
returnFocus isNil ifTrue:[
|
|
|
5932 |
returnFocus := true asValue.
|
|
|
5933 |
returnFocus onChangeSend:#evaluateModified to:self
|
|
|
5934 |
].
|
|
|
5935 |
^ returnFocus.
|
|
|
5936 |
!
|
|
|
5937 |
|
|
|
5938 |
shadows
|
|
|
5939 |
|
|
|
5940 |
shadows isNil ifTrue:[
|
|
|
5941 |
shadows := true asValue.
|
|
|
5942 |
shadows onChangeSend:#evaluateModified to:self
|
|
|
5943 |
].
|
|
|
5944 |
^ shadows.
|
|
|
5945 |
!
|
|
|
5946 |
|
|
|
5947 |
showAccelerators
|
|
|
5948 |
|
|
|
5949 |
showAccelerators isNil ifTrue:[
|
|
|
5950 |
showAccelerators := true asValue.
|
|
|
5951 |
showAccelerators onChangeSend:#evaluateModified to:self
|
|
|
5952 |
].
|
|
|
5953 |
^ showAccelerators.
|
|
|
5954 |
!
|
|
|
5955 |
|
|
|
5956 |
takeFocus
|
|
|
5957 |
|
|
|
5958 |
takeFocus isNil ifTrue:[
|
|
|
5959 |
takeFocus := true asValue.
|
|
|
5960 |
takeFocus onChangeSend:#evaluateModified to:self
|
|
|
5961 |
].
|
|
|
5962 |
^ takeFocus.
|
|
|
5963 |
! !
|
|
|
5964 |
|
|
4398
|
5965 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'change & update'!
|
|
4286
|
5966 |
|
|
|
5967 |
update:something with:aParameter from:changedObject
|
|
|
5968 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
5969 |
|
|
|
5970 |
"stub code automatically generated - please change as required"
|
|
|
5971 |
|
|
|
5972 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
5973 |
"/ ^ self.
|
|
|
5974 |
"/ ].
|
|
|
5975 |
|
|
|
5976 |
super update:something with:aParameter from:changedObject
|
|
|
5977 |
! !
|
|
|
5978 |
|
|
4398
|
5979 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
|
|
4286
|
5980 |
|
|
|
5981 |
initialize
|
|
|
5982 |
|
|
4387
|
5983 |
resources := self class classResources.
|
|
4286
|
5984 |
currentUserPrefs := UserPreferences current.
|
|
|
5985 |
self loadRequest.
|
|
|
5986 |
super initialize
|
|
4387
|
5987 |
|
|
|
5988 |
"Modified: / 16.12.2002 / 17:50:59 / penk"
|
|
4286
|
5989 |
!
|
|
|
5990 |
|
|
|
5991 |
postOpen
|
|
|
5992 |
!
|
|
|
5993 |
|
|
|
5994 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
5995 |
|
|
|
5996 |
self postOpen.
|
|
|
5997 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
5998 |
!
|
|
|
5999 |
|
|
|
6000 |
postOpenWith:aBuilder
|
|
|
6001 |
|
|
|
6002 |
self postOpen.
|
|
|
6003 |
^ super postOpenWith:aBuilder
|
|
|
6004 |
! !
|
|
|
6005 |
|
|
4398
|
6006 |
!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
|
|
4286
|
6007 |
|
|
|
6008 |
hasUnsavedChanges
|
|
|
6009 |
|
|
|
6010 |
^ (
|
|
4387
|
6011 |
self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
|
|
4286
|
6012 |
self shadows value ~= PopUpView shadows or:[
|
|
|
6013 |
self beepEnabled value ~= currentUserPrefs beepEnabled or:[
|
|
4387
|
6014 |
self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
|
|
4286
|
6015 |
self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
|
|
|
6016 |
self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
|
|
|
6017 |
self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
|
|
|
6018 |
self activateOnClick value ~= (Display activateOnClick:nil) or:[
|
|
|
6019 |
self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
|
|
|
6020 |
self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
|
|
4398
|
6021 |
self showAccelerators value ~= MenuView showAcceleratorKeys
|
|
|
6022 |
]]]]]]]]]]
|
|
4286
|
6023 |
)
|
|
4387
|
6024 |
|
|
|
6025 |
"Modified: / 16.12.2002 / 18:09:42 / penk"
|
|
4286
|
6026 |
! !
|
|
|
6027 |
|
|
4312
|
6028 |
!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
|
|
|
6029 |
|
|
|
6030 |
defaultIcon
|
|
|
6031 |
"This resource specification was automatically generated
|
|
|
6032 |
by the ImageEditor of ST/X."
|
|
|
6033 |
|
|
|
6034 |
"Do not manually edit this!! If it is corrupted,
|
|
|
6035 |
the ImageEditor may not be able to read the specification."
|
|
|
6036 |
|
|
|
6037 |
"
|
|
|
6038 |
self defaultIcon inspect
|
|
|
6039 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
6040 |
Icon flushCachedIcons
|
|
|
6041 |
"
|
|
|
6042 |
|
|
|
6043 |
<resource: #image>
|
|
|
6044 |
|
|
|
6045 |
^Icon
|
|
|
6046 |
constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
|
|
|
6047 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
6048 |
@@@@_$RA@@@@@@@@@@@@@HED_ @@@@@@ U2+UX\@@@@@@@@@@H]U*52A@@@@ U*9^S-A @@@@@@@HIT.HD4O8D@_%29^#6JZE"B@@@@@HIX-(@9!!&-\_"Z+
|
|
|
6049 |
.+QKZ(0@J @@@@@*@K*5SV2B*2XDQ+":,XR5WP8@@@@@BDJ5.+V@.E4KEA46-+*5U9TVHRD!!HP<+JKV:-%*SG1@Y@R8@WYV)I@A/@@@SH D$@E>K*BP-$PUH
|
|
|
6050 |
QH60)2U0[$:]KYPJN$RK,JX''[TFW]BB*)*4Z\K)[Q''L6''GD *JZ.HF4UV;H_**U6\+)%T7,WDUB3G:^%_E<@WB%RG*)8\+*BL(=Q#@(!!R!!2-_P5-@@AUNA!!4
|
|
|
6051 |
BGV:.(IQ)I<LQS@R^VE([P@@(E9OZQT/[[*:-9=YO8M''S6B ZF4@@@@@[0@[M0I5.)!!!!(4NE@F<@&$&C@@@@@@@@G&PCBGYV&;@<!!P@@#$^P@@@@@@@@@FN@
|
|
|
6052 |
[R<#+J2,PHT@%$2E@@@@@@@@@@BEA7>"I;B/''$*H%$"I@@@@@@@@@@@@$#D]^RF''*F]5$D2I@@@@@@@@@@@@@@BIKB<F(VHIHSNE@@@@@@@@@@@@@@@@@I$>
|
|
|
6053 |
MVY7@@@@@@@@@@@@@@@@@@@@@@@@!!3Y9@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 7 7 7 12 12 12 20 20 20 23 23 23 24 24 24 28 28 28 30 30 30 32 32 32 35 35 35 40 40 40 41 41 41 43 43 43 45 45 45 48 47 48 50 49 50 51 50 51 52 52 52 54 53 54 55 54 55 56 56 56 58 57 58 58 58 58 59 59 59 60 59 60 60 60 60 61 61 61 62 62 62 66 65 66 66 66 66 67 66 67 68 67 68 69 69 69 70 69 70 70 70 70 71 71 71 72 71 72 73 73 73 74 73 74 75 75 75 76 75 76 76 76 76 77 76 77 78 78 78 79 79 79 80 80 80 85 84 85 86 84 86 86 85 86 87 86 87 87 87 87 88 87 88 89 88 89 89 89 89 90 88 90 90 89 90 93 91 93 93 93 93 94 92 94 94 93 94 96 94 96 97 96 97 98 97 98 99 98 99 99 99 99 100 99 100 100 100 100 102 102 102 103 103 103 104 103 104 104 104 104 105 105 105 106 106 106 108 107 108 109 109 109 110 110 110 111 110 111 113 113 113 114 113 114 114 114 114 115 115 115 116 116 116 117 115 117 118 118 118 120 120 120 121 121 121 122 121 122 122 122 122 123 122 123 123 123 123 124 124 124 125 125 125 127 127 127 128 128 128 129 129 129 130 130 130 131 131 131 132 131 132 132 132 132 133 132 133 134 134 134 135 135 135 136 136 136 137 137 137 138 138 138 140 139 140 142 142 142 147 147 147 151 151 151 153 153 153 154 154 154 155 155 155 156 155 156 156 156 156 159 159 159 164 163 164 165 165 165 167 167 167 168 168 168 170 170 170 172 172 172 174 174 174 175 174 175 177 177 177 178 178 178 181 181 181 182 182 182 183 183 183 185 185 185 189 189 189 190 190 190 191 191 191 192 192 192 194 192 194 194 194 194 195 195 195 196 196 196 198 196 198 199 198 199 200 200 200 201 200 201 201 201 201 202 201 202 202 202 202 203 203 203 204 204 204 205 204 205 205 205 205 206 205 206 206 206 206 209 209 209 210 210 210 211 211 211 212 212 212 213 212 213 213 213 213 214 214 214 215 213 215 215 215 215 216 216 216 217 216 217 217 217 217 218 217 218 219 219 219 221 219 221 222 221 222 224 222 224 224 223 224 225 223 225 225 224 225 225 225 225 226 224 226 226 225 226 227 226 227 228 226 228 229 228 229 231 231 231 232 231 232 235 234 235 237 237 237 239 239 239 241 241 241 244 244 244 247 247 247 248 248 248 255 255 255]; 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 @@G@@') ; yourself); yourself]
|
|
|
6054 |
! !
|
|
|
6055 |
|
|
4310
|
6056 |
!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
|
|
|
6057 |
|
|
|
6058 |
windowSpec
|
|
|
6059 |
"This resource specification was automatically generated
|
|
|
6060 |
by the UIPainter of ST/X."
|
|
|
6061 |
|
|
|
6062 |
"Do not manually edit this!! If it is corrupted,
|
|
|
6063 |
the UIPainter may not be able to read the specification."
|
|
|
6064 |
|
|
|
6065 |
"
|
|
|
6066 |
UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
|
|
|
6067 |
AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
|
|
|
6068 |
AbstractSettingsApplication::OsiSettingsAppl open
|
|
|
6069 |
"
|
|
|
6070 |
|
|
|
6071 |
<resource: #canvas>
|
|
|
6072 |
|
|
|
6073 |
^
|
|
|
6074 |
#(#FullSpec
|
|
|
6075 |
#name: #windowSpec
|
|
|
6076 |
#window:
|
|
|
6077 |
#(#WindowSpec
|
|
|
6078 |
#label: 'OSI Protocols Settings'
|
|
|
6079 |
#name: 'OSI Protocols Settings'
|
|
|
6080 |
#min: #(#Point 10 10)
|
|
|
6081 |
#max: #(#Point 1024 768)
|
|
|
6082 |
#bounds: #(#Rectangle 16 42 616 592)
|
|
|
6083 |
)
|
|
|
6084 |
#component:
|
|
|
6085 |
#(#SpecCollection
|
|
|
6086 |
#collection: #(
|
|
|
6087 |
#(#VerticalPanelViewSpec
|
|
|
6088 |
#name: 'VerticalPanel1'
|
|
|
6089 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
6090 |
#horizontalLayout: #fit
|
|
|
6091 |
#verticalLayout: #center
|
|
|
6092 |
#horizontalSpace: 3
|
|
|
6093 |
#verticalSpace: 3
|
|
|
6094 |
#component:
|
|
|
6095 |
#(#SpecCollection
|
|
|
6096 |
#collection: #(
|
|
|
6097 |
#(#VerticalPanelViewSpec
|
|
|
6098 |
#name: 'VerticalPanel2'
|
|
|
6099 |
#horizontalLayout: #fit
|
|
|
6100 |
#verticalLayout: #center
|
|
|
6101 |
#horizontalSpace: 3
|
|
|
6102 |
#verticalSpace: 3
|
|
|
6103 |
#component:
|
|
|
6104 |
#(#SpecCollection
|
|
|
6105 |
#collection: #(
|
|
|
6106 |
#(#ViewSpec
|
|
|
6107 |
#name: 'Box1'
|
|
|
6108 |
#component:
|
|
|
6109 |
#(#SpecCollection
|
|
|
6110 |
#collection: #(
|
|
|
6111 |
#(#CheckBoxSpec
|
|
|
6112 |
#label: 'Log ACSE Errors'
|
|
|
6113 |
#name: 'CheckBox1'
|
|
|
6114 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6115 |
#enableChannel: #osiACSEPresent
|
|
|
6116 |
#model: #osiACSEErrorLogging
|
|
|
6117 |
#translateLabel: true
|
|
|
6118 |
)
|
|
|
6119 |
)
|
|
|
6120 |
|
|
|
6121 |
)
|
|
|
6122 |
#extent: #(#Point 600 27)
|
|
|
6123 |
)
|
|
|
6124 |
#(#ViewSpec
|
|
|
6125 |
#name: 'Box2'
|
|
|
6126 |
#component:
|
|
|
6127 |
#(#SpecCollection
|
|
|
6128 |
#collection: #(
|
|
|
6129 |
#(#CheckBoxSpec
|
|
|
6130 |
#label: 'Connections'
|
|
|
6131 |
#name: 'CheckBox2'
|
|
|
6132 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6133 |
#enableChannel: #osiACSEPresent
|
|
|
6134 |
#model: #osiACSEConnectionLogging
|
|
|
6135 |
#translateLabel: true
|
|
|
6136 |
)
|
|
|
6137 |
)
|
|
|
6138 |
|
|
|
6139 |
)
|
|
|
6140 |
#extent: #(#Point 600 27)
|
|
|
6141 |
)
|
|
|
6142 |
#(#ViewSpec
|
|
|
6143 |
#name: 'Box3'
|
|
|
6144 |
#component:
|
|
|
6145 |
#(#SpecCollection
|
|
|
6146 |
#collection: #(
|
|
|
6147 |
#(#CheckBoxSpec
|
|
|
6148 |
#label: 'Data Xfer'
|
|
|
6149 |
#name: 'CheckBox3'
|
|
|
6150 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6151 |
#enableChannel: #osiACSEPresent
|
|
|
6152 |
#model: #osiACSEDataLogging
|
|
|
6153 |
#translateLabel: true
|
|
|
6154 |
)
|
|
|
6155 |
)
|
|
|
6156 |
|
|
|
6157 |
)
|
|
|
6158 |
#extent: #(#Point 600 26)
|
|
|
6159 |
)
|
|
|
6160 |
#(#ViewSpec
|
|
|
6161 |
#name: 'Box4'
|
|
|
6162 |
#component:
|
|
|
6163 |
#(#SpecCollection
|
|
|
6164 |
#collection: #(
|
|
|
6165 |
#(#CheckBoxSpec
|
|
|
6166 |
#label: 'Log ROSE Errors'
|
|
|
6167 |
#name: 'CheckBox4'
|
|
|
6168 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6169 |
#enableChannel: #osiROSEPresent
|
|
|
6170 |
#model: #osiROSEErrorLogging
|
|
|
6171 |
#translateLabel: true
|
|
|
6172 |
)
|
|
|
6173 |
)
|
|
|
6174 |
|
|
|
6175 |
)
|
|
|
6176 |
#extent: #(#Point 600 25)
|
|
|
6177 |
)
|
|
|
6178 |
#(#ViewSpec
|
|
|
6179 |
#name: 'Box5'
|
|
|
6180 |
#component:
|
|
|
6181 |
#(#SpecCollection
|
|
|
6182 |
#collection: #(
|
|
|
6183 |
#(#CheckBoxSpec
|
|
|
6184 |
#label: 'Invoactions'
|
|
|
6185 |
#name: 'CheckBox5'
|
|
|
6186 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6187 |
#enableChannel: #osiROSEPresent
|
|
|
6188 |
#model: #osiROSEInvokationLogging
|
|
|
6189 |
#translateLabel: true
|
|
|
6190 |
)
|
|
|
6191 |
)
|
|
|
6192 |
|
|
|
6193 |
)
|
|
|
6194 |
#extent: #(#Point 600 24)
|
|
|
6195 |
)
|
|
|
6196 |
#(#ViewSpec
|
|
|
6197 |
#name: 'Box6'
|
|
|
6198 |
#component:
|
|
|
6199 |
#(#SpecCollection
|
|
|
6200 |
#collection: #(
|
|
|
6201 |
#(#CheckBoxSpec
|
|
|
6202 |
#label: 'Responses'
|
|
|
6203 |
#name: 'CheckBox6'
|
|
|
6204 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6205 |
#enableChannel: #osiROSEPresent
|
|
|
6206 |
#model: #osiROSEResponseLogging
|
|
|
6207 |
#translateLabel: true
|
|
|
6208 |
)
|
|
|
6209 |
)
|
|
|
6210 |
|
|
|
6211 |
)
|
|
|
6212 |
#extent: #(#Point 600 23)
|
|
|
6213 |
)
|
|
|
6214 |
#(#ViewSpec
|
|
|
6215 |
#name: 'Box7'
|
|
|
6216 |
#component:
|
|
|
6217 |
#(#SpecCollection
|
|
|
6218 |
#collection: #(
|
|
|
6219 |
#(#CheckBoxSpec
|
|
|
6220 |
#label: 'Log CMISE Errors'
|
|
|
6221 |
#name: 'CheckBox7'
|
|
|
6222 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6223 |
#enableChannel: #osiCMISEPresent
|
|
|
6224 |
#model: #osiCMISEErrorLogging
|
|
|
6225 |
#translateLabel: true
|
|
|
6226 |
)
|
|
|
6227 |
)
|
|
|
6228 |
|
|
|
6229 |
)
|
|
|
6230 |
#extent: #(#Point 600 22)
|
|
|
6231 |
)
|
|
|
6232 |
#(#ViewSpec
|
|
|
6233 |
#name: 'Box8'
|
|
|
6234 |
#component:
|
|
|
6235 |
#(#SpecCollection
|
|
|
6236 |
#collection: #(
|
|
|
6237 |
#(#CheckBoxSpec
|
|
|
6238 |
#label: 'Messages'
|
|
|
6239 |
#name: 'CheckBox8'
|
|
|
6240 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
6241 |
#enableChannel: #osiCMISEPresent
|
|
|
6242 |
#model: #osiCMISEMessageLogging
|
|
|
6243 |
#translateLabel: true
|
|
|
6244 |
)
|
|
|
6245 |
)
|
|
|
6246 |
|
|
|
6247 |
)
|
|
|
6248 |
#extent: #(#Point 600 21)
|
|
|
6249 |
)
|
|
|
6250 |
)
|
|
|
6251 |
|
|
|
6252 |
)
|
|
|
6253 |
#extent: #(#Point 600 250)
|
|
|
6254 |
)
|
|
|
6255 |
)
|
|
|
6256 |
|
|
|
6257 |
)
|
|
|
6258 |
)
|
|
|
6259 |
)
|
|
|
6260 |
|
|
|
6261 |
)
|
|
|
6262 |
)
|
|
|
6263 |
! !
|
|
|
6264 |
|
|
|
6265 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
|
|
|
6266 |
|
|
|
6267 |
evaluateModified
|
|
|
6268 |
|
|
|
6269 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
6270 |
!
|
|
|
6271 |
|
|
|
6272 |
help
|
|
|
6273 |
|
|
|
6274 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
|
|
|
6275 |
!
|
|
|
6276 |
|
|
|
6277 |
loadRequest
|
|
|
6278 |
|
|
|
6279 |
self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
|
|
|
6280 |
self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
|
|
|
6281 |
self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
|
|
|
6282 |
|
|
|
6283 |
self osiACSEPresent value ifTrue:[
|
|
|
6284 |
self osiACSEErrorLogging value:OSI::ACSE errorLogging.
|
|
|
6285 |
self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
|
|
|
6286 |
self osiACSEDataLogging value:OSI::ACSE dataLogging.
|
|
|
6287 |
].
|
|
|
6288 |
self osiROSEPresent value ifTrue:[
|
|
|
6289 |
self osiROSEErrorLogging value:OSI::ROSE errorLogging.
|
|
|
6290 |
self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
|
|
|
6291 |
self osiROSEResponseLogging value:OSI::ROSE responseLogging.
|
|
|
6292 |
].
|
|
|
6293 |
self osiCMISEPresent value ifTrue:[
|
|
|
6294 |
self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
|
|
|
6295 |
self osiCMISEMessageLogging value:OSI::CMISE messageLogging.
|
|
|
6296 |
].
|
|
|
6297 |
self modifiedChannel value:false.
|
|
|
6298 |
!
|
|
|
6299 |
|
|
|
6300 |
saveSettings
|
|
|
6301 |
|
|
|
6302 |
self hasUnsavedChanges ifTrue:[
|
|
|
6303 |
self osiACSEPresent value ifTrue:[
|
|
|
6304 |
OSI::ACSE errorLogging:self osiACSEErrorLogging value.
|
|
|
6305 |
OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
|
|
|
6306 |
OSI::ACSE dataLogging:self osiACSEDataLogging value.
|
|
|
6307 |
].
|
|
|
6308 |
self osiROSEPresent value ifTrue:[
|
|
|
6309 |
OSI::ROSE errorLogging:self osiROSEErrorLogging value.
|
|
|
6310 |
OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
|
|
|
6311 |
OSI::ROSE responseLogging:self osiROSEResponseLogging value.
|
|
|
6312 |
].
|
|
|
6313 |
self osiCMISEPresent value ifTrue:[
|
|
|
6314 |
OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
|
|
|
6315 |
OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
|
|
|
6316 |
].
|
|
|
6317 |
self modifiedChannel value:false.
|
|
|
6318 |
].
|
|
|
6319 |
! !
|
|
|
6320 |
|
|
|
6321 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
|
|
|
6322 |
|
|
|
6323 |
modifiedChannel
|
|
|
6324 |
|
|
|
6325 |
modifiedChannel isNil ifTrue:[
|
|
|
6326 |
modifiedChannel := false asValue.
|
|
|
6327 |
].
|
|
|
6328 |
^ modifiedChannel
|
|
|
6329 |
!
|
|
|
6330 |
|
|
|
6331 |
osiACSEConnectionLogging
|
|
|
6332 |
"automatically generated by UIPainter ..."
|
|
|
6333 |
|
|
|
6334 |
"*** the code below creates a default model when invoked."
|
|
|
6335 |
"*** (which may not be the one you wanted)"
|
|
|
6336 |
"*** Please change as required and accept it in the browser."
|
|
|
6337 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6338 |
|
|
|
6339 |
osiACSEConnectionLogging isNil ifTrue:[
|
|
|
6340 |
osiACSEConnectionLogging := true asValue.
|
|
|
6341 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6342 |
"/ osiACSEConnectionLogging addDependent:self.
|
|
|
6343 |
"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
|
|
|
6344 |
].
|
|
|
6345 |
^ osiACSEConnectionLogging.
|
|
|
6346 |
!
|
|
|
6347 |
|
|
|
6348 |
osiACSEDataLogging
|
|
|
6349 |
"automatically generated by UIPainter ..."
|
|
|
6350 |
|
|
|
6351 |
"*** the code below creates a default model when invoked."
|
|
|
6352 |
"*** (which may not be the one you wanted)"
|
|
|
6353 |
"*** Please change as required and accept it in the browser."
|
|
|
6354 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6355 |
|
|
|
6356 |
osiACSEDataLogging isNil ifTrue:[
|
|
|
6357 |
osiACSEDataLogging := true asValue.
|
|
|
6358 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6359 |
"/ osiACSEDataLogging addDependent:self.
|
|
|
6360 |
"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
|
|
|
6361 |
].
|
|
|
6362 |
^ osiACSEDataLogging.
|
|
|
6363 |
!
|
|
|
6364 |
|
|
|
6365 |
osiACSEErrorLogging
|
|
|
6366 |
"automatically generated by UIPainter ..."
|
|
|
6367 |
|
|
|
6368 |
"*** the code below creates a default model when invoked."
|
|
|
6369 |
"*** (which may not be the one you wanted)"
|
|
|
6370 |
"*** Please change as required and accept it in the browser."
|
|
|
6371 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6372 |
|
|
|
6373 |
osiACSEErrorLogging isNil ifTrue:[
|
|
|
6374 |
osiACSEErrorLogging := true asValue.
|
|
|
6375 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6376 |
"/ osiACSEErrorLogging addDependent:self.
|
|
|
6377 |
"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
|
|
|
6378 |
].
|
|
|
6379 |
^ osiACSEErrorLogging.
|
|
|
6380 |
!
|
|
|
6381 |
|
|
|
6382 |
osiACSEPresent
|
|
|
6383 |
"automatically generated by UIPainter ..."
|
|
|
6384 |
|
|
|
6385 |
"*** the code below creates a default model when invoked."
|
|
|
6386 |
"*** (which may not be the one you wanted)"
|
|
|
6387 |
"*** Please change as required and accept it in the browser."
|
|
|
6388 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6389 |
|
|
|
6390 |
osiACSEPresent isNil ifTrue:[
|
|
|
6391 |
osiACSEPresent := true asValue.
|
|
|
6392 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6393 |
"/ osiACSEPresent addDependent:self.
|
|
|
6394 |
"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
|
|
|
6395 |
].
|
|
|
6396 |
^ osiACSEPresent.
|
|
|
6397 |
!
|
|
|
6398 |
|
|
|
6399 |
osiCMISEErrorLogging
|
|
|
6400 |
"automatically generated by UIPainter ..."
|
|
|
6401 |
|
|
|
6402 |
"*** the code below creates a default model when invoked."
|
|
|
6403 |
"*** (which may not be the one you wanted)"
|
|
|
6404 |
"*** Please change as required and accept it in the browser."
|
|
|
6405 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6406 |
|
|
|
6407 |
osiCMISEErrorLogging isNil ifTrue:[
|
|
|
6408 |
osiCMISEErrorLogging := true asValue.
|
|
|
6409 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6410 |
"/ osiCMISEErrorLogging addDependent:self.
|
|
|
6411 |
"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
|
|
|
6412 |
].
|
|
|
6413 |
^ osiCMISEErrorLogging.
|
|
|
6414 |
!
|
|
|
6415 |
|
|
|
6416 |
osiCMISEMessageLogging
|
|
|
6417 |
"automatically generated by UIPainter ..."
|
|
|
6418 |
|
|
|
6419 |
"*** the code below creates a default model when invoked."
|
|
|
6420 |
"*** (which may not be the one you wanted)"
|
|
|
6421 |
"*** Please change as required and accept it in the browser."
|
|
|
6422 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6423 |
|
|
|
6424 |
osiCMISEMessageLogging isNil ifTrue:[
|
|
|
6425 |
osiCMISEMessageLogging := true asValue.
|
|
|
6426 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6427 |
"/ osiCMISEMessageLogging addDependent:self.
|
|
|
6428 |
"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
|
|
|
6429 |
].
|
|
|
6430 |
^ osiCMISEMessageLogging.
|
|
|
6431 |
!
|
|
|
6432 |
|
|
|
6433 |
osiCMISEPresent
|
|
|
6434 |
"automatically generated by UIPainter ..."
|
|
|
6435 |
|
|
|
6436 |
"*** the code below creates a default model when invoked."
|
|
|
6437 |
"*** (which may not be the one you wanted)"
|
|
|
6438 |
"*** Please change as required and accept it in the browser."
|
|
|
6439 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6440 |
|
|
|
6441 |
osiCMISEPresent isNil ifTrue:[
|
|
|
6442 |
osiCMISEPresent := true asValue.
|
|
|
6443 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6444 |
"/ osiCMISEPresent addDependent:self.
|
|
|
6445 |
"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
|
|
|
6446 |
].
|
|
|
6447 |
^ osiCMISEPresent.
|
|
|
6448 |
!
|
|
|
6449 |
|
|
|
6450 |
osiROSEErrorLogging
|
|
|
6451 |
"automatically generated by UIPainter ..."
|
|
|
6452 |
|
|
|
6453 |
"*** the code below creates a default model when invoked."
|
|
|
6454 |
"*** (which may not be the one you wanted)"
|
|
|
6455 |
"*** Please change as required and accept it in the browser."
|
|
|
6456 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6457 |
|
|
|
6458 |
osiROSEErrorLogging isNil ifTrue:[
|
|
|
6459 |
osiROSEErrorLogging := true asValue.
|
|
|
6460 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6461 |
"/ osiROSEErrorLogging addDependent:self.
|
|
|
6462 |
"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
|
|
|
6463 |
].
|
|
|
6464 |
^ osiROSEErrorLogging.
|
|
|
6465 |
!
|
|
|
6466 |
|
|
|
6467 |
osiROSEInvokationLogging
|
|
|
6468 |
"automatically generated by UIPainter ..."
|
|
|
6469 |
|
|
|
6470 |
"*** the code below creates a default model when invoked."
|
|
|
6471 |
"*** (which may not be the one you wanted)"
|
|
|
6472 |
"*** Please change as required and accept it in the browser."
|
|
|
6473 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6474 |
|
|
|
6475 |
osiROSEInvokationLogging isNil ifTrue:[
|
|
|
6476 |
osiROSEInvokationLogging := true asValue.
|
|
|
6477 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6478 |
"/ osiROSEInvokationLogging addDependent:self.
|
|
|
6479 |
"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
|
|
|
6480 |
].
|
|
|
6481 |
^ osiROSEInvokationLogging.
|
|
|
6482 |
!
|
|
|
6483 |
|
|
|
6484 |
osiROSEPresent
|
|
|
6485 |
"automatically generated by UIPainter ..."
|
|
|
6486 |
|
|
|
6487 |
"*** the code below creates a default model when invoked."
|
|
|
6488 |
"*** (which may not be the one you wanted)"
|
|
|
6489 |
"*** Please change as required and accept it in the browser."
|
|
|
6490 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6491 |
|
|
|
6492 |
osiROSEPresent isNil ifTrue:[
|
|
|
6493 |
osiROSEPresent := true asValue.
|
|
|
6494 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6495 |
"/ osiROSEPresent addDependent:self.
|
|
|
6496 |
"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
|
|
|
6497 |
].
|
|
|
6498 |
^ osiROSEPresent.
|
|
|
6499 |
!
|
|
|
6500 |
|
|
|
6501 |
osiROSEResponseLogging
|
|
|
6502 |
"automatically generated by UIPainter ..."
|
|
|
6503 |
|
|
|
6504 |
"*** the code below creates a default model when invoked."
|
|
|
6505 |
"*** (which may not be the one you wanted)"
|
|
|
6506 |
"*** Please change as required and accept it in the browser."
|
|
|
6507 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
6508 |
|
|
|
6509 |
osiROSEResponseLogging isNil ifTrue:[
|
|
|
6510 |
osiROSEResponseLogging := true asValue.
|
|
|
6511 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
6512 |
"/ osiROSEResponseLogging addDependent:self.
|
|
|
6513 |
"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
|
|
|
6514 |
].
|
|
|
6515 |
^ osiROSEResponseLogging.
|
|
|
6516 |
! !
|
|
|
6517 |
|
|
|
6518 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'change & update'!
|
|
|
6519 |
|
|
|
6520 |
update:something with:aParameter from:changedObject
|
|
|
6521 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
6522 |
|
|
|
6523 |
"stub code automatically generated - please change as required"
|
|
|
6524 |
|
|
|
6525 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
6526 |
"/ ^ self.
|
|
|
6527 |
"/ ].
|
|
|
6528 |
|
|
|
6529 |
super update:something with:aParameter from:changedObject
|
|
|
6530 |
! !
|
|
|
6531 |
|
|
|
6532 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'initialization & release'!
|
|
|
6533 |
|
|
|
6534 |
initialize
|
|
|
6535 |
|
|
4387
|
6536 |
resources := self class classResources.
|
|
4310
|
6537 |
self loadRequest.
|
|
|
6538 |
super initialize
|
|
|
6539 |
! !
|
|
|
6540 |
|
|
|
6541 |
!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
|
|
|
6542 |
|
|
|
6543 |
hasUnsavedChanges
|
|
|
6544 |
|
|
|
6545 |
^ ((
|
|
|
6546 |
(self osiACSEPresent value and:[
|
|
|
6547 |
self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
|
|
|
6548 |
self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
|
|
|
6549 |
self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
|
|
|
6550 |
self osiROSEPresent value and:[
|
|
|
6551 |
self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
|
|
|
6552 |
self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
|
|
|
6553 |
self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
|
|
|
6554 |
(self osiCMISEPresent value) and:[
|
|
|
6555 |
self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
|
|
|
6556 |
self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
|
|
|
6557 |
! !
|
|
|
6558 |
|
|
4312
|
6559 |
!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
|
|
|
6560 |
|
|
|
6561 |
defaultIcon
|
|
|
6562 |
"This resource specification was automatically generated
|
|
|
6563 |
by the ImageEditor of ST/X."
|
|
|
6564 |
|
|
|
6565 |
"Do not manually edit this!! If it is corrupted,
|
|
|
6566 |
the ImageEditor may not be able to read the specification."
|
|
|
6567 |
|
|
|
6568 |
"
|
|
|
6569 |
self defaultIcon inspect
|
|
|
6570 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
6571 |
Icon flushCachedIcons
|
|
|
6572 |
"
|
|
|
6573 |
|
|
|
6574 |
<resource: #image>
|
|
|
6575 |
|
|
|
6576 |
^Icon
|
|
|
6577 |
constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
|
|
|
6578 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
6579 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
6580 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
|
|
|
6581 |
@P@@@@@@@@@@@@@@@@D@@@@@@@@@@@D@@PDA@@DA@@DA@@DA@PD@@@@@@@D@@@@@@@@@@@@@@@@AA@DD@P@@@@DA@PDA@PDA@PDA@PDAA@DD@PD@@@DDA@PD
|
|
|
6582 |
A@PDA@PDA@PDA@DD@PTA@@@A@PDA@PDA@PDA@PDA@PDA@PTE@P@@@PTEAPTEAPTEAPTB@ HEAPDE@P@@@@DEAPTEAPTEAPTE@ HBAPTA@P@@@@@A@PDA@PDA
|
|
|
6583 |
@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
6584 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0 255 255 0 129 129 129 194 194 194 105 133 190]; 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]
|
|
|
6585 |
! !
|
|
|
6586 |
|
|
4286
|
6587 |
!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
|
|
|
6588 |
|
|
|
6589 |
windowSpec
|
|
|
6590 |
"This resource specification was automatically generated
|
|
|
6591 |
by the UIPainter of ST/X."
|
|
|
6592 |
|
|
|
6593 |
"Do not manually edit this!! If it is corrupted,
|
|
|
6594 |
the UIPainter may not be able to read the specification."
|
|
|
6595 |
|
|
|
6596 |
"
|
|
4310
|
6597 |
UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
|
|
|
6598 |
AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
|
|
|
6599 |
AbstractSettingsApplication::PrinterSettingsAppl open
|
|
4286
|
6600 |
"
|
|
|
6601 |
|
|
|
6602 |
<resource: #canvas>
|
|
|
6603 |
|
|
|
6604 |
^
|
|
|
6605 |
#(#FullSpec
|
|
|
6606 |
#name: #windowSpec
|
|
|
6607 |
#window:
|
|
|
6608 |
#(#WindowSpec
|
|
|
6609 |
#label: 'Printer Settings'
|
|
|
6610 |
#name: 'Printer Settings'
|
|
|
6611 |
#min: #(#Point 10 10)
|
|
|
6612 |
#max: #(#Point 1024 768)
|
|
4310
|
6613 |
#bounds: #(#Rectangle 16 42 616 382)
|
|
4286
|
6614 |
)
|
|
|
6615 |
#component:
|
|
|
6616 |
#(#SpecCollection
|
|
|
6617 |
#collection: #(
|
|
4310
|
6618 |
#(#VerticalPanelViewSpec
|
|
|
6619 |
#name: 'VerticalPanel1'
|
|
|
6620 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
6621 |
#horizontalLayout: #fit
|
|
4286
|
6622 |
#verticalLayout: #center
|
|
|
6623 |
#horizontalSpace: 3
|
|
|
6624 |
#verticalSpace: 3
|
|
|
6625 |
#component:
|
|
|
6626 |
#(#SpecCollection
|
|
|
6627 |
#collection: #(
|
|
4310
|
6628 |
#(#ViewSpec
|
|
|
6629 |
#name: 'PrinterSelectBox'
|
|
|
6630 |
#component:
|
|
|
6631 |
#(#SpecCollection
|
|
|
6632 |
#collection: #(
|
|
|
6633 |
#(#LabelSpec
|
|
|
6634 |
#label: 'Printer Type:'
|
|
|
6635 |
#name: 'PrinterTypeLabel'
|
|
|
6636 |
#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
|
|
|
6637 |
#translateLabel: true
|
|
|
6638 |
#adjust: #right
|
|
|
6639 |
)
|
|
|
6640 |
#(#ComboListSpec
|
|
|
6641 |
#name: 'PrinterTypeComboList'
|
|
|
6642 |
#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
|
|
|
6643 |
#model: #printerTypeSelection
|
|
|
6644 |
#comboList: #printerType
|
|
|
6645 |
#useIndex: true
|
|
|
6646 |
)
|
|
|
6647 |
#(#LabelSpec
|
|
|
6648 |
#label: 'Printer Command:'
|
|
|
6649 |
#name: 'PrinterCommandLabel'
|
|
|
6650 |
#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
|
|
|
6651 |
#translateLabel: true
|
|
|
6652 |
#adjust: #right
|
|
|
6653 |
)
|
|
|
6654 |
#(#ComboBoxSpec
|
|
|
6655 |
#name: 'CommandComboBox'
|
|
|
6656 |
#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
|
|
|
6657 |
#model: #printCommand
|
|
4371
|
6658 |
#acceptOnLostFocus: true
|
|
4310
|
6659 |
#acceptOnPointerLeave: false
|
|
|
6660 |
#comboList: #printCommandList
|
|
|
6661 |
#useIndex: false
|
|
|
6662 |
)
|
|
|
6663 |
#(#DividerSpec
|
|
|
6664 |
#name: 'Separator1'
|
|
|
6665 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
6666 |
)
|
|
|
6667 |
)
|
|
|
6668 |
|
|
|
6669 |
)
|
|
|
6670 |
#extent: #(#Point 600 84)
|
|
|
6671 |
)
|
|
|
6672 |
#(#ViewSpec
|
|
|
6673 |
#name: 'FormatBox'
|
|
|
6674 |
#component:
|
|
|
6675 |
#(#SpecCollection
|
|
|
6676 |
#collection: #(
|
|
|
6677 |
#(#LabelSpec
|
|
|
6678 |
#label: 'Page Format:'
|
|
|
6679 |
#name: 'PageFormatLabel'
|
|
|
6680 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
|
|
|
6681 |
#translateLabel: true
|
|
|
6682 |
#adjust: #right
|
|
|
6683 |
)
|
|
|
6684 |
#(#PopUpListSpec
|
|
|
6685 |
#label: 'PopUp List'
|
|
|
6686 |
#name: 'PageFormatPopUpList'
|
|
|
6687 |
#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
|
|
|
6688 |
#tabable: true
|
|
|
6689 |
#model: #pageFormat
|
|
|
6690 |
#enableChannel: #enableFormat
|
|
|
6691 |
#menu: #pageFormatList
|
|
|
6692 |
)
|
|
|
6693 |
#(#CheckBoxSpec
|
|
|
6694 |
#label: 'Landscape'
|
|
|
6695 |
#name: 'LandscapeCheckBox'
|
|
|
6696 |
#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
|
|
|
6697 |
#enableChannel: #enablelandscape
|
|
|
6698 |
#model: #landscape
|
|
|
6699 |
#translateLabel: true
|
|
|
6700 |
)
|
|
|
6701 |
#(#DividerSpec
|
|
|
6702 |
#name: 'Separator5'
|
|
|
6703 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
6704 |
)
|
|
|
6705 |
)
|
|
|
6706 |
|
|
|
6707 |
)
|
|
|
6708 |
#extent: #(#Point 600 30)
|
|
4286
|
6709 |
)
|
|
4310
|
6710 |
#(#ViewSpec
|
|
|
6711 |
#name: 'MarginBox'
|
|
|
6712 |
#component:
|
|
|
6713 |
#(#SpecCollection
|
|
|
6714 |
#collection: #(
|
|
|
6715 |
#(#VerticalPanelViewSpec
|
|
|
6716 |
#name: 'VerticalPanel2'
|
|
|
6717 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
6718 |
#horizontalLayout: #fit
|
|
|
6719 |
#verticalLayout: #center
|
|
|
6720 |
#horizontalSpace: 3
|
|
|
6721 |
#verticalSpace: 3
|
|
|
6722 |
#component:
|
|
|
6723 |
#(#SpecCollection
|
|
|
6724 |
#collection: #(
|
|
|
6725 |
#(#ViewSpec
|
|
|
6726 |
#name: 'Box1'
|
|
|
6727 |
#component:
|
|
|
6728 |
#(#SpecCollection
|
|
|
6729 |
#collection: #(
|
|
|
6730 |
#(#LabelSpec
|
|
|
6731 |
#label: 'Top Margin:'
|
|
|
6732 |
#name: 'TopMarginLabel'
|
|
|
6733 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
|
|
|
6734 |
#translateLabel: true
|
|
|
6735 |
#adjust: #right
|
|
|
6736 |
)
|
|
|
6737 |
#(#InputFieldSpec
|
|
|
6738 |
#name: 'TopMarginEntryField'
|
|
|
6739 |
#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
|
|
|
6740 |
#enableChannel: #enableMargins
|
|
|
6741 |
#model: #topMargin
|
|
4371
|
6742 |
#type: #numberOrNil
|
|
4310
|
6743 |
#acceptOnReturn: true
|
|
|
6744 |
#acceptOnTab: true
|
|
|
6745 |
#acceptOnLostFocus: true
|
|
|
6746 |
#acceptOnPointerLeave: false
|
|
|
6747 |
)
|
|
|
6748 |
#(#PopUpListSpec
|
|
|
6749 |
#label: 'PopUp List'
|
|
|
6750 |
#name: 'PopUpList2'
|
|
|
6751 |
#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
|
|
|
6752 |
#tabable: true
|
|
|
6753 |
#model: #selectedUnit
|
|
|
6754 |
#menu: #unitList
|
|
|
6755 |
#useIndex: true
|
|
|
6756 |
)
|
|
|
6757 |
)
|
|
|
6758 |
|
|
|
6759 |
)
|
|
|
6760 |
#extent: #(#Point 600 24)
|
|
|
6761 |
)
|
|
|
6762 |
#(#ViewSpec
|
|
|
6763 |
#name: 'Box2'
|
|
|
6764 |
#component:
|
|
|
6765 |
#(#SpecCollection
|
|
|
6766 |
#collection: #(
|
|
|
6767 |
#(#LabelSpec
|
|
|
6768 |
#label: 'Left Margin:'
|
|
|
6769 |
#name: 'LeftMarginLabel'
|
|
|
6770 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
|
|
|
6771 |
#translateLabel: true
|
|
|
6772 |
#adjust: #right
|
|
|
6773 |
)
|
|
|
6774 |
#(#InputFieldSpec
|
|
|
6775 |
#name: 'LeftMarginEntryField'
|
|
|
6776 |
#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
|
|
|
6777 |
#enableChannel: #enableMargins
|
|
|
6778 |
#model: #leftMargin
|
|
4371
|
6779 |
#type: #numberOrNil
|
|
4310
|
6780 |
#acceptOnReturn: true
|
|
|
6781 |
#acceptOnTab: true
|
|
|
6782 |
#acceptOnLostFocus: true
|
|
|
6783 |
#acceptOnPointerLeave: false
|
|
|
6784 |
)
|
|
|
6785 |
)
|
|
|
6786 |
|
|
|
6787 |
)
|
|
|
6788 |
#extent: #(#Point 600 24)
|
|
|
6789 |
)
|
|
|
6790 |
#(#ViewSpec
|
|
|
6791 |
#name: 'Box3'
|
|
|
6792 |
#component:
|
|
|
6793 |
#(#SpecCollection
|
|
|
6794 |
#collection: #(
|
|
|
6795 |
#(#LabelSpec
|
|
|
6796 |
#label: 'Right Margin:'
|
|
|
6797 |
#name: 'RightMarginLabel'
|
|
|
6798 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
|
|
|
6799 |
#translateLabel: true
|
|
|
6800 |
#adjust: #right
|
|
|
6801 |
)
|
|
|
6802 |
#(#InputFieldSpec
|
|
|
6803 |
#name: 'RightMarginEntryField'
|
|
|
6804 |
#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
|
|
|
6805 |
#enableChannel: #enableMargins
|
|
|
6806 |
#model: #rightMargin
|
|
4371
|
6807 |
#type: #numberOrNil
|
|
4310
|
6808 |
#acceptOnReturn: true
|
|
|
6809 |
#acceptOnTab: true
|
|
|
6810 |
#acceptOnLostFocus: true
|
|
|
6811 |
#acceptOnPointerLeave: false
|
|
|
6812 |
)
|
|
|
6813 |
)
|
|
|
6814 |
|
|
|
6815 |
)
|
|
|
6816 |
#extent: #(#Point 600 24)
|
|
|
6817 |
)
|
|
|
6818 |
#(#ViewSpec
|
|
|
6819 |
#name: 'Box4'
|
|
|
6820 |
#component:
|
|
|
6821 |
#(#SpecCollection
|
|
|
6822 |
#collection: #(
|
|
|
6823 |
#(#LabelSpec
|
|
|
6824 |
#label: 'Bottom Margin:'
|
|
|
6825 |
#name: 'BottomMarginLabel'
|
|
|
6826 |
#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
|
|
|
6827 |
#translateLabel: true
|
|
|
6828 |
#adjust: #right
|
|
|
6829 |
)
|
|
|
6830 |
#(#InputFieldSpec
|
|
|
6831 |
#name: 'BottomMarginEntryField'
|
|
|
6832 |
#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
|
|
|
6833 |
#enableChannel: #enableMargins
|
|
|
6834 |
#model: #bottomMargin
|
|
4371
|
6835 |
#type: #numberOrNil
|
|
4310
|
6836 |
#acceptOnReturn: true
|
|
|
6837 |
#acceptOnTab: true
|
|
|
6838 |
#acceptOnLostFocus: true
|
|
|
6839 |
#acceptOnPointerLeave: false
|
|
|
6840 |
)
|
|
|
6841 |
)
|
|
|
6842 |
|
|
|
6843 |
)
|
|
|
6844 |
#extent: #(#Point 600 24)
|
|
|
6845 |
)
|
|
|
6846 |
)
|
|
|
6847 |
|
|
|
6848 |
)
|
|
|
6849 |
)
|
|
|
6850 |
#(#DividerSpec
|
|
|
6851 |
#name: 'Separator6'
|
|
|
6852 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
6853 |
)
|
|
|
6854 |
)
|
|
|
6855 |
|
|
|
6856 |
)
|
|
|
6857 |
#extent: #(#Point 600 100)
|
|
4286
|
6858 |
)
|
|
4310
|
6859 |
#(#ViewSpec
|
|
|
6860 |
#name: 'Box5'
|
|
|
6861 |
#component:
|
|
|
6862 |
#(#SpecCollection
|
|
|
6863 |
#collection: #(
|
|
|
6864 |
#(#CheckBoxSpec
|
|
|
6865 |
#label: 'Color Printer'
|
|
|
6866 |
#name: 'ColorPrinterCheckBox'
|
|
|
6867 |
#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
|
|
|
6868 |
#enableChannel: #enableColorBox
|
|
|
6869 |
#model: #supportsColor
|
|
|
6870 |
#translateLabel: true
|
|
|
6871 |
)
|
|
|
6872 |
#(#DividerSpec
|
|
|
6873 |
#name: 'Separator7'
|
|
|
6874 |
#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
|
|
|
6875 |
)
|
|
|
6876 |
)
|
|
|
6877 |
|
|
|
6878 |
)
|
|
|
6879 |
#extent: #(#Point 600 27)
|
|
4286
|
6880 |
)
|
|
|
6881 |
)
|
|
|
6882 |
|
|
|
6883 |
)
|
|
|
6884 |
)
|
|
|
6885 |
)
|
|
|
6886 |
|
|
|
6887 |
)
|
|
|
6888 |
)
|
|
|
6889 |
! !
|
|
|
6890 |
|
|
|
6891 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
|
|
|
6892 |
|
|
|
6893 |
evaluateModified
|
|
|
6894 |
|
|
|
6895 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
6896 |
!
|
|
|
6897 |
|
|
|
6898 |
help
|
|
|
6899 |
|
|
|
6900 |
"/ self warn:'no help available here'.
|
|
|
6901 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
|
|
|
6902 |
!
|
|
|
6903 |
|
|
|
6904 |
loadRequest
|
|
|
6905 |
|
|
4371
|
6906 |
self bottomMargin value:Printer bottomMargin.
|
|
|
6907 |
self landscape value:Printer landscape.
|
|
|
6908 |
self leftMargin value:Printer leftMargin.
|
|
|
6909 |
self rightMargin value:Printer rightMargin.
|
|
|
6910 |
self topMargin value:Printer topMargin.
|
|
|
6911 |
self printCommand value:Printer printCommand.
|
|
|
6912 |
self printerTypeSelection value:(possiblePrinters identityIndexOf:Printer).
|
|
|
6913 |
self supportsColor value:Printer supportsColor.
|
|
|
6914 |
self pageFormatList notEmpty ifTrue:[
|
|
|
6915 |
self pageFormat value:Printer pageFormat.
|
|
|
6916 |
].
|
|
|
6917 |
self printerTypeSelectionOrUnitListChanged.
|
|
4286
|
6918 |
self modifiedChannel value:false.
|
|
|
6919 |
!
|
|
|
6920 |
|
|
|
6921 |
saveSettings
|
|
|
6922 |
|
|
|
6923 |
self hasUnsavedChanges ifTrue:[
|
|
|
6924 |
Printer := possiblePrinters at:(self printerTypeSelection value).
|
|
|
6925 |
Printer printCommand:self printCommand value.
|
|
|
6926 |
|
|
|
6927 |
Printer supportsPageSizes ifTrue:[
|
|
4371
|
6928 |
Printer pageFormat:(self pageFormat value).
|
|
4286
|
6929 |
Printer landscape:(self landscape value).
|
|
|
6930 |
].
|
|
|
6931 |
Printer supportsMargins ifTrue:[
|
|
|
6932 |
| unit |
|
|
|
6933 |
self selectedUnit value == 2 ifTrue:[
|
|
|
6934 |
unit := #mm
|
|
|
6935 |
] ifFalse:[
|
|
|
6936 |
unit := #inch
|
|
|
6937 |
].
|
|
4371
|
6938 |
Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
|
|
|
6939 |
Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
|
|
|
6940 |
Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
|
|
|
6941 |
Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
|
|
4286
|
6942 |
].
|
|
|
6943 |
Printer supportsPostscript ifTrue:[
|
|
|
6944 |
Printer supportsColor:self supportsColor value.
|
|
|
6945 |
].
|
|
|
6946 |
self modifiedChannel value:false.
|
|
|
6947 |
].
|
|
|
6948 |
! !
|
|
|
6949 |
|
|
|
6950 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
|
|
|
6951 |
|
|
|
6952 |
bottomMargin
|
|
|
6953 |
|
|
|
6954 |
bottomMargin isNil ifTrue:[
|
|
|
6955 |
bottomMargin := Printer bottomMargin asValue.
|
|
|
6956 |
bottomMargin onChangeSend:#evaluateModified to:self
|
|
|
6957 |
].
|
|
|
6958 |
^ bottomMargin.
|
|
|
6959 |
!
|
|
|
6960 |
|
|
|
6961 |
enableColorBox
|
|
|
6962 |
|
|
|
6963 |
enableColorBox isNil ifTrue:[
|
|
|
6964 |
enableColorBox := true asValue.
|
|
|
6965 |
].
|
|
|
6966 |
^ enableColorBox.
|
|
|
6967 |
!
|
|
|
6968 |
|
|
|
6969 |
enableFormat
|
|
|
6970 |
|
|
|
6971 |
enableFormat isNil ifTrue:[
|
|
|
6972 |
enableFormat := true asValue.
|
|
|
6973 |
].
|
|
|
6974 |
^ enableFormat.
|
|
|
6975 |
!
|
|
|
6976 |
|
|
|
6977 |
enableMargins
|
|
|
6978 |
|
|
|
6979 |
enableMargins isNil ifTrue:[
|
|
|
6980 |
enableMargins := true asValue.
|
|
|
6981 |
].
|
|
|
6982 |
^ enableMargins.
|
|
|
6983 |
!
|
|
|
6984 |
|
|
|
6985 |
enablelandscape
|
|
|
6986 |
|
|
|
6987 |
enablelandscape isNil ifTrue:[
|
|
|
6988 |
enablelandscape := true asValue.
|
|
|
6989 |
].
|
|
|
6990 |
^ enablelandscape.
|
|
|
6991 |
!
|
|
|
6992 |
|
|
|
6993 |
landscape
|
|
|
6994 |
|
|
|
6995 |
landscape isNil ifTrue:[
|
|
|
6996 |
landscape := Printer landscape asValue.
|
|
|
6997 |
landscape onChangeSend:#evaluateModified to:self
|
|
|
6998 |
].
|
|
|
6999 |
^ landscape.
|
|
|
7000 |
!
|
|
|
7001 |
|
|
|
7002 |
leftMargin
|
|
|
7003 |
|
|
|
7004 |
leftMargin isNil ifTrue:[
|
|
|
7005 |
leftMargin := Printer leftMargin asValue.
|
|
|
7006 |
leftMargin onChangeSend:#evaluateModified to:self
|
|
|
7007 |
].
|
|
|
7008 |
^ leftMargin.
|
|
|
7009 |
!
|
|
|
7010 |
|
|
|
7011 |
modifiedChannel
|
|
|
7012 |
|
|
|
7013 |
modifiedChannel isNil ifTrue:[
|
|
|
7014 |
modifiedChannel := false asValue.
|
|
|
7015 |
].
|
|
|
7016 |
^ modifiedChannel
|
|
|
7017 |
!
|
|
|
7018 |
|
|
|
7019 |
pageFormat
|
|
|
7020 |
|
|
|
7021 |
pageFormat isNil ifTrue:[
|
|
|
7022 |
self pageFormatList notEmpty ifTrue:[
|
|
|
7023 |
| index |
|
|
|
7024 |
(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
|
|
|
7025 |
pageFormat := index asValue.
|
|
|
7026 |
] ifFalse:[
|
|
|
7027 |
pageFormat := 1 asValue.
|
|
|
7028 |
]
|
|
|
7029 |
].
|
|
|
7030 |
pageFormat onChangeSend:#evaluateModified to:self
|
|
|
7031 |
].
|
|
|
7032 |
^ pageFormat.
|
|
|
7033 |
!
|
|
|
7034 |
|
|
|
7035 |
pageFormatList
|
|
|
7036 |
|
|
|
7037 |
pageFormatList isNil ifTrue:[
|
|
|
7038 |
pageFormatList := Printer defaultPageFormats asList.
|
|
|
7039 |
].
|
|
|
7040 |
^ pageFormatList.
|
|
|
7041 |
!
|
|
|
7042 |
|
|
|
7043 |
printCommand
|
|
|
7044 |
|
|
|
7045 |
printCommand isNil ifTrue:[
|
|
|
7046 |
printCommand := Printer printCommand asValue.
|
|
|
7047 |
printCommand onChangeSend:#evaluateModified to:self
|
|
|
7048 |
].
|
|
|
7049 |
^ printCommand.
|
|
|
7050 |
!
|
|
|
7051 |
|
|
|
7052 |
printCommandList
|
|
|
7053 |
|
|
|
7054 |
printCommandList isNil ifTrue:[
|
|
|
7055 |
printCommandList := commandList asList.
|
|
|
7056 |
].
|
|
|
7057 |
^ printCommandList.
|
|
|
7058 |
!
|
|
|
7059 |
|
|
|
7060 |
printerType
|
|
|
7061 |
|
|
|
7062 |
printerType isNil ifTrue:[
|
|
|
7063 |
printerType := (possiblePrinters collect:[:cls | cls printerTypeName]) asList.
|
|
|
7064 |
printerType onChangeSend:#evaluateModified to:self
|
|
|
7065 |
].
|
|
|
7066 |
^ printerType.
|
|
|
7067 |
!
|
|
|
7068 |
|
|
|
7069 |
printerTypeSelection
|
|
|
7070 |
|
|
|
7071 |
printerTypeSelection isNil ifTrue:[
|
|
|
7072 |
printerTypeSelection := (possiblePrinters identityIndexOf:Printer) asValue.
|
|
|
7073 |
"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
|
|
|
7074 |
printerTypeSelection addDependent:self.
|
|
|
7075 |
printerTypeSelection changed.
|
|
|
7076 |
printerTypeSelection onChangeSend:#evaluateModified to:self
|
|
|
7077 |
].
|
|
|
7078 |
^ printerTypeSelection.
|
|
|
7079 |
!
|
|
|
7080 |
|
|
|
7081 |
rightMargin
|
|
|
7082 |
|
|
|
7083 |
rightMargin isNil ifTrue:[
|
|
|
7084 |
rightMargin := Printer rightMargin asValue.
|
|
|
7085 |
rightMargin onChangeSend:#evaluateModified to:self
|
|
|
7086 |
].
|
|
|
7087 |
^ rightMargin.
|
|
|
7088 |
!
|
|
|
7089 |
|
|
|
7090 |
selectedUnit
|
|
|
7091 |
|
|
|
7092 |
selectedUnit isNil ifTrue:[
|
|
|
7093 |
selectedUnit := 1 asValue.
|
|
|
7094 |
selectedUnit addDependent:self.
|
|
|
7095 |
selectedUnit changed.
|
|
|
7096 |
selectedUnit onChangeSend:#evaluateModified to:self
|
|
|
7097 |
].
|
|
|
7098 |
^ selectedUnit.
|
|
|
7099 |
!
|
|
|
7100 |
|
|
|
7101 |
supportsColor
|
|
|
7102 |
|
|
|
7103 |
supportsColor isNil ifTrue:[
|
|
|
7104 |
supportsColor := Printer supportsColor asValue.
|
|
|
7105 |
supportsColor onChangeSend:#evaluateModified to:self
|
|
|
7106 |
].
|
|
|
7107 |
^ supportsColor.
|
|
|
7108 |
!
|
|
|
7109 |
|
|
|
7110 |
topMargin
|
|
|
7111 |
|
|
|
7112 |
topMargin isNil ifTrue:[
|
|
|
7113 |
topMargin := Printer topMargin asValue.
|
|
|
7114 |
topMargin onChangeSend:#evaluateModified to:self
|
|
|
7115 |
].
|
|
|
7116 |
^ topMargin.
|
|
|
7117 |
!
|
|
|
7118 |
|
|
|
7119 |
unitList
|
|
|
7120 |
|
|
|
7121 |
unitList isNil ifTrue:[
|
|
|
7122 |
unitList := #('inch' 'mm') asList.
|
|
|
7123 |
].
|
|
|
7124 |
^ unitList.
|
|
|
7125 |
! !
|
|
|
7126 |
|
|
|
7127 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
|
|
|
7128 |
|
|
|
7129 |
printerTypeSelectionChanged
|
|
|
7130 |
|
|
|
7131 |
| p hasPageSize hasMargins|
|
|
4371
|
7132 |
self printerType selectionIndex ~~ 0 ifTrue:[
|
|
|
7133 |
p := possiblePrinters at:(self printerType selectionIndex).
|
|
4286
|
7134 |
hasPageSize := p supportsPageSizes.
|
|
|
7135 |
hasMargins := p supportsMargins.
|
|
|
7136 |
] ifFalse:[
|
|
|
7137 |
hasPageSize := false.
|
|
|
7138 |
hasMargins := false.
|
|
|
7139 |
].
|
|
|
7140 |
!
|
|
|
7141 |
|
|
|
7142 |
printerTypeSelectionOrUnitListChanged
|
|
|
7143 |
|
|
|
7144 |
| p hasPageSize hasMargins unit|
|
|
|
7145 |
|
|
|
7146 |
self printerTypeSelection value ~~ 0 ifTrue:[
|
|
|
7147 |
p := possiblePrinters at:(self printerTypeSelection value).
|
|
|
7148 |
hasPageSize := p supportsPageSizes.
|
|
|
7149 |
hasMargins := p supportsMargins.
|
|
|
7150 |
] ifFalse:[
|
|
|
7151 |
hasPageSize := false.
|
|
|
7152 |
hasMargins := false.
|
|
|
7153 |
].
|
|
|
7154 |
self enablelandscape value:hasPageSize.
|
|
|
7155 |
self enableFormat value:hasPageSize.
|
|
|
7156 |
hasPageSize ifTrue:[
|
|
|
7157 |
self pageFormat value:(p pageFormat).
|
|
|
7158 |
self landscape value:(p landscape).
|
|
|
7159 |
] ifFalse:[
|
|
|
7160 |
self landscape value:false.
|
|
|
7161 |
].
|
|
|
7162 |
hasMargins ifTrue:[
|
|
|
7163 |
self selectedUnit value == 2 ifTrue:[
|
|
|
7164 |
unit := #mm
|
|
|
7165 |
] ifFalse:[
|
|
|
7166 |
unit := #inch
|
|
|
7167 |
].
|
|
|
7168 |
|
|
4371
|
7169 |
self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
|
|
|
7170 |
self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
|
|
|
7171 |
self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
|
|
|
7172 |
self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
|
|
4286
|
7173 |
|
|
|
7174 |
] ifFalse:[
|
|
|
7175 |
].
|
|
|
7176 |
self enableMargins value:hasMargins.
|
|
|
7177 |
|
|
|
7178 |
p notNil ifTrue:[
|
|
|
7179 |
| newCommandList |
|
|
|
7180 |
newCommandList := p defaultCommands.
|
|
|
7181 |
newCommandList notNil ifTrue:[
|
|
|
7182 |
self printCommandList contents:(newCommandList asList).
|
|
|
7183 |
self printCommandList changed.
|
|
|
7184 |
].
|
|
|
7185 |
self printCommand value:(p printCommand).
|
|
|
7186 |
].
|
|
|
7187 |
self enableColorBox value:p supportsPostscript.
|
|
|
7188 |
p supportsPostscript ifFalse:[
|
|
|
7189 |
self supportsColor value:false
|
|
|
7190 |
] ifTrue:[
|
|
|
7191 |
self supportsColor value:(Printer supportsColor).
|
|
|
7192 |
]
|
|
|
7193 |
!
|
|
|
7194 |
|
|
|
7195 |
unitListChanged
|
|
|
7196 |
!
|
|
|
7197 |
|
|
|
7198 |
update:something with:aParameter from:changedObject
|
|
|
7199 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
7200 |
|
|
|
7201 |
"stub code automatically generated - please change as required"
|
|
|
7202 |
|
|
|
7203 |
(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
|
|
|
7204 |
self printerTypeSelectionOrUnitListChanged.
|
|
|
7205 |
^ self.
|
|
|
7206 |
].
|
|
|
7207 |
|
|
|
7208 |
super update:something with:aParameter from:changedObject
|
|
|
7209 |
! !
|
|
|
7210 |
|
|
|
7211 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
|
|
|
7212 |
|
|
|
7213 |
initialize
|
|
|
7214 |
|
|
4387
|
7215 |
resources := self class classResources.
|
|
4286
|
7216 |
possiblePrinters := PrinterStream withAllSubclasses asArray.
|
|
|
7217 |
commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
|
|
|
7218 |
commandList isNil ifTrue:[
|
|
|
7219 |
commandList := PrinterStream defaultCommands.
|
|
|
7220 |
commandList isNil ifTrue:[
|
|
|
7221 |
commandList := #('lpr'
|
|
|
7222 |
'lp'
|
|
4328
|
7223 |
) asOrderedCollection.
|
|
4286
|
7224 |
].
|
|
|
7225 |
(commandList includes:self printCommand value) not ifTrue:[
|
|
|
7226 |
commandList add:self printCommand value.
|
|
|
7227 |
].
|
|
|
7228 |
].
|
|
|
7229 |
super initialize
|
|
|
7230 |
!
|
|
|
7231 |
|
|
|
7232 |
postOpen
|
|
|
7233 |
!
|
|
|
7234 |
|
|
|
7235 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
7236 |
|
|
|
7237 |
self postOpen.
|
|
|
7238 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
7239 |
!
|
|
|
7240 |
|
|
|
7241 |
postOpenWith:aBuilder
|
|
|
7242 |
|
|
|
7243 |
self postOpen.
|
|
|
7244 |
^ super postOpenWith:aBuilder
|
|
|
7245 |
! !
|
|
|
7246 |
|
|
|
7247 |
!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
|
|
|
7248 |
|
|
|
7249 |
hasUnsavedChanges
|
|
|
7250 |
|
|
|
7251 |
|
|
|
7252 |
| printer unit|
|
|
|
7253 |
self selectedUnit value == 2 ifTrue:[
|
|
|
7254 |
unit := #mm
|
|
|
7255 |
] ifFalse:[
|
|
|
7256 |
unit := #inch
|
|
|
7257 |
].
|
|
|
7258 |
printer := possiblePrinters at:(self printerTypeSelection value).
|
|
|
7259 |
^ (
|
|
|
7260 |
printer ~= Printer or:[
|
|
|
7261 |
Printer printCommand ~= self printCommand value or:[
|
|
|
7262 |
(Printer supportsPageSizes and:[
|
|
4371
|
7263 |
Printer pageFormat ~= self pageFormat value or:[
|
|
4286
|
7264 |
Printer landscape ~= (self landscape value) or:[
|
|
|
7265 |
]]]) or:[
|
|
|
7266 |
(Printer supportsMargins and:[
|
|
4371
|
7267 |
Printer topMargin ~= ((UnitConverter convert:(self topMargin value asFloat) from:unit to:#inch) asFloat) or:[
|
|
|
7268 |
Printer leftMargin ~= ((UnitConverter convert:(self leftMargin value asFloat) from:unit to:#inch) asFloat) or:[
|
|
|
7269 |
Printer rightMargin ~= ((UnitConverter convert:(self rightMargin value asFloat) from:unit to:#inch) asFloat) or:[
|
|
|
7270 |
Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
|
|
4286
|
7271 |
]]]]]) or:[
|
|
|
7272 |
Printer supportsPostscript and:[
|
|
|
7273 |
Printer supportsColor ~= self supportsColor value
|
|
|
7274 |
]]]]]
|
|
|
7275 |
)
|
|
|
7276 |
! !
|
|
|
7277 |
|
|
4398
|
7278 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
|
|
|
7279 |
|
|
|
7280 |
defaultIcon
|
|
|
7281 |
"This resource specification was automatically generated
|
|
|
7282 |
by the ImageEditor of ST/X."
|
|
|
7283 |
|
|
|
7284 |
"Do not manually edit this!! If it is corrupted,
|
|
|
7285 |
the ImageEditor may not be able to read the specification."
|
|
|
7286 |
|
|
|
7287 |
"
|
|
|
7288 |
self defaultIcon inspect
|
|
|
7289 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
7290 |
Icon flushCachedIcons
|
|
|
7291 |
"
|
|
|
7292 |
|
|
|
7293 |
<resource: #image>
|
|
|
7294 |
|
|
|
7295 |
^Icon
|
|
|
7296 |
constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
|
|
|
7297 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
7298 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
|
|
|
7299 |
@@@C@ PDA@PA@PPDA@PB@0@@@@@@@@@C@ PDA@PDA@PDA@PDA@HC@@@@@@@C@ PDA@PDA@PDA@PDA@PD@ L@@@@@@0HDA@PDA@PDA@PDA@PDA@HC@@@@@@LB
|
|
|
7300 |
A@PDA@PDA@PD@PPDA@PB@0@@@@LBA@PDA@PDA@PD@PPDA@PDA@HC@@@C@ PDA@PDA@PA@PPDA@PDA@PB@0@@@0HDA@PDA@PD@PDDA@PDA@PD@ L@@@LBA@PD
|
|
|
7301 |
A@PDA@PD@PPDA@PDA@HC@@@@@0HDA@PDA@PDA@PAA@PDA@HC@@@@@@LBA@PDA@PDA@PDA@DDA@PB@0@@@@@C@ PDA@PDA@PDA@PD@PPD@ L@@@@@@@LBA@PD
|
|
|
7302 |
A@PDA@PDA@PD@ L@@@@@@@@@@0HDA@PDA@PDA@PD@ L@@@@@@@@@@@@C@ HBA@PDA@HB@ L@@@@@@@@@@@@@@@LC@0HB@ HC@0L@@@@@@@@@@@@@@@@@@@@C
|
|
|
7303 |
@0LC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 128 128 128 128 128 192 192 192 255 255 255]; 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]
|
|
|
7304 |
! !
|
|
|
7305 |
|
|
|
7306 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
|
|
|
7307 |
|
|
|
7308 |
windowSpec
|
|
|
7309 |
"This resource specification was automatically generated
|
|
|
7310 |
by the UIPainter of ST/X."
|
|
|
7311 |
|
|
|
7312 |
"Do not manually edit this!! If it is corrupted,
|
|
|
7313 |
the UIPainter may not be able to read the specification."
|
|
|
7314 |
|
|
|
7315 |
"
|
|
|
7316 |
UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
|
|
|
7317 |
AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
|
|
|
7318 |
AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
|
|
|
7319 |
"
|
|
|
7320 |
|
|
|
7321 |
<resource: #canvas>
|
|
|
7322 |
|
|
|
7323 |
^
|
|
|
7324 |
#(#FullSpec
|
|
|
7325 |
#name: #windowSpec
|
|
|
7326 |
#window:
|
|
|
7327 |
#(#WindowSpec
|
|
4405
|
7328 |
#label: 'Processor and Scheduler Settings'
|
|
|
7329 |
#name: 'Processor and Scheduler Settings'
|
|
4398
|
7330 |
#min: #(#Point 10 10)
|
|
|
7331 |
#max: #(#Point 1024 768)
|
|
|
7332 |
#bounds: #(#Rectangle 16 42 616 362)
|
|
|
7333 |
)
|
|
|
7334 |
#component:
|
|
|
7335 |
#(#SpecCollection
|
|
|
7336 |
#collection: #(
|
|
|
7337 |
#(#VerticalPanelViewSpec
|
|
|
7338 |
#name: 'VerticalPanel2'
|
|
|
7339 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
7340 |
#horizontalLayout: #fit
|
|
|
7341 |
#verticalLayout: #topSpace
|
|
|
7342 |
#horizontalSpace: 3
|
|
|
7343 |
#verticalSpace: 5
|
|
|
7344 |
#component:
|
|
|
7345 |
#(#SpecCollection
|
|
|
7346 |
#collection: #(
|
|
|
7347 |
#(#CheckBoxSpec
|
|
|
7348 |
#label: 'Preemptive Scheduling'
|
|
|
7349 |
#name: 'CheckBox11'
|
|
|
7350 |
#model: #preemptive
|
|
|
7351 |
#translateLabel: true
|
|
|
7352 |
#extent: #(#Point 600 22)
|
|
|
7353 |
)
|
|
|
7354 |
#(#ViewSpec
|
|
|
7355 |
#name: 'Box2'
|
|
|
7356 |
#component:
|
|
|
7357 |
#(#SpecCollection
|
|
|
7358 |
#collection: #(
|
|
|
7359 |
#(#CheckBoxSpec
|
|
|
7360 |
#label: 'Dynamic Priorities'
|
|
|
7361 |
#name: 'CheckBox12'
|
|
|
7362 |
#layout: #(#LayoutFrame 30 0.0 0 0 0 1.0 22 0)
|
|
|
7363 |
#enableChannel: #preemptive
|
|
|
7364 |
#model: #dynamicPrios
|
|
|
7365 |
#translateLabel: true
|
|
|
7366 |
)
|
|
|
7367 |
)
|
|
|
7368 |
|
|
|
7369 |
)
|
|
|
7370 |
#extent: #(#Point 600 23)
|
|
|
7371 |
)
|
|
|
7372 |
)
|
|
|
7373 |
|
|
|
7374 |
)
|
|
|
7375 |
)
|
|
|
7376 |
)
|
|
|
7377 |
|
|
|
7378 |
)
|
|
|
7379 |
)
|
|
|
7380 |
! !
|
|
|
7381 |
|
|
|
7382 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
|
|
|
7383 |
|
|
|
7384 |
evaluateModified
|
|
|
7385 |
|
|
|
7386 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
7387 |
!
|
|
|
7388 |
|
|
|
7389 |
help
|
|
|
7390 |
|
|
|
7391 |
self warn:'no help available here'.
|
|
|
7392 |
"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
|
|
|
7393 |
!
|
|
|
7394 |
|
|
|
7395 |
loadRequest
|
|
|
7396 |
|
|
|
7397 |
self preemptive value:Processor isTimeSlicing.
|
|
|
7398 |
self dynamicPrios value:Processor supportDynamicPriorities.
|
|
|
7399 |
self modifiedChannel value:false.
|
|
|
7400 |
!
|
|
|
7401 |
|
|
|
7402 |
saveSettings
|
|
|
7403 |
|
|
|
7404 |
self hasUnsavedChanges ifTrue:[
|
|
|
7405 |
Processor isTimeSlicing ~~ self preemptive value ifTrue:[
|
|
|
7406 |
self preemptive value ifTrue:[
|
|
|
7407 |
Processor startTimeSlicing
|
|
|
7408 |
] ifFalse:[
|
|
|
7409 |
Processor stopTimeSlicing
|
|
|
7410 |
]
|
|
|
7411 |
].
|
|
|
7412 |
Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
|
|
|
7413 |
Processor supportDynamicPriorities:self dynamicPrios value
|
|
|
7414 |
].
|
|
|
7415 |
self modifiedChannel value:false.
|
|
|
7416 |
].
|
|
|
7417 |
! !
|
|
|
7418 |
|
|
|
7419 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
|
|
|
7420 |
|
|
|
7421 |
dynamicPrios
|
|
|
7422 |
"automatically generated by UIPainter ..."
|
|
|
7423 |
|
|
|
7424 |
"*** the code below creates a default model when invoked."
|
|
|
7425 |
"*** (which may not be the one you wanted)"
|
|
|
7426 |
"*** Please change as required and accept it in the browser."
|
|
|
7427 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
7428 |
|
|
|
7429 |
dynamicPrios isNil ifTrue:[
|
|
|
7430 |
dynamicPrios := true asValue.
|
|
|
7431 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
7432 |
"/ dynamicPrios addDependent:self.
|
|
|
7433 |
"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
|
|
|
7434 |
].
|
|
|
7435 |
^ dynamicPrios.
|
|
|
7436 |
!
|
|
|
7437 |
|
|
|
7438 |
modifiedChannel
|
|
|
7439 |
|
|
|
7440 |
modifiedChannel isNil ifTrue:[
|
|
|
7441 |
modifiedChannel := false asValue.
|
|
|
7442 |
].
|
|
|
7443 |
^ modifiedChannel
|
|
|
7444 |
!
|
|
|
7445 |
|
|
|
7446 |
preemptive
|
|
|
7447 |
"automatically generated by UIPainter ..."
|
|
|
7448 |
|
|
|
7449 |
"*** the code below creates a default model when invoked."
|
|
|
7450 |
"*** (which may not be the one you wanted)"
|
|
|
7451 |
"*** Please change as required and accept it in the browser."
|
|
|
7452 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
7453 |
|
|
|
7454 |
preemptive isNil ifTrue:[
|
|
|
7455 |
preemptive := true asValue.
|
|
|
7456 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
7457 |
"/ preemptive addDependent:self.
|
|
|
7458 |
"/ preemptive onChangeSend:#preemptiveChanged to:self.
|
|
|
7459 |
].
|
|
|
7460 |
^ preemptive.
|
|
|
7461 |
! !
|
|
|
7462 |
|
|
|
7463 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'change & update'!
|
|
|
7464 |
|
|
|
7465 |
update:something with:aParameter from:changedObject
|
|
|
7466 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
7467 |
|
|
|
7468 |
"stub code automatically generated - please change as required"
|
|
|
7469 |
|
|
|
7470 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
7471 |
"/ ^ self.
|
|
|
7472 |
"/ ].
|
|
|
7473 |
|
|
|
7474 |
super update:something with:aParameter from:changedObject
|
|
|
7475 |
! !
|
|
|
7476 |
|
|
|
7477 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'initialization & release'!
|
|
|
7478 |
|
|
|
7479 |
initialize
|
|
|
7480 |
|
|
|
7481 |
resources := self class classResources.
|
|
|
7482 |
self loadRequest.
|
|
|
7483 |
super initialize
|
|
|
7484 |
! !
|
|
|
7485 |
|
|
|
7486 |
!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
|
|
|
7487 |
|
|
|
7488 |
hasUnsavedChanges
|
|
|
7489 |
|
|
|
7490 |
^ (
|
|
|
7491 |
self preemptive value ~= Processor isTimeSlicing or:[
|
|
|
7492 |
self dynamicPrios value ~= Processor supportDynamicPriorities]
|
|
|
7493 |
)
|
|
|
7494 |
! !
|
|
|
7495 |
|
|
4312
|
7496 |
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
|
|
|
7497 |
|
|
|
7498 |
defaultIcon
|
|
|
7499 |
"This resource specification was automatically generated
|
|
|
7500 |
by the ImageEditor of ST/X."
|
|
|
7501 |
|
|
|
7502 |
"Do not manually edit this!! If it is corrupted,
|
|
|
7503 |
the ImageEditor may not be able to read the specification."
|
|
|
7504 |
|
|
|
7505 |
"
|
|
|
7506 |
self defaultIcon inspect
|
|
|
7507 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
7508 |
Icon flushCachedIcons
|
|
|
7509 |
"
|
|
|
7510 |
|
|
|
7511 |
<resource: #image>
|
|
|
7512 |
|
|
|
7513 |
^Icon
|
|
|
7514 |
constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
|
|
|
7515 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
7516 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
|
|
|
7517 |
@B (JB (JB (JB (JB (JB\''@@@@@@@(JA@ZFA YE@,KC@,KA0P''I1T@@@@@JB RH2D!!HRD HA(MCP\DI2\U@@@@@B (GRT#H2D"H2L^C0<HAB\''EP@@@@@(
|
|
|
7518 |
JA4%H2L!!H"L#G <OB@P''I1T@@@@@JB ZH2H"H"H)JP@@E!!XWJ"\U@@@@@B (C!!$"H"$)JR,)@@@@E2X''EP@@@@@(JA@WH"$+@B$,@B0)JP@&I1T@@@@@JB P
|
|
|
7519 |
E1 )KB,,J20+JR$@I"\U@@@@@B (A!!DXJR,,JP@+J @@@BX''EP@@@@@''I2\''JR,,JR0)@B,,JR$@I1T@@@@@I2\''I2$,J2$+JP@,J2$)@B\U@@@@@@@@EQTB
|
|
|
7520 |
JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
7521 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 60 78 83 61 77 82 63 79 84 63 81 86 66 83 87 66 84 89 66 85 91 67 86 92 68 86 91 69 87 92 69 88 94 70 90 95 71 91 96 71 92 98 72 93 99 73 94 100 74 92 97 74 95 101 75 93 98 75 96 102 76 76 76 76 97 103 77 98 104 77 99 106 79 101 108 80 103 109 81 104 110 82 105 111 83 106 112 83 107 114 86 110 117 87 111 118 88 113 121 89 114 122 90 116 123 91 117 124 92 118 125 126 126 126 127 127 127 139 139 139 131 129 0 131 129 131 255 255 0 255 255 255]; 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]
|
|
|
7522 |
! !
|
|
|
7523 |
|
|
4310
|
7524 |
!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
|
|
|
7525 |
|
|
|
7526 |
windowSpec
|
|
|
7527 |
"This resource specification was automatically generated
|
|
|
7528 |
by the UIPainter of ST/X."
|
|
|
7529 |
|
|
|
7530 |
"Do not manually edit this!! If it is corrupted,
|
|
|
7531 |
the UIPainter may not be able to read the specification."
|
|
|
7532 |
|
|
|
7533 |
"
|
|
|
7534 |
UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
|
|
|
7535 |
AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
|
|
|
7536 |
AbstractSettingsApplication::RDoItServerSettingsAppl open
|
|
|
7537 |
"
|
|
|
7538 |
|
|
|
7539 |
<resource: #canvas>
|
|
|
7540 |
|
|
|
7541 |
^
|
|
|
7542 |
#(#FullSpec
|
|
|
7543 |
#name: #windowSpec
|
|
|
7544 |
#window:
|
|
|
7545 |
#(#WindowSpec
|
|
|
7546 |
#label: 'RDoIt Server Settings'
|
|
|
7547 |
#name: 'RDoIt Server Settings'
|
|
|
7548 |
#min: #(#Point 10 10)
|
|
|
7549 |
#max: #(#Point 1024 768)
|
|
|
7550 |
#bounds: #(#Rectangle 12 22 612 572)
|
|
|
7551 |
)
|
|
|
7552 |
#component:
|
|
|
7553 |
#(#SpecCollection
|
|
|
7554 |
#collection: #(
|
|
|
7555 |
#(#VerticalPanelViewSpec
|
|
|
7556 |
#name: 'VerticalPanel1'
|
|
|
7557 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
7558 |
#horizontalLayout: #fit
|
|
|
7559 |
#verticalLayout: #center
|
|
|
7560 |
#horizontalSpace: 3
|
|
|
7561 |
#verticalSpace: 3
|
|
|
7562 |
#component:
|
|
|
7563 |
#(#SpecCollection
|
|
|
7564 |
#collection: #(
|
|
|
7565 |
#(#VerticalPanelViewSpec
|
|
|
7566 |
#name: 'VerticalPanel2'
|
|
|
7567 |
#horizontalLayout: #fit
|
|
|
7568 |
#verticalLayout: #center
|
|
|
7569 |
#horizontalSpace: 3
|
|
|
7570 |
#verticalSpace: 3
|
|
|
7571 |
#component:
|
|
|
7572 |
#(#SpecCollection
|
|
|
7573 |
#collection: #(
|
|
|
7574 |
#(#ViewSpec
|
|
|
7575 |
#name: 'Box1'
|
|
|
7576 |
#component:
|
|
|
7577 |
#(#SpecCollection
|
|
|
7578 |
#collection: #(
|
|
|
7579 |
#(#CheckBoxSpec
|
|
|
7580 |
#label: 'Remote doits enabled'
|
|
|
7581 |
#name: 'CheckBox1'
|
|
|
7582 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
7583 |
#enableChannel: #hasRDoitServer
|
|
|
7584 |
#model: #rDoitsEnabled
|
|
|
7585 |
#translateLabel: true
|
|
|
7586 |
)
|
|
|
7587 |
)
|
|
|
7588 |
|
|
|
7589 |
)
|
|
|
7590 |
#extent: #(#Point 600 25)
|
|
|
7591 |
)
|
|
|
7592 |
#(#ViewSpec
|
|
|
7593 |
#name: 'Box2'
|
|
|
7594 |
#component:
|
|
|
7595 |
#(#SpecCollection
|
|
|
7596 |
#collection: #(
|
|
|
7597 |
#(#LabelSpec
|
|
|
7598 |
#label: 'Port:'
|
|
|
7599 |
#name: 'Label2'
|
|
|
7600 |
#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
|
|
|
7601 |
#translateLabel: true
|
|
|
7602 |
#adjust: #right
|
|
|
7603 |
)
|
|
|
7604 |
#(#InputFieldSpec
|
|
|
7605 |
#name: 'EntryField1'
|
|
|
7606 |
#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
|
|
|
7607 |
#enableChannel: #rDoitsEnabled
|
|
|
7608 |
#model: #rDoitServerPort
|
|
|
7609 |
#type: #number
|
|
|
7610 |
#acceptOnReturn: true
|
|
|
7611 |
#acceptOnTab: true
|
|
|
7612 |
#acceptOnLostFocus: true
|
|
|
7613 |
#acceptOnPointerLeave: false
|
|
|
7614 |
)
|
|
|
7615 |
)
|
|
|
7616 |
|
|
|
7617 |
)
|
|
|
7618 |
#extent: #(#Point 600 25)
|
|
|
7619 |
)
|
|
|
7620 |
#(#ViewSpec
|
|
|
7621 |
#name: 'Box3'
|
|
|
7622 |
#component:
|
|
|
7623 |
#(#SpecCollection
|
|
|
7624 |
#collection: #(
|
|
|
7625 |
#(#CheckBoxSpec
|
|
|
7626 |
#label: 'Log errors'
|
|
|
7627 |
#name: 'CheckBox2'
|
|
|
7628 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
7629 |
#enableChannel: #rDoitsEnabled
|
|
|
7630 |
#model: #rDoitErrorLogging
|
|
|
7631 |
#translateLabel: true
|
|
|
7632 |
)
|
|
|
7633 |
)
|
|
|
7634 |
|
|
|
7635 |
)
|
|
|
7636 |
#extent: #(#Point 600 25)
|
|
|
7637 |
)
|
|
|
7638 |
#(#ViewSpec
|
|
|
7639 |
#name: 'Box4'
|
|
|
7640 |
#component:
|
|
|
7641 |
#(#SpecCollection
|
|
|
7642 |
#collection: #(
|
|
|
7643 |
#(#CheckBoxSpec
|
|
|
7644 |
#label: 'Log requests'
|
|
|
7645 |
#name: 'CheckBox3'
|
|
|
7646 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
7647 |
#enableChannel: #rDoitsEnabled
|
|
|
7648 |
#model: #rDoitLogging
|
|
|
7649 |
#translateLabel: true
|
|
|
7650 |
)
|
|
|
7651 |
)
|
|
|
7652 |
|
|
|
7653 |
)
|
|
|
7654 |
#extent: #(#Point 600 24)
|
|
|
7655 |
)
|
|
|
7656 |
#(#ViewSpec
|
|
|
7657 |
#name: 'Box5'
|
|
|
7658 |
#component:
|
|
|
7659 |
#(#SpecCollection
|
|
|
7660 |
#collection: #(
|
|
|
7661 |
#(#CheckBoxSpec
|
|
|
7662 |
#label: 'Debug errors'
|
|
|
7663 |
#name: 'CheckBox4'
|
|
|
7664 |
#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
|
|
|
7665 |
#enableChannel: #rDoitsEnabled
|
|
|
7666 |
#model: #rDoitErrorDebugging
|
|
|
7667 |
#translateLabel: true
|
|
|
7668 |
)
|
|
|
7669 |
)
|
|
|
7670 |
|
|
|
7671 |
)
|
|
|
7672 |
#extent: #(#Point 600 23)
|
|
|
7673 |
)
|
|
|
7674 |
)
|
|
|
7675 |
|
|
|
7676 |
)
|
|
|
7677 |
#extent: #(#Point 600 300)
|
|
|
7678 |
)
|
|
|
7679 |
)
|
|
|
7680 |
|
|
|
7681 |
)
|
|
|
7682 |
)
|
|
|
7683 |
)
|
|
|
7684 |
|
|
|
7685 |
)
|
|
|
7686 |
)
|
|
|
7687 |
! !
|
|
|
7688 |
|
|
|
7689 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
|
|
|
7690 |
|
|
|
7691 |
evaluateModified
|
|
|
7692 |
|
|
|
7693 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
7694 |
!
|
|
|
7695 |
|
|
|
7696 |
help
|
|
|
7697 |
|
|
|
7698 |
"/ self warn:'no help available here'.
|
|
|
7699 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
|
|
|
7700 |
!
|
|
|
7701 |
|
|
|
7702 |
loadRequest
|
|
|
7703 |
|
|
|
7704 |
(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
|
|
|
7705 |
self rDoitsEnabled value:RDoItServer serverRunning.
|
|
|
7706 |
self rDoitLogging value:RDoItServer isLogging.
|
|
|
7707 |
self rDoitErrorLogging value:RDoItServer isErrorLogging.
|
|
|
7708 |
self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
|
|
|
7709 |
self rDoitServerPort value:RDoItServer defaultPortNumber.
|
|
|
7710 |
] ifFalse:[
|
|
|
7711 |
self rDoitsEnabled value:false.
|
|
|
7712 |
self rDoitLogging value:false.
|
|
|
7713 |
self rDoitErrorLogging value:false.
|
|
|
7714 |
self rDoitErrorDebugging value:false.
|
|
|
7715 |
self rDoitServerPort value:nil.
|
|
|
7716 |
].
|
|
|
7717 |
self modifiedChannel value:false.
|
|
|
7718 |
!
|
|
|
7719 |
|
|
|
7720 |
saveSettings
|
|
|
7721 |
|
|
|
7722 |
|rDoits|
|
|
|
7723 |
|
|
|
7724 |
self hasUnsavedChanges ifTrue:[
|
|
|
7725 |
RDoItServer defaultPortNumber:self rDoitServerPort value.
|
|
|
7726 |
RDoItServer logging:self rDoitLogging value.
|
|
|
7727 |
RDoItServer errorLogging:self rDoitErrorLogging value.
|
|
|
7728 |
RDoItServer errorCatching:(self rDoitErrorDebugging value not).
|
|
|
7729 |
rDoits := self rDoitsEnabled value.
|
|
|
7730 |
rDoits ~~ RDoItServer serverRunning ifTrue:[
|
|
|
7731 |
rDoits ifFalse:[
|
|
|
7732 |
RDoItServer stop
|
|
|
7733 |
] ifTrue:[
|
|
|
7734 |
RDoItServer start.
|
|
|
7735 |
"/ must wait a bit; give it a chance to
|
|
|
7736 |
"/ really start (before checking)
|
|
|
7737 |
Delay waitForSeconds:0.5.
|
|
|
7738 |
RDoItServer serverRunning ifFalse:[
|
|
|
7739 |
self warn:'RDoit startup failed (see stderr).'
|
|
|
7740 |
]
|
|
|
7741 |
]
|
|
|
7742 |
].
|
|
|
7743 |
self modifiedChannel value:false.
|
|
|
7744 |
].
|
|
|
7745 |
! !
|
|
|
7746 |
|
|
|
7747 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
|
|
|
7748 |
|
|
|
7749 |
modifiedChannel
|
|
|
7750 |
|
|
|
7751 |
modifiedChannel isNil ifTrue:[
|
|
|
7752 |
modifiedChannel := false asValue.
|
|
|
7753 |
].
|
|
|
7754 |
^ modifiedChannel
|
|
|
7755 |
!
|
|
|
7756 |
|
|
|
7757 |
rDoitErrorDebugging
|
|
|
7758 |
|
|
|
7759 |
rDoitErrorDebugging isNil ifTrue:[
|
|
|
7760 |
rDoitErrorDebugging := true asValue.
|
|
|
7761 |
rDoitErrorDebugging onChangeSend:#evaluateModified to:self
|
|
|
7762 |
].
|
|
|
7763 |
^ rDoitErrorDebugging.
|
|
|
7764 |
!
|
|
|
7765 |
|
|
|
7766 |
rDoitErrorLogging
|
|
|
7767 |
|
|
|
7768 |
rDoitErrorLogging isNil ifTrue:[
|
|
|
7769 |
rDoitErrorLogging := true asValue.
|
|
|
7770 |
rDoitErrorLogging onChangeSend:#evaluateModified to:self
|
|
|
7771 |
].
|
|
|
7772 |
^ rDoitErrorLogging.
|
|
|
7773 |
!
|
|
|
7774 |
|
|
|
7775 |
rDoitLogging
|
|
|
7776 |
|
|
|
7777 |
rDoitLogging isNil ifTrue:[
|
|
|
7778 |
rDoitLogging := true asValue.
|
|
|
7779 |
rDoitLogging onChangeSend:#evaluateModified to:self
|
|
|
7780 |
].
|
|
|
7781 |
^ rDoitLogging.
|
|
|
7782 |
!
|
|
|
7783 |
|
|
|
7784 |
rDoitServerPort
|
|
|
7785 |
|
|
|
7786 |
rDoitServerPort isNil ifTrue:[
|
|
|
7787 |
rDoitServerPort := ValueHolder new.
|
|
|
7788 |
rDoitServerPort onChangeSend:#evaluateModified to:self
|
|
|
7789 |
].
|
|
|
7790 |
^ rDoitServerPort.
|
|
|
7791 |
!
|
|
|
7792 |
|
|
|
7793 |
rDoitsEnabled
|
|
|
7794 |
|
|
|
7795 |
rDoitsEnabled isNil ifTrue:[
|
|
|
7796 |
rDoitsEnabled := true asValue.
|
|
|
7797 |
rDoitsEnabled onChangeSend:#evaluateModified to:self
|
|
|
7798 |
].
|
|
|
7799 |
^ rDoitsEnabled.
|
|
|
7800 |
! !
|
|
|
7801 |
|
|
|
7802 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
|
|
|
7803 |
|
|
|
7804 |
rDoitsEnabledChanged
|
|
|
7805 |
|
|
|
7806 |
self rDoitsEnabled value ifTrue:[
|
|
|
7807 |
RDoItServer isLoaded ifFalse:[RDoItServer autoload].
|
|
|
7808 |
rDoitServerPort value isNil ifTrue:[
|
|
|
7809 |
rDoitServerPort value:(RDoItServer defaultPortNumber).
|
|
|
7810 |
]
|
|
|
7811 |
].
|
|
|
7812 |
!
|
|
|
7813 |
|
|
|
7814 |
update:something with:aParameter from:changedObject
|
|
|
7815 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
7816 |
|
|
|
7817 |
"stub code automatically generated - please change as required"
|
|
|
7818 |
|
|
|
7819 |
changedObject == self rDoitsEnabled ifTrue:[
|
|
|
7820 |
self rDoitsEnabledChanged.
|
|
|
7821 |
^ self.
|
|
|
7822 |
].
|
|
|
7823 |
|
|
|
7824 |
super update:something with:aParameter from:changedObject
|
|
|
7825 |
! !
|
|
|
7826 |
|
|
|
7827 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
|
|
|
7828 |
|
|
|
7829 |
initialize
|
|
|
7830 |
|
|
4387
|
7831 |
resources := self class classResources.
|
|
4310
|
7832 |
self loadRequest.
|
|
|
7833 |
super initialize
|
|
|
7834 |
!
|
|
|
7835 |
|
|
|
7836 |
postOpen
|
|
|
7837 |
!
|
|
|
7838 |
|
|
|
7839 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
7840 |
|
|
|
7841 |
self postOpen.
|
|
|
7842 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
7843 |
!
|
|
|
7844 |
|
|
|
7845 |
postOpenWith:aBuilder
|
|
|
7846 |
|
|
|
7847 |
self postOpen.
|
|
|
7848 |
^ super postOpenWith:aBuilder
|
|
|
7849 |
! !
|
|
|
7850 |
|
|
|
7851 |
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
|
|
|
7852 |
|
|
|
7853 |
hasRDoitServer
|
|
|
7854 |
|
|
|
7855 |
^ RDoItServer notNil and:[RDoItServer isLoaded]
|
|
|
7856 |
!
|
|
|
7857 |
|
|
|
7858 |
hasUnsavedChanges
|
|
|
7859 |
|
|
|
7860 |
(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
|
|
|
7861 |
^ (
|
|
|
7862 |
self rDoitsEnabled value ~= RDoItServer serverRunning or:[
|
|
|
7863 |
RDoItServer serverRunning and:[
|
|
|
7864 |
(self rDoitLogging value ~= RDoItServer isLogging or:[
|
|
|
7865 |
self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
|
|
|
7866 |
self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
|
|
|
7867 |
self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
|
|
|
7868 |
)
|
|
|
7869 |
].
|
|
|
7870 |
^ false
|
|
|
7871 |
! !
|
|
|
7872 |
|
|
4387
|
7873 |
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
|
|
|
7874 |
|
|
|
7875 |
stcCompilationDemoStrings
|
|
|
7876 |
|
|
|
7877 |
^ #('never')
|
|
|
7878 |
!
|
|
|
7879 |
|
|
|
7880 |
stcCompilationFullVersionStrings
|
|
|
7881 |
|
|
|
7882 |
^ #('always' 'primitive code only' 'never')
|
|
|
7883 |
!
|
|
|
7884 |
|
|
|
7885 |
stcCompilationOptions
|
|
|
7886 |
|
|
|
7887 |
^ #( always default never)
|
|
|
7888 |
! !
|
|
|
7889 |
|
|
|
7890 |
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
|
|
|
7891 |
|
|
|
7892 |
defaultIcon
|
|
|
7893 |
"This resource specification was automatically generated
|
|
|
7894 |
by the ImageEditor of ST/X."
|
|
|
7895 |
|
|
|
7896 |
"Do not manually edit this!! If it is corrupted,
|
|
|
7897 |
the ImageEditor may not be able to read the specification."
|
|
|
7898 |
|
|
|
7899 |
"
|
|
|
7900 |
self defaultIcon inspect
|
|
|
7901 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
7902 |
Icon flushCachedIcons
|
|
|
7903 |
"
|
|
|
7904 |
|
|
|
7905 |
<resource: #image>
|
|
|
7906 |
|
|
|
7907 |
^Icon
|
|
|
7908 |
constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
|
|
|
7909 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
7910 |
@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
|
|
|
7911 |
@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
|
|
4398
|
7912 |
@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PDA@PD@@@H@@@DA@@@@@P@@@@@@@P@@@@DA@@@B@@@A@@DA@PDA@P@A@P@A@PD@@P@@@ @@@P@A
|
|
|
7913 |
@PDA@PD@@PD@@PDA@PD@@@H@@@DA@@@A@PDA@@DA@@DA@PDA@@@B@@@A@PDA@@DA@P@A@P@A@PDA@P@@@ @@@PDA@P@A@PD@@PD@@PDA@@D@@@H@@@D@@@@A
|
|
|
7914 |
@PDA@@DA@P@@@@DA@@@B@@@A@PDA@PDA@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
4387
|
7915 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; 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]
|
|
|
7916 |
! !
|
|
|
7917 |
|
|
|
7918 |
!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
|
|
|
7919 |
|
|
|
7920 |
windowSpec
|
|
|
7921 |
"This resource specification was automatically generated
|
|
|
7922 |
by the UIPainter of ST/X."
|
|
|
7923 |
|
|
|
7924 |
"Do not manually edit this!! If it is corrupted,
|
|
|
7925 |
the UIPainter may not be able to read the specification."
|
|
|
7926 |
|
|
|
7927 |
"
|
|
|
7928 |
UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
|
|
|
7929 |
AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
|
|
|
7930 |
AbstractSettingsApplication::STCCompilerSettingsAppl open
|
|
|
7931 |
"
|
|
|
7932 |
|
|
|
7933 |
<resource: #canvas>
|
|
|
7934 |
|
|
|
7935 |
^
|
|
|
7936 |
#(#FullSpec
|
|
|
7937 |
#name: #windowSpec
|
|
|
7938 |
#window:
|
|
|
7939 |
#(#WindowSpec
|
|
4405
|
7940 |
#label: 'STC Compiler Settings'
|
|
|
7941 |
#name: 'STC Compiler Settings'
|
|
4387
|
7942 |
#min: #(#Point 10 10)
|
|
|
7943 |
#max: #(#Point 1024 768)
|
|
|
7944 |
#bounds: #(#Rectangle 16 42 616 656)
|
|
|
7945 |
)
|
|
|
7946 |
#component:
|
|
|
7947 |
#(#SpecCollection
|
|
|
7948 |
#collection: #(
|
|
|
7949 |
#(#VerticalPanelViewSpec
|
|
|
7950 |
#name: 'VerticalPanel2'
|
|
|
7951 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
7952 |
#horizontalLayout: #fit
|
|
|
7953 |
#verticalLayout: #center
|
|
|
7954 |
#horizontalSpace: 3
|
|
|
7955 |
#verticalSpace: 3
|
|
|
7956 |
#component:
|
|
|
7957 |
#(#SpecCollection
|
|
|
7958 |
#collection: #(
|
|
|
7959 |
#(#ViewSpec
|
|
|
7960 |
#name: 'Box11'
|
|
|
7961 |
#component:
|
|
|
7962 |
#(#SpecCollection
|
|
|
7963 |
#collection: #(
|
|
|
7964 |
#(#LabelSpec
|
|
|
7965 |
#label: 'Stc Compilation to Machine Code'
|
|
|
7966 |
#name: 'Label11'
|
|
|
7967 |
#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
|
|
|
7968 |
#translateLabel: true
|
|
|
7969 |
#adjust: #right
|
|
|
7970 |
)
|
|
|
7971 |
#(#PopUpListSpec
|
|
|
7972 |
#label: 'PopUp List'
|
|
|
7973 |
#name: 'StcCompilation'
|
|
|
7974 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
7975 |
#tabable: true
|
|
|
7976 |
#model: #stcCompilationSelection
|
|
|
7977 |
#enableChannel: #canLoadBinaries
|
|
|
7978 |
#menu: #stcCompilationList
|
|
|
7979 |
#useIndex: true
|
|
|
7980 |
)
|
|
|
7981 |
)
|
|
|
7982 |
|
|
|
7983 |
)
|
|
|
7984 |
#extent: #(#Point 600 29)
|
|
|
7985 |
)
|
|
|
7986 |
#(#ViewSpec
|
|
|
7987 |
#name: 'Box1'
|
|
|
7988 |
#component:
|
|
|
7989 |
#(#SpecCollection
|
|
|
7990 |
#collection: #(
|
|
|
7991 |
#(#LabelSpec
|
|
|
7992 |
#label: 'Stc Command:'
|
|
|
7993 |
#name: 'Label1'
|
|
|
7994 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
7995 |
#translateLabel: true
|
|
|
7996 |
#adjust: #right
|
|
|
7997 |
)
|
|
|
7998 |
#(#InputFieldSpec
|
|
|
7999 |
#name: 'EntryField1'
|
|
|
8000 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8001 |
#enableChannel: #canLoadBinaries
|
|
|
8002 |
#model: #stc
|
|
|
8003 |
#acceptOnReturn: true
|
|
|
8004 |
#acceptOnTab: true
|
|
|
8005 |
#acceptOnLostFocus: true
|
|
|
8006 |
#acceptOnPointerLeave: false
|
|
|
8007 |
)
|
|
|
8008 |
)
|
|
|
8009 |
|
|
|
8010 |
)
|
|
|
8011 |
#extent: #(#Point 600 35)
|
|
|
8012 |
)
|
|
|
8013 |
#(#ViewSpec
|
|
|
8014 |
#name: 'Box2'
|
|
|
8015 |
#component:
|
|
|
8016 |
#(#SpecCollection
|
|
|
8017 |
#collection: #(
|
|
|
8018 |
#(#LabelSpec
|
|
|
8019 |
#label: 'STC Options:'
|
|
|
8020 |
#name: 'Label2'
|
|
|
8021 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8022 |
#translateLabel: true
|
|
|
8023 |
#adjust: #right
|
|
|
8024 |
)
|
|
|
8025 |
#(#InputFieldSpec
|
|
|
8026 |
#name: 'EntryField2'
|
|
|
8027 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8028 |
#enableChannel: #canLoadBinaries
|
|
|
8029 |
#model: #stcOptions
|
|
|
8030 |
#acceptOnReturn: true
|
|
|
8031 |
#acceptOnTab: true
|
|
|
8032 |
#acceptOnLostFocus: true
|
|
|
8033 |
#acceptOnPointerLeave: false
|
|
|
8034 |
)
|
|
|
8035 |
)
|
|
|
8036 |
|
|
|
8037 |
)
|
|
|
8038 |
#extent: #(#Point 600 35)
|
|
|
8039 |
)
|
|
|
8040 |
#(#ViewSpec
|
|
|
8041 |
#name: 'Box3'
|
|
|
8042 |
#component:
|
|
|
8043 |
#(#SpecCollection
|
|
|
8044 |
#collection: #(
|
|
|
8045 |
#(#LabelSpec
|
|
|
8046 |
#label: 'CC Command:'
|
|
|
8047 |
#name: 'Label3'
|
|
|
8048 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8049 |
#translateLabel: true
|
|
|
8050 |
#adjust: #right
|
|
|
8051 |
)
|
|
|
8052 |
#(#InputFieldSpec
|
|
|
8053 |
#name: 'EntryField3'
|
|
|
8054 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8055 |
#enableChannel: #canLoadBinaries
|
|
|
8056 |
#model: #cc
|
|
|
8057 |
#acceptOnReturn: true
|
|
|
8058 |
#acceptOnTab: true
|
|
|
8059 |
#acceptOnLostFocus: true
|
|
|
8060 |
#acceptOnPointerLeave: false
|
|
|
8061 |
)
|
|
|
8062 |
)
|
|
|
8063 |
|
|
|
8064 |
)
|
|
|
8065 |
#extent: #(#Point 600 35)
|
|
|
8066 |
)
|
|
|
8067 |
#(#ViewSpec
|
|
|
8068 |
#name: 'Box4'
|
|
|
8069 |
#component:
|
|
|
8070 |
#(#SpecCollection
|
|
|
8071 |
#collection: #(
|
|
|
8072 |
#(#LabelSpec
|
|
|
8073 |
#label: 'CC Options:'
|
|
|
8074 |
#name: 'Label4'
|
|
|
8075 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8076 |
#translateLabel: true
|
|
|
8077 |
#adjust: #right
|
|
|
8078 |
)
|
|
|
8079 |
#(#InputFieldSpec
|
|
|
8080 |
#name: 'EntryField4'
|
|
|
8081 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8082 |
#enableChannel: #canLoadBinaries
|
|
|
8083 |
#model: #ccOptions
|
|
|
8084 |
#acceptOnReturn: true
|
|
|
8085 |
#acceptOnTab: true
|
|
|
8086 |
#acceptOnLostFocus: true
|
|
|
8087 |
#acceptOnPointerLeave: false
|
|
|
8088 |
)
|
|
|
8089 |
)
|
|
|
8090 |
|
|
|
8091 |
)
|
|
|
8092 |
#extent: #(#Point 600 35)
|
|
|
8093 |
)
|
|
|
8094 |
#(#ViewSpec
|
|
|
8095 |
#name: 'Box5'
|
|
|
8096 |
#component:
|
|
|
8097 |
#(#SpecCollection
|
|
|
8098 |
#collection: #(
|
|
|
8099 |
#(#LabelSpec
|
|
|
8100 |
#label: 'Include Directories:'
|
|
|
8101 |
#name: 'Label5'
|
|
|
8102 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8103 |
#translateLabel: true
|
|
|
8104 |
#adjust: #right
|
|
|
8105 |
)
|
|
|
8106 |
#(#InputFieldSpec
|
|
|
8107 |
#name: 'EntryField5'
|
|
|
8108 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8109 |
#enableChannel: #canLoadBinaries
|
|
|
8110 |
#model: #stcIncludes
|
|
|
8111 |
#acceptOnReturn: true
|
|
|
8112 |
#acceptOnTab: true
|
|
|
8113 |
#acceptOnLostFocus: true
|
|
|
8114 |
#acceptOnPointerLeave: false
|
|
|
8115 |
)
|
|
|
8116 |
)
|
|
|
8117 |
|
|
|
8118 |
)
|
|
|
8119 |
#extent: #(#Point 600 35)
|
|
|
8120 |
)
|
|
|
8121 |
#(#ViewSpec
|
|
|
8122 |
#name: 'Box6'
|
|
|
8123 |
#component:
|
|
|
8124 |
#(#SpecCollection
|
|
|
8125 |
#collection: #(
|
|
|
8126 |
#(#LabelSpec
|
|
|
8127 |
#label: 'Defines:'
|
|
|
8128 |
#name: 'Label6'
|
|
|
8129 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8130 |
#translateLabel: true
|
|
|
8131 |
#adjust: #right
|
|
|
8132 |
)
|
|
|
8133 |
#(#InputFieldSpec
|
|
|
8134 |
#name: 'EntryField6'
|
|
|
8135 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8136 |
#enableChannel: #canLoadBinaries
|
|
|
8137 |
#model: #stcDefines
|
|
|
8138 |
#acceptOnReturn: true
|
|
|
8139 |
#acceptOnTab: true
|
|
|
8140 |
#acceptOnLostFocus: true
|
|
|
8141 |
#acceptOnPointerLeave: false
|
|
|
8142 |
)
|
|
|
8143 |
)
|
|
|
8144 |
|
|
|
8145 |
)
|
|
|
8146 |
#extent: #(#Point 600 34)
|
|
|
8147 |
)
|
|
|
8148 |
#(#ViewSpec
|
|
|
8149 |
#name: 'Box7'
|
|
|
8150 |
#component:
|
|
|
8151 |
#(#SpecCollection
|
|
|
8152 |
#collection: #(
|
|
|
8153 |
#(#LabelSpec
|
|
|
8154 |
#label: 'Link Command:'
|
|
|
8155 |
#name: 'Label7'
|
|
|
8156 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8157 |
#translateLabel: true
|
|
|
8158 |
#adjust: #right
|
|
|
8159 |
)
|
|
|
8160 |
#(#InputFieldSpec
|
|
|
8161 |
#name: 'EntryField7'
|
|
|
8162 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8163 |
#enableChannel: #canLoadBinaries
|
|
|
8164 |
#model: #linkCommand
|
|
|
8165 |
#acceptOnReturn: true
|
|
|
8166 |
#acceptOnTab: true
|
|
|
8167 |
#acceptOnLostFocus: true
|
|
|
8168 |
#acceptOnPointerLeave: false
|
|
|
8169 |
)
|
|
|
8170 |
)
|
|
|
8171 |
|
|
|
8172 |
)
|
|
|
8173 |
#extent: #(#Point 600 33)
|
|
|
8174 |
)
|
|
|
8175 |
#(#ViewSpec
|
|
|
8176 |
#name: 'Box8'
|
|
|
8177 |
#component:
|
|
|
8178 |
#(#SpecCollection
|
|
|
8179 |
#collection: #(
|
|
|
8180 |
#(#LabelSpec
|
|
|
8181 |
#label: 'Link Arguments:'
|
|
|
8182 |
#name: 'Label8'
|
|
|
8183 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8184 |
#translateLabel: true
|
|
|
8185 |
#adjust: #right
|
|
|
8186 |
)
|
|
|
8187 |
#(#InputFieldSpec
|
|
|
8188 |
#name: 'EntryField8'
|
|
|
8189 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8190 |
#enableChannel: #canLoadBinaries
|
|
|
8191 |
#model: #linkArgs
|
|
|
8192 |
#acceptOnReturn: true
|
|
|
8193 |
#acceptOnTab: true
|
|
|
8194 |
#acceptOnLostFocus: true
|
|
|
8195 |
#acceptOnPointerLeave: false
|
|
|
8196 |
)
|
|
|
8197 |
)
|
|
|
8198 |
|
|
|
8199 |
)
|
|
|
8200 |
#extent: #(#Point 600 32)
|
|
|
8201 |
)
|
|
|
8202 |
#(#ViewSpec
|
|
|
8203 |
#name: 'Box9'
|
|
|
8204 |
#component:
|
|
|
8205 |
#(#SpecCollection
|
|
|
8206 |
#collection: #(
|
|
|
8207 |
#(#LabelSpec
|
|
|
8208 |
#label: 'C-Libraries:'
|
|
|
8209 |
#name: 'Label9'
|
|
|
8210 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8211 |
#translateLabel: true
|
|
|
8212 |
#adjust: #right
|
|
|
8213 |
)
|
|
|
8214 |
#(#InputFieldSpec
|
|
|
8215 |
#name: 'EntryField9'
|
|
|
8216 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8217 |
#enableChannel: #canLoadBinaries
|
|
|
8218 |
#model: #stcLibraries
|
|
|
8219 |
#acceptOnReturn: true
|
|
|
8220 |
#acceptOnTab: true
|
|
|
8221 |
#acceptOnLostFocus: true
|
|
|
8222 |
#acceptOnPointerLeave: false
|
|
|
8223 |
)
|
|
|
8224 |
)
|
|
|
8225 |
|
|
|
8226 |
)
|
|
|
8227 |
#extent: #(#Point 600 31)
|
|
|
8228 |
)
|
|
|
8229 |
#(#ViewSpec
|
|
|
8230 |
#name: 'Box10'
|
|
|
8231 |
#component:
|
|
|
8232 |
#(#SpecCollection
|
|
|
8233 |
#collection: #(
|
|
|
8234 |
#(#LabelSpec
|
|
|
8235 |
#label: 'STC Library Path:'
|
|
|
8236 |
#name: 'Label10'
|
|
|
8237 |
#layout: #(#LayoutFrame 5 0 0 0 200 0 22 0)
|
|
|
8238 |
#translateLabel: true
|
|
|
8239 |
#adjust: #right
|
|
|
8240 |
)
|
|
|
8241 |
#(#InputFieldSpec
|
|
|
8242 |
#name: 'EntryField10'
|
|
|
8243 |
#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
|
|
|
8244 |
#enableChannel: #enableStcLibraryPath
|
|
|
8245 |
#model: #stcLibraryPath
|
|
|
8246 |
#acceptOnReturn: true
|
|
|
8247 |
#acceptOnTab: true
|
|
|
8248 |
#acceptOnLostFocus: true
|
|
|
8249 |
#acceptOnPointerLeave: false
|
|
|
8250 |
)
|
|
|
8251 |
)
|
|
|
8252 |
|
|
|
8253 |
)
|
|
|
8254 |
#extent: #(#Point 600 30)
|
|
|
8255 |
)
|
|
|
8256 |
)
|
|
|
8257 |
|
|
|
8258 |
)
|
|
|
8259 |
)
|
|
|
8260 |
)
|
|
|
8261 |
|
|
|
8262 |
)
|
|
|
8263 |
)
|
|
|
8264 |
! !
|
|
|
8265 |
|
|
|
8266 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
|
|
|
8267 |
|
|
|
8268 |
evaluateModified
|
|
|
8269 |
|
|
|
8270 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
8271 |
!
|
|
|
8272 |
|
|
|
8273 |
help
|
|
|
8274 |
|
|
|
8275 |
"/ self warn:'no help available here'.
|
|
|
8276 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
|
|
|
8277 |
!
|
|
|
8278 |
|
|
|
8279 |
loadRequest
|
|
|
8280 |
|
|
|
8281 |
self canLoadBinaries value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
|
|
|
8282 |
self stcIncludes value:Compiler stcCompilationIncludes.
|
|
|
8283 |
self stcDefines value:Compiler stcCompilationDefines.
|
|
|
8284 |
self stcOptions value:Compiler stcCompilationOptions.
|
|
|
8285 |
self ccOptions value:Compiler ccCompilationOptions.
|
|
|
8286 |
|
|
|
8287 |
self cc value:Compiler ccPath.
|
|
|
8288 |
self stc value:Compiler stcPath.
|
|
|
8289 |
self linkCommand value:ObjectFileLoader linkCommand.
|
|
|
8290 |
self linkArgs value:ObjectFileLoader linkArgs.
|
|
|
8291 |
ObjectFileLoader notNil ifTrue:[
|
|
|
8292 |
| t |
|
|
|
8293 |
(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
|
|
|
8294 |
self stcLibraries value:(String fromStringCollection:t separatedBy:' ').
|
|
|
8295 |
].
|
|
|
8296 |
(t := ObjectFileLoader libPath) notNil ifTrue:[
|
|
|
8297 |
self stcLibraryPath value:t.
|
|
|
8298 |
]
|
|
|
8299 |
].
|
|
|
8300 |
self thisIsADemoVersion ifTrue:[
|
|
|
8301 |
self stcCompilationSelection value:(self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
|
|
|
8302 |
] ifFalse:[
|
|
|
8303 |
self stcCompilationSelection value:2.
|
|
|
8304 |
].
|
|
|
8305 |
|
|
|
8306 |
|
|
|
8307 |
self modifiedChannel value:false.
|
|
|
8308 |
!
|
|
|
8309 |
|
|
|
8310 |
saveSettings
|
|
|
8311 |
|
|
|
8312 |
self hasUnsavedChanges ifTrue:[
|
|
|
8313 |
Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
|
|
|
8314 |
Compiler stcCompilationIncludes:self stcIncludes value.
|
|
|
8315 |
Compiler stcCompilationDefines:self stcDefines value.
|
|
|
8316 |
Compiler stcCompilationOptions:self stcOptions value.
|
|
|
8317 |
Compiler ccCompilationOptions:self ccOptions value.
|
|
|
8318 |
Compiler ccPath:self cc value.
|
|
|
8319 |
self stc value ~= Compiler stcPath ifTrue:[
|
|
|
8320 |
Compiler stcPath:self stc value
|
|
|
8321 |
].
|
|
|
8322 |
ObjectFileLoader linkCommand:self linkCommand value.
|
|
|
8323 |
ObjectFileLoader linkArgs:self linkArgs value.
|
|
|
8324 |
ObjectFileLoader notNil ifTrue:[
|
|
|
8325 |
self stcLibraries value notNil ifTrue:[
|
|
|
8326 |
ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
|
|
|
8327 |
].
|
|
|
8328 |
stcLibraryPath notNil ifTrue:[
|
|
|
8329 |
ObjectFileLoader libPath:(self stcLibraryPath value).
|
|
|
8330 |
]
|
|
|
8331 |
].
|
|
|
8332 |
self modifiedChannel value:false.
|
|
|
8333 |
].
|
|
|
8334 |
! !
|
|
|
8335 |
|
|
|
8336 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
|
|
|
8337 |
|
|
|
8338 |
canLoadBinaries
|
|
|
8339 |
|
|
|
8340 |
canLoadBinaries isNil ifTrue:[
|
|
|
8341 |
canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
|
|
|
8342 |
].
|
|
|
8343 |
^ canLoadBinaries.
|
|
|
8344 |
!
|
|
|
8345 |
|
|
|
8346 |
cc
|
|
|
8347 |
|
|
|
8348 |
cc isNil ifTrue:[
|
|
|
8349 |
cc := ValueHolder new.
|
|
|
8350 |
cc onChangeSend:#evaluateModified to:self.
|
|
|
8351 |
].
|
|
|
8352 |
^ cc.
|
|
|
8353 |
!
|
|
|
8354 |
|
|
|
8355 |
ccOptions
|
|
|
8356 |
|
|
|
8357 |
ccOptions isNil ifTrue:[
|
|
|
8358 |
ccOptions := ValueHolder new.
|
|
|
8359 |
ccOptions onChangeSend:#evaluateModified to:self.
|
|
|
8360 |
].
|
|
|
8361 |
^ ccOptions.
|
|
|
8362 |
!
|
|
|
8363 |
|
|
|
8364 |
enableStcLibraryPath
|
|
|
8365 |
|
|
|
8366 |
^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
|
|
|
8367 |
!
|
|
|
8368 |
|
|
|
8369 |
linkArgs
|
|
|
8370 |
|
|
|
8371 |
linkArgs isNil ifTrue:[
|
|
|
8372 |
linkArgs := ValueHolder new.
|
|
|
8373 |
linkArgs onChangeSend:#evaluateModified to:self.
|
|
|
8374 |
].
|
|
|
8375 |
^ linkArgs.
|
|
|
8376 |
!
|
|
|
8377 |
|
|
|
8378 |
linkCommand
|
|
|
8379 |
|
|
|
8380 |
linkCommand isNil ifTrue:[
|
|
|
8381 |
linkCommand := ValueHolder new.
|
|
|
8382 |
linkCommand onChangeSend:#evaluateModified to:self.
|
|
|
8383 |
].
|
|
|
8384 |
^ linkCommand.
|
|
|
8385 |
!
|
|
|
8386 |
|
|
|
8387 |
modifiedChannel
|
|
|
8388 |
|
|
|
8389 |
modifiedChannel isNil ifTrue:[
|
|
|
8390 |
modifiedChannel := false asValue.
|
|
|
8391 |
].
|
|
|
8392 |
^ modifiedChannel
|
|
|
8393 |
!
|
|
|
8394 |
|
|
|
8395 |
stc
|
|
|
8396 |
|
|
|
8397 |
stc isNil ifTrue:[
|
|
|
8398 |
stc := ValueHolder new.
|
|
|
8399 |
stc onChangeSend:#evaluateModified to:self.
|
|
|
8400 |
].
|
|
|
8401 |
^ stc.
|
|
|
8402 |
!
|
|
|
8403 |
|
|
|
8404 |
stcCompilationList
|
|
|
8405 |
|
|
|
8406 |
stcCompilationList isNil ifTrue:[
|
|
|
8407 |
self thisIsADemoVersion ifTrue:[
|
|
|
8408 |
stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
|
|
|
8409 |
] ifFalse:[
|
|
|
8410 |
stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
|
|
|
8411 |
]
|
|
|
8412 |
].
|
|
|
8413 |
^ stcCompilationList.
|
|
|
8414 |
!
|
|
|
8415 |
|
|
|
8416 |
stcCompilationSelection
|
|
|
8417 |
|
|
|
8418 |
stcCompilationSelection isNil ifTrue:[
|
|
|
8419 |
self thisIsADemoVersion ifTrue:[
|
|
|
8420 |
stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
|
|
|
8421 |
] ifFalse:[
|
|
|
8422 |
stcCompilationSelection := 2 asValue.
|
|
|
8423 |
].
|
|
|
8424 |
stcCompilationSelection onChangeSend:#evaluateModified to:self.
|
|
|
8425 |
].
|
|
|
8426 |
^ stcCompilationSelection.
|
|
|
8427 |
!
|
|
|
8428 |
|
|
|
8429 |
stcDefines
|
|
|
8430 |
|
|
|
8431 |
stcDefines isNil ifTrue:[
|
|
|
8432 |
stcDefines := ValueHolder new.
|
|
|
8433 |
stcDefines onChangeSend:#evaluateModified to:self.
|
|
|
8434 |
].
|
|
|
8435 |
^ stcDefines.
|
|
|
8436 |
!
|
|
|
8437 |
|
|
|
8438 |
stcIncludes
|
|
|
8439 |
|
|
|
8440 |
stcIncludes isNil ifTrue:[
|
|
|
8441 |
stcIncludes := ValueHolder new.
|
|
|
8442 |
stcIncludes onChangeSend:#evaluateModified to:self.
|
|
|
8443 |
].
|
|
|
8444 |
^ stcIncludes.
|
|
|
8445 |
!
|
|
|
8446 |
|
|
|
8447 |
stcLibraries
|
|
|
8448 |
|
|
|
8449 |
stcLibraries isNil ifTrue:[
|
|
|
8450 |
stcLibraries := ValueHolder new.
|
|
|
8451 |
stcLibraries onChangeSend:#evaluateModified to:self.
|
|
|
8452 |
].
|
|
|
8453 |
^ stcLibraries.
|
|
|
8454 |
!
|
|
|
8455 |
|
|
|
8456 |
stcLibraryPath
|
|
|
8457 |
|
|
|
8458 |
stcLibraryPath isNil ifTrue:[
|
|
|
8459 |
stcLibraryPath := ValueHolder new.
|
|
|
8460 |
stcLibraryPath onChangeSend:#evaluateModified to:self.
|
|
|
8461 |
].
|
|
|
8462 |
^ stcLibraryPath.
|
|
|
8463 |
!
|
|
|
8464 |
|
|
|
8465 |
stcOptions
|
|
|
8466 |
|
|
|
8467 |
stcOptions isNil ifTrue:[
|
|
|
8468 |
stcOptions := ValueHolder new.
|
|
|
8469 |
stcOptions onChangeSend:#evaluateModified to:self.
|
|
|
8470 |
].
|
|
|
8471 |
^ stcOptions.
|
|
|
8472 |
! !
|
|
|
8473 |
|
|
|
8474 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'change & update'!
|
|
|
8475 |
|
|
|
8476 |
update:something with:aParameter from:changedObject
|
|
|
8477 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
8478 |
|
|
|
8479 |
"stub code automatically generated - please change as required"
|
|
|
8480 |
|
|
|
8481 |
"/ changedObject == self allOfThem ifTrue:[
|
|
|
8482 |
"/ ^ self.
|
|
|
8483 |
"/ ].
|
|
|
8484 |
|
|
|
8485 |
super update:something with:aParameter from:changedObject
|
|
|
8486 |
! !
|
|
|
8487 |
|
|
|
8488 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'initialization & release'!
|
|
|
8489 |
|
|
|
8490 |
initialize
|
|
|
8491 |
|
|
|
8492 |
resources := self class classResources.
|
|
|
8493 |
self loadRequest.
|
|
|
8494 |
super initialize
|
|
|
8495 |
! !
|
|
|
8496 |
|
|
|
8497 |
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
|
|
|
8498 |
|
|
|
8499 |
hasUnsavedChanges
|
|
|
8500 |
|
|
|
8501 |
| searchedLibs |
|
|
|
8502 |
searchedLibs := ObjectFileLoader searchedLibraries.
|
|
|
8503 |
^ (
|
|
|
8504 |
((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
|
|
|
8505 |
((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
|
|
|
8506 |
((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
|
|
|
8507 |
((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
|
|
|
8508 |
((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
|
|
|
8509 |
((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
|
|
|
8510 |
((Compiler ccPath) ~= self cc value) or:[
|
|
|
8511 |
((Compiler stcPath) ~= self stc value) or:[
|
|
|
8512 |
((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
|
|
|
8513 |
((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
|
|
|
8514 |
ObjectFileLoader notNil and:[
|
|
|
8515 |
((searchedLibs notNil and:[
|
|
|
8516 |
(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
|
|
|
8517 |
]) or:[
|
|
|
8518 |
(ObjectFileLoader libPath notNil and:[
|
|
|
8519 |
ObjectFileLoader libPath ~= self stcLibraryPath value
|
|
|
8520 |
])])
|
|
|
8521 |
]]]]]]]]]]]
|
|
|
8522 |
)
|
|
|
8523 |
!
|
|
|
8524 |
|
|
|
8525 |
thisIsADemoVersion
|
|
|
8526 |
|
|
|
8527 |
^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
|
|
|
8528 |
! !
|
|
|
8529 |
|
|
4398
|
8530 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
|
|
|
8531 |
|
|
|
8532 |
exampleText
|
|
|
8533 |
|
|
|
8534 |
^ 'methodSelector:methodArg
|
|
|
8535 |
"method comment:
|
|
|
8536 |
some stupid code to show the current settings"
|
|
|
8537 |
|
|
|
8538 |
|index|
|
|
|
8539 |
|
|
|
8540 |
"/ another comment ...
|
|
|
8541 |
self at:index. "/ a message
|
|
|
8542 |
self at:index put:methodArg. "/ a two arg message
|
|
|
8543 |
self from:1 to:index put:methodArg. "/ a three arg message
|
|
|
8544 |
methodArg ifTrue:[
|
|
|
8545 |
Transcript showCR:''hello''. "/ condition
|
|
|
8546 |
].
|
|
|
8547 |
methodArg ifTrue:[
|
|
|
8548 |
Transcript showCR:''hello''. "/ condition
|
|
|
8549 |
] ifFalse:[
|
|
|
8550 |
Transcript showCR:''world''.
|
|
|
8551 |
].
|
|
|
8552 |
[methodArg] whileTrue:[
|
|
|
8553 |
Transcript showCR:''hello''. "/ looping
|
|
|
8554 |
].
|
|
|
8555 |
[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
|
|
|
8556 |
Transcript showCR:''hello''. "/ long blocks
|
|
|
8557 |
].
|
|
|
8558 |
methodArg do:[:element |
|
|
|
8559 |
Transcript showCR:''hello''. "/ looping
|
|
|
8560 |
].
|
|
|
8561 |
1 to:methodArg size do:[:index |
|
|
|
8562 |
Transcript showCR:''hello''. "/ looping
|
|
|
8563 |
].
|
|
|
8564 |
methodArg keysAndValuesDo:[:index |
|
|
|
8565 |
Transcript showCR:''hello''. "/ looping
|
|
|
8566 |
].
|
|
|
8567 |
Object errorSignal handle:[:ex |
|
|
|
8568 |
ex return
|
|
|
8569 |
] do:[ "/ exception handling
|
|
|
8570 |
self someAction "/ blocks
|
|
|
8571 |
].
|
|
|
8572 |
^ self.
|
|
|
8573 |
'.
|
|
|
8574 |
! !
|
|
|
8575 |
|
|
|
8576 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
|
|
4312
|
8577 |
|
|
|
8578 |
defaultIcon
|
|
|
8579 |
"This resource specification was automatically generated
|
|
|
8580 |
by the ImageEditor of ST/X."
|
|
|
8581 |
|
|
|
8582 |
"Do not manually edit this!! If it is corrupted,
|
|
|
8583 |
the ImageEditor may not be able to read the specification."
|
|
|
8584 |
|
|
|
8585 |
"
|
|
|
8586 |
self defaultIcon inspect
|
|
|
8587 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
8588 |
Icon flushCachedIcons
|
|
|
8589 |
"
|
|
|
8590 |
|
|
|
8591 |
<resource: #image>
|
|
|
8592 |
|
|
|
8593 |
^Icon
|
|
4398
|
8594 |
constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
|
|
|
8595 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
8596 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
|
|
|
8597 |
@@(JBP$IBP$FBP$IBP$IAPTE@0L@@@@JB $IBP$IA $IBP$IBPTEAPLC@@@@B (FA XFA XFA XFA TE@0LC@0@@@@(JBP$IBP$FBP$IAPTE@0LC@0P@@@@J
|
|
|
8598 |
B $IBP$IA $IAPTE@0LC@0PK@@@@B (IBP$IBPXIBPTEAPLC@0LDB0@@@@(JA XFA XFA TH@0LC@0PD@ @@@@@JB $IBP$I@@ HB@LC@0PB@ @@@@@@B (I
|
|
|
8599 |
BP$IBPXHB@ HB@ K@PD@@@@@@@(JA XFA @HB@ HB@ F@@DA@@@@@@@JB XFA X@B@ HB@ FA @A@P@@@@@@B (IBP$I@P HB@XFA (I@PD@@@@@@@(JBP$I
|
|
|
8600 |
@PHKA XJBP$IBPDA@@@@@@@JB @@@@D@@@@@@@@@@@@A@P@@@@@@B (@@@D@@@@@@@@@@@@@@PD@@@@@@@(JBP$IBP$@BP$IBP$IBPDA@@@@@@HA@PDA@PDA
|
|
|
8601 |
@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 255 128 0 192 88 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255 220 220 220 64 0 0]; 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]
|
|
|
8602 |
! !
|
|
|
8603 |
|
|
|
8604 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
|
|
|
8605 |
|
|
|
8606 |
windowSpec
|
|
|
8607 |
"This resource specification was automatically generated
|
|
|
8608 |
by the UIPainter of ST/X."
|
|
|
8609 |
|
|
|
8610 |
"Do not manually edit this!! If it is corrupted,
|
|
|
8611 |
the UIPainter may not be able to read the specification."
|
|
|
8612 |
|
|
|
8613 |
"
|
|
|
8614 |
UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
|
|
|
8615 |
AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
|
|
|
8616 |
AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
|
|
|
8617 |
"
|
|
|
8618 |
|
|
|
8619 |
<resource: #canvas>
|
|
|
8620 |
|
|
|
8621 |
^
|
|
|
8622 |
#(#FullSpec
|
|
|
8623 |
#name: #windowSpec
|
|
|
8624 |
#window:
|
|
|
8625 |
#(#WindowSpec
|
|
|
8626 |
#label: 'Code Format Settings'
|
|
|
8627 |
#name: 'Code Format Settings'
|
|
|
8628 |
#min: #(#Point 10 10)
|
|
|
8629 |
#max: #(#Point 1024 768)
|
|
|
8630 |
#bounds: #(#Rectangle 12 22 616 698)
|
|
|
8631 |
)
|
|
|
8632 |
#component:
|
|
|
8633 |
#(#SpecCollection
|
|
|
8634 |
#collection: #(
|
|
|
8635 |
#(#VerticalPanelViewSpec
|
|
|
8636 |
#name: 'VerticalPanel3'
|
|
|
8637 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
8638 |
#horizontalLayout: #fit
|
|
|
8639 |
#verticalLayout: #topSpace
|
|
|
8640 |
#horizontalSpace: 3
|
|
|
8641 |
#verticalSpace: 3
|
|
|
8642 |
#component:
|
|
|
8643 |
#(#SpecCollection
|
|
|
8644 |
#collection: #(
|
|
|
8645 |
#(#VerticalPanelViewSpec
|
|
|
8646 |
#name: 'VerticalPanel2'
|
|
|
8647 |
#horizontalLayout: #fitSpace
|
|
|
8648 |
#verticalLayout: #topSpace
|
|
|
8649 |
#horizontalSpace: 5
|
|
|
8650 |
#verticalSpace: 10
|
|
|
8651 |
#component:
|
|
|
8652 |
#(#SpecCollection
|
|
|
8653 |
#collection: #(
|
|
|
8654 |
#(#CheckBoxSpec
|
|
|
8655 |
#label: 'Auto Format'
|
|
|
8656 |
#name: 'CheckBox2'
|
|
|
8657 |
#model: #autoFormat
|
|
|
8658 |
#translateLabel: true
|
|
|
8659 |
#extent: #(#Point 594 22)
|
|
|
8660 |
)
|
|
|
8661 |
#(#ViewSpec
|
|
|
8662 |
#name: 'Box14'
|
|
|
8663 |
#component:
|
|
|
8664 |
#(#SpecCollection
|
|
|
8665 |
#collection: #(
|
|
|
8666 |
#(#LabelSpec
|
|
|
8667 |
#label: 'Sample Output:'
|
|
|
8668 |
#name: 'Label3'
|
|
|
8669 |
#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
|
|
|
8670 |
#style: #(#FontDescription #helvetica #medium #roman 12)
|
|
|
8671 |
#translateLabel: true
|
|
|
8672 |
#adjust: #left
|
|
|
8673 |
)
|
|
|
8674 |
#(#TextEditorSpec
|
|
|
8675 |
#name: 'TextEditor3'
|
|
|
8676 |
#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
|
|
|
8677 |
#model: #editorText
|
|
|
8678 |
#hasHorizontalScrollBar: true
|
|
|
8679 |
#hasVerticalScrollBar: true
|
|
|
8680 |
#isReadOnly: true
|
|
|
8681 |
#postBuildCallback: #postBuildTextEditor:
|
|
|
8682 |
)
|
|
|
8683 |
)
|
|
|
8684 |
|
|
|
8685 |
)
|
|
|
8686 |
#extent: #(#Point 594 300)
|
|
|
8687 |
)
|
|
|
8688 |
#(#VerticalPanelViewSpec
|
|
|
8689 |
#name: 'VerticalPanel1'
|
|
|
8690 |
#horizontalLayout: #fit
|
|
|
8691 |
#verticalLayout: #bottom
|
|
|
8692 |
#horizontalSpace: 3
|
|
|
8693 |
#verticalSpace: 3
|
|
|
8694 |
#component:
|
|
|
8695 |
#(#SpecCollection
|
|
|
8696 |
#collection: #(
|
|
|
8697 |
#(#ViewSpec
|
|
|
8698 |
#name: 'Box1'
|
|
|
8699 |
#component:
|
|
|
8700 |
#(#SpecCollection
|
|
|
8701 |
#collection: #(
|
|
|
8702 |
#(#CheckBoxSpec
|
|
|
8703 |
#label: 'Space around Temporaries'
|
|
|
8704 |
#name: 'CheckBox3'
|
|
|
8705 |
#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
|
|
|
8706 |
#model: #spaceAroundTemporaries
|
|
|
8707 |
#translateLabel: true
|
|
|
8708 |
)
|
|
|
8709 |
#(#CheckBoxSpec
|
|
|
8710 |
#label: 'Blank line after local Var Declaration'
|
|
|
8711 |
#name: 'CheckBox4'
|
|
|
8712 |
#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
|
|
|
8713 |
#model: #emptyLineAfterTemporaries
|
|
|
8714 |
#translateLabel: true
|
|
|
8715 |
)
|
|
|
8716 |
)
|
|
|
8717 |
|
|
|
8718 |
)
|
|
|
8719 |
#extent: #(#Point 594 22)
|
|
|
8720 |
)
|
|
|
8721 |
#(#ViewSpec
|
|
|
8722 |
#name: 'Box11'
|
|
|
8723 |
#component:
|
|
|
8724 |
#(#SpecCollection
|
|
|
8725 |
#collection: #(
|
|
|
8726 |
#(#CheckBoxSpec
|
|
|
8727 |
#label: 'Space after ''^'''
|
|
|
8728 |
#name: 'CheckBox5'
|
|
|
8729 |
#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
|
|
|
8730 |
#model: #spaceAfterReturnToken
|
|
|
8731 |
#translateLabel: true
|
|
|
8732 |
)
|
|
|
8733 |
#(#CheckBoxSpec
|
|
|
8734 |
#label: 'Space after '':'' in Keywords'
|
|
|
8735 |
#name: 'CheckBox6'
|
|
|
8736 |
#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
|
|
|
8737 |
#model: #spaceAfterKeywordSelector
|
|
|
8738 |
#translateLabel: true
|
|
|
8739 |
)
|
|
|
8740 |
)
|
|
|
8741 |
|
|
|
8742 |
)
|
|
|
8743 |
#extent: #(#Point 594 22)
|
|
|
8744 |
)
|
|
|
8745 |
#(#ViewSpec
|
|
|
8746 |
#name: 'Box12'
|
|
|
8747 |
#component:
|
|
|
8748 |
#(#SpecCollection
|
|
|
8749 |
#collection: #(
|
|
|
8750 |
#(#CheckBoxSpec
|
|
|
8751 |
#label: 'Block Args on new Line'
|
|
|
8752 |
#name: 'CheckBox7'
|
|
|
8753 |
#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
|
|
|
8754 |
#model: #blockArgumentsOnNewLine
|
|
|
8755 |
#translateLabel: true
|
|
|
8756 |
)
|
|
|
8757 |
#(#CheckBoxSpec
|
|
|
8758 |
#label: 'C-Style Blocks'
|
|
|
8759 |
#name: 'CheckBox8'
|
|
|
8760 |
#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
|
|
|
8761 |
#model: #cStyleBlocks
|
|
|
8762 |
#translateLabel: true
|
|
|
8763 |
)
|
|
|
8764 |
)
|
|
|
8765 |
|
|
|
8766 |
)
|
|
|
8767 |
#extent: #(#Point 594 22)
|
|
|
8768 |
)
|
|
|
8769 |
#(#ViewSpec
|
|
|
8770 |
#name: 'Box13'
|
|
|
8771 |
#component:
|
|
|
8772 |
#(#SpecCollection
|
|
|
8773 |
#collection: #(
|
|
|
8774 |
#(#LabelSpec
|
|
|
8775 |
#label: 'Ident:'
|
|
|
8776 |
#name: 'Label1'
|
|
|
8777 |
#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
|
|
|
8778 |
#translateLabel: true
|
|
|
8779 |
#adjust: #right
|
|
|
8780 |
)
|
|
|
8781 |
#(#InputFieldSpec
|
|
|
8782 |
#name: 'EntryField1'
|
|
|
8783 |
#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
|
|
|
8784 |
#model: #tabIndent
|
|
|
8785 |
#type: #number
|
|
|
8786 |
#acceptOnReturn: true
|
|
|
8787 |
#acceptOnTab: true
|
|
|
8788 |
#acceptOnLostFocus: true
|
|
|
8789 |
#acceptOnPointerLeave: false
|
|
|
8790 |
)
|
|
|
8791 |
#(#LabelSpec
|
|
|
8792 |
#label: 'Max Length for single line Blocks:'
|
|
|
8793 |
#name: 'Label2'
|
|
|
8794 |
#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
|
|
|
8795 |
#translateLabel: true
|
|
|
8796 |
#adjust: #right
|
|
|
8797 |
)
|
|
|
8798 |
#(#InputFieldSpec
|
|
|
8799 |
#name: 'EntryField2'
|
|
|
8800 |
#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
|
|
|
8801 |
#model: #maxLengthForSingleLineBlocks
|
|
|
8802 |
#acceptOnReturn: true
|
|
|
8803 |
#acceptOnTab: true
|
|
|
8804 |
#acceptOnLostFocus: true
|
|
|
8805 |
#acceptOnPointerLeave: false
|
|
|
8806 |
)
|
|
|
8807 |
)
|
|
|
8808 |
|
|
|
8809 |
)
|
|
|
8810 |
#extent: #(#Point 594 30)
|
|
|
8811 |
)
|
|
|
8812 |
#(#HorizontalPanelViewSpec
|
|
|
8813 |
#name: 'HorizontalPanel1'
|
|
|
8814 |
#horizontalLayout: #fitSpace
|
|
|
8815 |
#verticalLayout: #bottom
|
|
|
8816 |
#horizontalSpace: 3
|
|
|
8817 |
#verticalSpace: 3
|
|
|
8818 |
#component:
|
|
|
8819 |
#(#SpecCollection
|
|
|
8820 |
#collection: #(
|
|
|
8821 |
#(#ActionButtonSpec
|
|
|
8822 |
#label: 'Reset to ST/X Default'
|
|
|
8823 |
#name: 'Button1'
|
|
|
8824 |
#translateLabel: true
|
|
|
8825 |
#model: #resetToStxDefault
|
|
|
8826 |
#extent: #(#Point 292 22)
|
|
|
8827 |
)
|
|
|
8828 |
#(#ActionButtonSpec
|
|
|
8829 |
#label: 'Reset to RB Default'
|
|
|
8830 |
#name: 'Button2'
|
|
|
8831 |
#translateLabel: true
|
|
|
8832 |
#model: #resetToRBDefault
|
|
|
8833 |
#extent: #(#Point 293 22)
|
|
|
8834 |
)
|
|
|
8835 |
)
|
|
|
8836 |
|
|
|
8837 |
)
|
|
|
8838 |
#extent: #(#Point 594 30)
|
|
|
8839 |
)
|
|
|
8840 |
)
|
|
|
8841 |
|
|
|
8842 |
)
|
|
|
8843 |
#extent: #(#Point 594 150)
|
|
|
8844 |
)
|
|
|
8845 |
)
|
|
|
8846 |
|
|
|
8847 |
)
|
|
|
8848 |
#extent: #(#Point 604 676)
|
|
|
8849 |
)
|
|
|
8850 |
)
|
|
|
8851 |
|
|
|
8852 |
)
|
|
|
8853 |
)
|
|
|
8854 |
)
|
|
|
8855 |
|
|
|
8856 |
)
|
|
|
8857 |
)
|
|
|
8858 |
! !
|
|
|
8859 |
|
|
|
8860 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
|
|
|
8861 |
|
|
|
8862 |
evaluateModified
|
|
|
8863 |
|
|
|
8864 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
8865 |
!
|
|
|
8866 |
|
|
|
8867 |
help
|
|
|
8868 |
|
|
|
8869 |
"/ self warn:'no help available here'.
|
|
|
8870 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
|
|
|
8871 |
!
|
|
|
8872 |
|
|
|
8873 |
loadRequest
|
|
|
8874 |
|
|
|
8875 |
reformatLocked := true.
|
|
|
8876 |
self autoFormat value:currentUserPrefs autoFormatting.
|
|
|
8877 |
self tabIndent value:RBFormatter tabIndent.
|
|
|
8878 |
self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
|
|
|
8879 |
self emptyLineAfterTemporaries value:RBFormatter emptyLineAfterTemporaries.
|
|
|
8880 |
self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
|
|
|
8881 |
self spaceAfterKeywordSelector value:RBFormatter spaceAfterKeywordSelector.
|
|
|
8882 |
self cStyleBlocks value:RBFormatter cStyleBlocks.
|
|
|
8883 |
self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
|
|
|
8884 |
self maxLengthForSingleLineBlocks value:RBFormatter maxLengthForSingleLineBlocks.
|
|
|
8885 |
self evaluateModified.
|
|
|
8886 |
reformatLocked := false.
|
|
|
8887 |
self reformat.
|
|
|
8888 |
!
|
|
|
8889 |
|
|
|
8890 |
reformat
|
|
|
8891 |
|
|
|
8892 |
|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
|
|
|
8893 |
s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
|
|
|
8894 |
s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine|
|
|
|
8895 |
|
|
|
8896 |
reformatLocked ifFalse:[
|
|
|
8897 |
"/
|
|
|
8898 |
"/ temporary change the RBFormatters settings ...
|
|
|
8899 |
"/
|
|
|
8900 |
s_tabIndent := RBFormatter tabIndent.
|
|
|
8901 |
s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
|
|
|
8902 |
s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
|
|
|
8903 |
s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
|
|
|
8904 |
s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
|
|
|
8905 |
s_cStyleBlocks := RBFormatter cStyleBlocks.
|
|
|
8906 |
s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
|
|
|
8907 |
s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
|
|
|
8908 |
|
|
|
8909 |
RBFormatter
|
|
|
8910 |
tabIndent:self tabIndent value;
|
|
|
8911 |
spaceAroundTemporaries:self spaceAroundTemporaries value;
|
|
|
8912 |
emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
|
|
|
8913 |
spaceAfterReturnToken:self spaceAfterReturnToken value;
|
|
|
8914 |
spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
|
|
|
8915 |
cStyleBlocks:self cStyleBlocks value;
|
|
|
8916 |
blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
|
|
|
8917 |
maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
|
|
|
8918 |
|
|
|
8919 |
tree := RBParser
|
|
|
8920 |
parseMethod:self class exampleText
|
|
|
8921 |
onError: [:aString :position | nil].
|
|
|
8922 |
tree do:[:node |
|
|
|
8923 |
(node ~~ tree and:[node parent isNil]) ifTrue:[
|
|
|
8924 |
self error:'No parent for node'.
|
|
|
8925 |
]
|
|
|
8926 |
].
|
|
|
8927 |
self editorText value:tree printString.
|
|
|
8928 |
|
|
|
8929 |
RBFormatter
|
|
|
8930 |
tabIndent:s_tabIndent;
|
|
|
8931 |
spaceAroundTemporaries:s_spaceAroundTemporaries;
|
|
|
8932 |
emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
|
|
|
8933 |
spaceAfterReturnToken:s_spaceAfterReturnToken;
|
|
|
8934 |
spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
|
|
|
8935 |
cStyleBlocks:s_cStyleBlocks;
|
|
|
8936 |
blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
|
|
|
8937 |
maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
|
|
|
8938 |
].
|
|
|
8939 |
!
|
|
|
8940 |
|
|
|
8941 |
resetToRBDefault
|
|
|
8942 |
|
|
|
8943 |
reformatLocked := true.
|
|
|
8944 |
self tabIndent value: 8.
|
|
|
8945 |
self spaceAfterReturnToken value:false.
|
|
|
8946 |
self spaceAfterKeywordSelector value:true.
|
|
|
8947 |
self spaceAroundTemporaries value:true.
|
|
|
8948 |
self emptyLineAfterTemporaries value:false.
|
|
|
8949 |
self cStyleBlocks value:false.
|
|
|
8950 |
self blockArgumentsOnNewLine value:false.
|
|
|
8951 |
self maxLengthForSingleLineBlocks value: 20.
|
|
|
8952 |
reformatLocked := false.
|
|
|
8953 |
self reformat.
|
|
|
8954 |
!
|
|
|
8955 |
|
|
|
8956 |
resetToStxDefault
|
|
|
8957 |
|
|
|
8958 |
reformatLocked := true.
|
|
|
8959 |
self tabIndent value: 4.
|
|
|
8960 |
self spaceAfterReturnToken value: true.
|
|
|
8961 |
self spaceAfterKeywordSelector value: false.
|
|
|
8962 |
self spaceAroundTemporaries value: false.
|
|
|
8963 |
self emptyLineAfterTemporaries value: true.
|
|
|
8964 |
self cStyleBlocks value: true.
|
|
|
8965 |
self blockArgumentsOnNewLine value:false.
|
|
|
8966 |
self maxLengthForSingleLineBlocks value: 20.
|
|
|
8967 |
reformatLocked := false.
|
|
|
8968 |
self reformat.
|
|
|
8969 |
!
|
|
|
8970 |
|
|
|
8971 |
saveSettings
|
|
|
8972 |
|
|
|
8973 |
self hasUnsavedChanges ifTrue:[
|
|
|
8974 |
currentUserPrefs autoFormatting:self autoFormat value.
|
|
|
8975 |
currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
|
|
|
8976 |
currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
|
|
|
8977 |
currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
|
|
|
8978 |
currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
|
|
|
8979 |
currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
|
|
|
8980 |
currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
|
|
|
8981 |
currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
|
|
|
8982 |
currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
|
|
|
8983 |
RBFormatter
|
|
|
8984 |
tabIndent:self tabIndent value;
|
|
|
8985 |
spaceAroundTemporaries:self spaceAroundTemporaries value;
|
|
|
8986 |
emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
|
|
|
8987 |
spaceAfterReturnToken:self spaceAfterReturnToken value;
|
|
|
8988 |
spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
|
|
|
8989 |
cStyleBlocks:self cStyleBlocks value;
|
|
|
8990 |
blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
|
|
|
8991 |
maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
|
|
|
8992 |
self modifiedChannel value:false.
|
|
|
8993 |
].
|
|
|
8994 |
! !
|
|
|
8995 |
|
|
|
8996 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
|
|
|
8997 |
|
|
|
8998 |
autoFormat
|
|
|
8999 |
|
|
|
9000 |
autoFormat isNil ifTrue:[
|
|
|
9001 |
autoFormat := currentUserPrefs autoFormatting asValue.
|
|
|
9002 |
autoFormat onChangeSend:#evaluateModified to:self
|
|
|
9003 |
].
|
|
|
9004 |
^ autoFormat.
|
|
|
9005 |
!
|
|
|
9006 |
|
|
|
9007 |
blockArgumentsOnNewLine
|
|
|
9008 |
|
|
|
9009 |
blockArgumentsOnNewLine isNil ifTrue:[
|
|
|
9010 |
blockArgumentsOnNewLine := true asValue.
|
|
|
9011 |
blockArgumentsOnNewLine addDependent:self.
|
|
|
9012 |
].
|
|
|
9013 |
^ blockArgumentsOnNewLine.
|
|
|
9014 |
!
|
|
|
9015 |
|
|
|
9016 |
cStyleBlocks
|
|
|
9017 |
|
|
|
9018 |
cStyleBlocks isNil ifTrue:[
|
|
|
9019 |
cStyleBlocks := true asValue.
|
|
|
9020 |
cStyleBlocks addDependent:self.
|
|
|
9021 |
].
|
|
|
9022 |
^ cStyleBlocks.
|
|
|
9023 |
!
|
|
|
9024 |
|
|
|
9025 |
editorText
|
|
|
9026 |
|
|
|
9027 |
editorText isNil ifTrue:[
|
|
|
9028 |
editorText := ValueHolder new.
|
|
|
9029 |
].
|
|
|
9030 |
^ editorText.
|
|
|
9031 |
!
|
|
|
9032 |
|
|
|
9033 |
emptyLineAfterTemporaries
|
|
|
9034 |
|
|
|
9035 |
emptyLineAfterTemporaries isNil ifTrue:[
|
|
|
9036 |
emptyLineAfterTemporaries := true asValue.
|
|
|
9037 |
emptyLineAfterTemporaries addDependent:self.
|
|
|
9038 |
].
|
|
|
9039 |
^ emptyLineAfterTemporaries.
|
|
|
9040 |
!
|
|
|
9041 |
|
|
|
9042 |
maxLengthForSingleLineBlocks
|
|
|
9043 |
|
|
|
9044 |
maxLengthForSingleLineBlocks isNil ifTrue:[
|
|
|
9045 |
maxLengthForSingleLineBlocks := ValueHolder new.
|
|
|
9046 |
maxLengthForSingleLineBlocks addDependent:self.
|
|
|
9047 |
].
|
|
|
9048 |
^ maxLengthForSingleLineBlocks.
|
|
|
9049 |
!
|
|
|
9050 |
|
|
|
9051 |
modifiedChannel
|
|
|
9052 |
|
|
|
9053 |
modifiedChannel isNil ifTrue:[
|
|
|
9054 |
modifiedChannel := false asValue.
|
|
|
9055 |
].
|
|
|
9056 |
^ modifiedChannel
|
|
|
9057 |
!
|
|
|
9058 |
|
|
|
9059 |
spaceAfterKeywordSelector
|
|
|
9060 |
|
|
|
9061 |
spaceAfterKeywordSelector isNil ifTrue:[
|
|
|
9062 |
spaceAfterKeywordSelector := true asValue.
|
|
|
9063 |
spaceAfterKeywordSelector addDependent:self.
|
|
|
9064 |
].
|
|
|
9065 |
^ spaceAfterKeywordSelector.
|
|
|
9066 |
!
|
|
|
9067 |
|
|
|
9068 |
spaceAfterReturnToken
|
|
|
9069 |
|
|
|
9070 |
spaceAfterReturnToken isNil ifTrue:[
|
|
|
9071 |
spaceAfterReturnToken := true asValue.
|
|
|
9072 |
spaceAfterReturnToken addDependent:self.
|
|
|
9073 |
].
|
|
|
9074 |
^ spaceAfterReturnToken.
|
|
|
9075 |
!
|
|
|
9076 |
|
|
|
9077 |
spaceAroundTemporaries
|
|
|
9078 |
|
|
|
9079 |
spaceAroundTemporaries isNil ifTrue:[
|
|
|
9080 |
spaceAroundTemporaries := true asValue.
|
|
|
9081 |
spaceAroundTemporaries addDependent:self.
|
|
|
9082 |
].
|
|
|
9083 |
^ spaceAroundTemporaries.
|
|
|
9084 |
!
|
|
|
9085 |
|
|
|
9086 |
tabIndent
|
|
|
9087 |
|
|
|
9088 |
tabIndent isNil ifTrue:[
|
|
|
9089 |
tabIndent := ValueHolder new.
|
|
|
9090 |
tabIndent addDependent:self.
|
|
|
9091 |
].
|
|
|
9092 |
^ tabIndent.
|
|
|
9093 |
! !
|
|
|
9094 |
|
|
|
9095 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
|
|
|
9096 |
|
|
|
9097 |
update:something with:aParameter from:changedObject
|
|
|
9098 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
9099 |
|
|
|
9100 |
"stub code automatically generated - please change as required"
|
|
|
9101 |
|
|
|
9102 |
(changedObject == self blockArgumentsOnNewLine or:[
|
|
|
9103 |
changedObject == self cStyleBlocks or:[
|
|
|
9104 |
changedObject == self emptyLineAfterTemporaries or:[
|
|
|
9105 |
changedObject == self maxLengthForSingleLineBlocks or:[
|
|
|
9106 |
changedObject == self spaceAfterKeywordSelector or:[
|
|
|
9107 |
changedObject == self spaceAfterReturnToken or:[
|
|
|
9108 |
changedObject == self spaceAroundTemporaries or:[
|
|
|
9109 |
changedObject == self tabIndent
|
|
|
9110 |
]]]]]]]) ifTrue:[
|
|
|
9111 |
self evaluateModified.
|
|
|
9112 |
self reformat.
|
|
|
9113 |
^ self.
|
|
|
9114 |
].
|
|
|
9115 |
super update:something with:aParameter from:changedObject
|
|
|
9116 |
! !
|
|
|
9117 |
|
|
|
9118 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
|
|
|
9119 |
|
|
|
9120 |
initialize
|
|
|
9121 |
|
|
|
9122 |
resources := self class classResources.
|
|
|
9123 |
RBFormatter isNil ifTrue:[
|
|
|
9124 |
^ self warn:'Sorry, no RBFormatter class'.
|
|
|
9125 |
].
|
|
|
9126 |
|
|
|
9127 |
RBFormatter isLoaded ifFalse:[
|
|
|
9128 |
WindowGroup activeGroup withWaitCursorDo:[
|
|
|
9129 |
RBFormatter autoload
|
|
|
9130 |
]
|
|
|
9131 |
].
|
|
|
9132 |
currentUserPrefs := UserPreferences current.
|
|
|
9133 |
reformatLocked := false.
|
|
|
9134 |
self loadRequest.
|
|
|
9135 |
super initialize
|
|
|
9136 |
!
|
|
|
9137 |
|
|
|
9138 |
postBuildTextEditor:aWidget
|
|
|
9139 |
|
|
|
9140 |
aWidget cursorMovementWhenUpdating:nil;
|
|
|
9141 |
scrollWhenUpdating:nil.
|
|
|
9142 |
! !
|
|
|
9143 |
|
|
|
9144 |
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
|
|
|
9145 |
|
|
|
9146 |
hasUnsavedChanges
|
|
|
9147 |
|
|
|
9148 |
^ (
|
|
|
9149 |
self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
|
|
4405
|
9150 |
self tabIndent value ~= RBFormatter tabIndent or:[
|
|
|
9151 |
self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
|
|
|
9152 |
self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
|
|
|
9153 |
self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
|
|
|
9154 |
self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
|
|
|
9155 |
self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
|
|
|
9156 |
self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
|
|
|
9157 |
self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
|
|
4398
|
9158 |
]]]]]]]]
|
|
|
9159 |
)
|
|
|
9160 |
! !
|
|
|
9161 |
|
|
|
9162 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
|
|
|
9163 |
|
|
|
9164 |
defaultIcon
|
|
|
9165 |
"This resource specification was automatically generated
|
|
|
9166 |
by the ImageEditor of ST/X."
|
|
|
9167 |
|
|
|
9168 |
"Do not manually edit this!! If it is corrupted,
|
|
|
9169 |
the ImageEditor may not be able to read the specification."
|
|
|
9170 |
|
|
|
9171 |
"
|
|
|
9172 |
self defaultIcon inspect
|
|
|
9173 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
9174 |
Icon flushCachedIcons
|
|
|
9175 |
"
|
|
|
9176 |
|
|
|
9177 |
<resource: #image>
|
|
|
9178 |
|
|
|
9179 |
^Icon
|
|
|
9180 |
constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
|
|
|
9181 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
9182 |
@@@@@@@@@@@TEA@PD00F@@@@@@@@@@@@@@@@@A@YMT]AN"(/J1DO@@@@@@@@@@@@@A@"RDL.GQ@EAAHFDP @@@@@@@@@@@@YR$@.LPXF@@@@@@XHA @@@@@@
|
|
|
9183 |
@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
|
|
|
9184 |
Q#\(I3)EGP$@@@@AA0@@@@@@@@X&HRP_JCT]E X@@@@AOS@M@@@@@@@@A"X^IC\]E X@@@@AP#X;K@\@@@@@@@@FH2\]E X@@@@AQCX)LC00B @@@@@@@@X&
|
|
|
9185 |
F X@@@@AP#X%EQ,0OB0G@@@@@@@@A P@@@@[OSX,KA,[F3@8F0L@@@@@@@@@@@@@@PDA@S$)L!!TA@PDA@@@@@@@@@@@@@@@@@@D<KCPU@@@@@@@@@P@@@@@@
|
|
|
9186 |
@@@@@@@AOR$2B @@@@@@@@DA@@@@@@@@@@@AO3X,K@H@@@@@@@@@@PDA@@@@@@DAO3,,L@\@@@@@@@@@@@@CEPLM@PD9O3,2LA,C@@@@@@@@@@@@@@DMLCX9
|
|
|
9187 |
OSP,L LA@@@@@@@@@@@@@@@@@@LGCQTUCPD@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 1 8 0 10 10 10 16 24 0 17 36 5 20 20 0 20 20 20 20 42 9 22 49 12 23 23 27 25 44 11 26 51 13 27 27 27 27 62 15 28 63 16 28 69 18 30 73 23 33 33 6 33 59 20 33 80 23 34 34 34 37 96 34 40 73 25 41 108 39 42 115 47 43 86 35 44 44 44 44 127 57 44 129 58 47 141 67 47 160 87 49 158 82 50 166 92 50 168 93 51 127 58 51 179 100 52 52 52 54 109 47 55 136 67 58 146 76 59 59 59 61 143 75 65 112 54 67 67 67 70 145 79 70 182 112 71 125 64 74 74 74 80 133 74 82 82 82 85 189 122 94 94 94 100 194 131 106 106 106 108 196 133 114 114 114 121 121 121 125 203 143 130 130 130 139 139 139 162 162 162 163 218 174 175 175 175 178 224 184 184 227 189 188 188 188 190 229 193 202 202 202 204 234 204 212 244 212 216 240 214 221 242 219 224 243 221 227 244 225]; 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]
|
|
|
9188 |
! !
|
|
|
9189 |
|
|
|
9190 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
|
|
4286
|
9191 |
|
|
|
9192 |
windowSpec
|
|
|
9193 |
"This resource specification was automatically generated
|
|
|
9194 |
by the UIPainter of ST/X."
|
|
|
9195 |
|
|
|
9196 |
"Do not manually edit this!! If it is corrupted,
|
|
|
9197 |
the UIPainter may not be able to read the specification."
|
|
|
9198 |
|
|
|
9199 |
"
|
|
4405
|
9200 |
UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
|
|
|
9201 |
AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
|
|
|
9202 |
AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
|
|
4286
|
9203 |
"
|
|
|
9204 |
|
|
|
9205 |
<resource: #canvas>
|
|
|
9206 |
|
|
|
9207 |
^
|
|
|
9208 |
#(#FullSpec
|
|
|
9209 |
#name: #windowSpec
|
|
|
9210 |
#window:
|
|
|
9211 |
#(#WindowSpec
|
|
4405
|
9212 |
#label: 'Source Code Manager Settings'
|
|
|
9213 |
#name: 'Source Code Manager Settings'
|
|
4286
|
9214 |
#min: #(#Point 10 10)
|
|
|
9215 |
#max: #(#Point 1024 768)
|
|
4310
|
9216 |
#bounds: #(#Rectangle 16 42 677 810)
|
|
4286
|
9217 |
)
|
|
|
9218 |
#component:
|
|
|
9219 |
#(#SpecCollection
|
|
|
9220 |
#collection: #(
|
|
4310
|
9221 |
#(#VerticalPanelViewSpec
|
|
|
9222 |
#name: 'VerticalPanel2'
|
|
|
9223 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
9224 |
#horizontalLayout: #fit
|
|
4398
|
9225 |
#verticalLayout: #topSpace
|
|
4286
|
9226 |
#horizontalSpace: 3
|
|
4405
|
9227 |
#verticalSpace: 20
|
|
4286
|
9228 |
#component:
|
|
|
9229 |
#(#SpecCollection
|
|
|
9230 |
#collection: #(
|
|
4398
|
9231 |
#(#VerticalPanelViewSpec
|
|
|
9232 |
#name: 'VerticalPanel3'
|
|
|
9233 |
#horizontalLayout: #fit
|
|
|
9234 |
#verticalLayout: #top
|
|
|
9235 |
#horizontalSpace: 3
|
|
4405
|
9236 |
#verticalSpace: 10
|
|
4310
|
9237 |
#component:
|
|
|
9238 |
#(#SpecCollection
|
|
|
9239 |
#collection: #(
|
|
4398
|
9240 |
#(#ViewSpec
|
|
|
9241 |
#name: 'Box3'
|
|
|
9242 |
#component:
|
|
|
9243 |
#(#SpecCollection
|
|
|
9244 |
#collection: #(
|
|
|
9245 |
#(#CheckBoxSpec
|
|
|
9246 |
#label: 'Sourcecode Management'
|
|
|
9247 |
#name: 'SourcecodeManagementCheckBox'
|
|
|
9248 |
#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
|
|
|
9249 |
#enableChannel: #cvsIsSetup
|
|
|
9250 |
#model: #useManager
|
|
|
9251 |
#translateLabel: true
|
|
|
9252 |
)
|
|
4405
|
9253 |
)
|
|
|
9254 |
|
|
|
9255 |
)
|
|
|
9256 |
#extent: #(#Point 661 30)
|
|
|
9257 |
)
|
|
|
9258 |
#(#FramedBoxSpec
|
|
|
9259 |
#label: 'Source Code Manager Setup'
|
|
|
9260 |
#name: 'FramedBox1'
|
|
|
9261 |
#labelPosition: #topLeft
|
|
|
9262 |
#translateLabel: true
|
|
|
9263 |
#component:
|
|
|
9264 |
#(#SpecCollection
|
|
|
9265 |
#collection: #(
|
|
|
9266 |
#(#ViewSpec
|
|
|
9267 |
#name: 'Box1'
|
|
|
9268 |
#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
|
|
|
9269 |
#component:
|
|
|
9270 |
#(#SpecCollection
|
|
|
9271 |
#collection: #(
|
|
|
9272 |
#(#LabelSpec
|
|
|
9273 |
#label: 'CVS BinDirectory:'
|
|
|
9274 |
#name: 'Label1'
|
|
|
9275 |
#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
|
|
|
9276 |
#level: 0
|
|
|
9277 |
#translateLabel: true
|
|
|
9278 |
#adjust: #right
|
|
|
9279 |
)
|
|
|
9280 |
#(#InputFieldSpec
|
|
|
9281 |
#name: 'BinDirectoryField'
|
|
|
9282 |
#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
|
|
|
9283 |
#enableChannel: #useManager
|
|
|
9284 |
#tabable: true
|
|
|
9285 |
#model: #cvsBinDirectoryHolder
|
|
|
9286 |
#acceptChannel: #acceptChannel
|
|
|
9287 |
#acceptOnPointerLeave: false
|
|
|
9288 |
)
|
|
|
9289 |
)
|
|
|
9290 |
|
|
|
9291 |
)
|
|
|
9292 |
)
|
|
|
9293 |
#(#ViewSpec
|
|
|
9294 |
#name: 'Box7'
|
|
|
9295 |
#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
|
|
|
9296 |
#component:
|
|
|
9297 |
#(#SpecCollection
|
|
|
9298 |
#collection: #(
|
|
|
9299 |
#(#LabelSpec
|
|
|
9300 |
#label: 'CVSRoot default:'
|
|
|
9301 |
#name: 'defaultCvsRootLabel'
|
|
|
9302 |
#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
|
|
|
9303 |
#level: 0
|
|
|
9304 |
#translateLabel: true
|
|
|
9305 |
#adjust: #right
|
|
|
9306 |
)
|
|
|
9307 |
#(#ComboBoxSpec
|
|
|
9308 |
#name: 'cvsRootComboBox'
|
|
|
9309 |
#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
|
|
|
9310 |
#enableChannel: #useManager
|
|
|
9311 |
#tabable: true
|
|
|
9312 |
#model: #cvsRootHolder
|
|
|
9313 |
#immediateAccept: true
|
|
|
9314 |
#acceptOnLeave: true
|
|
|
9315 |
#acceptOnReturn: true
|
|
|
9316 |
#acceptOnTab: true
|
|
|
9317 |
#acceptOnLostFocus: true
|
|
|
9318 |
#acceptChannel: #acceptChannel
|
|
|
9319 |
#acceptOnPointerLeave: false
|
|
|
9320 |
#comboList: #cvsRootPrototypeList
|
|
|
9321 |
)
|
|
|
9322 |
)
|
|
|
9323 |
|
|
|
9324 |
)
|
|
|
9325 |
)
|
|
|
9326 |
#(#LabelSpec
|
|
|
9327 |
#label: 'CVSRoot per Module:'
|
|
|
9328 |
#name: 'knownModulesLabel'
|
|
|
9329 |
#layout: #(#LayoutFrame 0 0.0 66 0 40 0.25 88 0)
|
|
4398
|
9330 |
#translateLabel: true
|
|
4405
|
9331 |
#adjust: #right
|
|
|
9332 |
)
|
|
|
9333 |
#(#SequenceViewSpec
|
|
|
9334 |
#name: 'List1'
|
|
|
9335 |
#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
|
|
|
9336 |
#enableChannel: #useManager
|
|
|
9337 |
#tabable: true
|
|
|
9338 |
#model: #selectedPerModuleRoot
|
|
|
9339 |
#hasHorizontalScrollBar: true
|
|
|
9340 |
#hasVerticalScrollBar: true
|
|
|
9341 |
#miniScrollerHorizontal: true
|
|
|
9342 |
#useIndex: false
|
|
|
9343 |
#sequenceList: #listOfModules
|
|
|
9344 |
)
|
|
|
9345 |
#(#LabelSpec
|
|
|
9346 |
#label: 'Module:'
|
|
|
9347 |
#name: 'moduleLabel'
|
|
|
9348 |
#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
|
|
|
9349 |
#translateLabel: true
|
|
|
9350 |
#adjust: #right
|
|
|
9351 |
)
|
|
|
9352 |
#(#InputFieldSpec
|
|
|
9353 |
#name: 'perModuleRootModuleEntryField'
|
|
|
9354 |
#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
|
|
|
9355 |
#enableChannel: #useManager
|
|
|
9356 |
#tabable: true
|
|
|
9357 |
#model: #perModuleRootModule
|
|
|
9358 |
#acceptChannel: #acceptChannel
|
|
|
9359 |
#acceptOnPointerLeave: false
|
|
|
9360 |
)
|
|
|
9361 |
#(#LabelSpec
|
|
|
9362 |
#label: 'CVSRoot:'
|
|
|
9363 |
#name: 'cvsRootLabel'
|
|
|
9364 |
#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
|
|
|
9365 |
#translateLabel: true
|
|
|
9366 |
#adjust: #right
|
|
|
9367 |
)
|
|
|
9368 |
#(#ComboBoxSpec
|
|
|
9369 |
#name: 'perModuleRootComboBox'
|
|
|
9370 |
#layout: #(#LayoutFrame 44 0.25 232 0 -1 1.0 254 0)
|
|
4398
|
9371 |
#enableChannel: #useManager
|
|
4405
|
9372 |
#tabable: true
|
|
|
9373 |
#model: #perModuleRoot
|
|
|
9374 |
#immediateAccept: true
|
|
|
9375 |
#acceptOnLeave: true
|
|
|
9376 |
#acceptOnReturn: true
|
|
|
9377 |
#acceptOnTab: true
|
|
|
9378 |
#acceptOnLostFocus: true
|
|
|
9379 |
#acceptChannel: #acceptChannel
|
|
|
9380 |
#acceptOnPointerLeave: false
|
|
|
9381 |
#comboList: #cvsRootPrototypeList
|
|
|
9382 |
)
|
|
|
9383 |
#(#HorizontalPanelViewSpec
|
|
|
9384 |
#name: 'HorizontalPanel2'
|
|
|
9385 |
#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
|
|
|
9386 |
#horizontalLayout: #fitSpace
|
|
|
9387 |
#verticalLayout: #center
|
|
|
9388 |
#horizontalSpace: 3
|
|
|
9389 |
#verticalSpace: 3
|
|
|
9390 |
#component:
|
|
|
9391 |
#(#SpecCollection
|
|
|
9392 |
#collection: #(
|
|
|
9393 |
#(#ActionButtonSpec
|
|
|
9394 |
#label: 'Add/Apply'
|
|
|
9395 |
#name: 'Button1'
|
|
|
9396 |
#translateLabel: true
|
|
|
9397 |
#tabable: true
|
|
|
9398 |
#model: #addPerModuleRoot
|
|
|
9399 |
#enableChannel: #useManager
|
|
|
9400 |
#extent: #(#Point 209 22)
|
|
|
9401 |
)
|
|
|
9402 |
#(#ActionButtonSpec
|
|
|
9403 |
#label: 'Remove'
|
|
|
9404 |
#name: 'removeButton'
|
|
|
9405 |
#translateLabel: true
|
|
|
9406 |
#tabable: true
|
|
|
9407 |
#model: #removePerModuleRoot
|
|
|
9408 |
#enableChannel: #removeEnabled
|
|
|
9409 |
#extent: #(#Point 209 22)
|
|
|
9410 |
)
|
|
|
9411 |
)
|
|
|
9412 |
|
|
|
9413 |
)
|
|
4398
|
9414 |
)
|
|
|
9415 |
)
|
|
|
9416 |
|
|
|
9417 |
)
|
|
4405
|
9418 |
#extent: #(#Point 661 321)
|
|
4398
|
9419 |
)
|
|
|
9420 |
#(#ViewSpec
|
|
|
9421 |
#name: 'Box4'
|
|
|
9422 |
#component:
|
|
|
9423 |
#(#SpecCollection
|
|
|
9424 |
#collection: #(
|
|
|
9425 |
#(#LabelSpec
|
|
|
9426 |
#label: 'Source Cache Dir:'
|
|
|
9427 |
#name: 'SourceCacheDirLabel'
|
|
4405
|
9428 |
#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
|
|
4398
|
9429 |
#translateLabel: true
|
|
|
9430 |
#adjust: #right
|
|
|
9431 |
)
|
|
|
9432 |
#(#InputFieldSpec
|
|
|
9433 |
#name: 'SourceCacheDirEntryField'
|
|
4405
|
9434 |
#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
|
|
4398
|
9435 |
#enableChannel: #useManager
|
|
|
9436 |
#model: #sourceCacheDir
|
|
4405
|
9437 |
#immediateAccept: false
|
|
4398
|
9438 |
#acceptOnReturn: true
|
|
|
9439 |
#acceptOnTab: true
|
|
|
9440 |
#acceptOnLostFocus: true
|
|
|
9441 |
#acceptOnPointerLeave: false
|
|
|
9442 |
)
|
|
|
9443 |
)
|
|
|
9444 |
|
|
|
9445 |
)
|
|
|
9446 |
#extent: #(#Point 661 30)
|
|
|
9447 |
)
|
|
4405
|
9448 |
#(#HorizontalPanelViewSpec
|
|
|
9449 |
#name: 'HorizontalPanel1'
|
|
|
9450 |
#horizontalLayout: #fitSpace
|
|
|
9451 |
#verticalLayout: #center
|
|
|
9452 |
#horizontalSpace: 30
|
|
|
9453 |
#verticalSpace: 3
|
|
4398
|
9454 |
#component:
|
|
|
9455 |
#(#SpecCollection
|
|
|
9456 |
#collection: #(
|
|
|
9457 |
#(#ActionButtonSpec
|
|
|
9458 |
#label: 'Flush Cache now'
|
|
|
9459 |
#name: 'FlushCacheNowButton'
|
|
|
9460 |
#translateLabel: true
|
|
|
9461 |
#model: #flushSourceCache
|
|
|
9462 |
#enableChannel: #useManager
|
|
4405
|
9463 |
#extent: #(#Point 285 22)
|
|
|
9464 |
)
|
|
|
9465 |
#(#ActionButtonSpec
|
|
|
9466 |
#label: 'Condense Cache now'
|
|
|
9467 |
#name: 'CondenseCacheNowButton'
|
|
|
9468 |
#translateLabel: true
|
|
|
9469 |
#model: #condenseSourceCache
|
|
|
9470 |
#enableChannel: #useManager
|
|
|
9471 |
#extent: #(#Point 286 22)
|
|
4398
|
9472 |
)
|
|
|
9473 |
)
|
|
|
9474 |
|
|
|
9475 |
)
|
|
4405
|
9476 |
#extent: #(#Point 661 40)
|
|
4398
|
9477 |
)
|
|
|
9478 |
#(#ViewSpec
|
|
|
9479 |
#name: 'Box5'
|
|
|
9480 |
#component:
|
|
|
9481 |
#(#SpecCollection
|
|
|
9482 |
#collection: #(
|
|
|
9483 |
#(#CheckBoxSpec
|
|
|
9484 |
#label: 'If Present, Use Local Source (Suppress Checkout)'
|
|
|
9485 |
#name: 'CheckBox4'
|
|
|
9486 |
#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
|
|
4405
|
9487 |
#enableChannel: #useManager
|
|
4398
|
9488 |
#model: #localSourceFirst
|
|
|
9489 |
#translateLabel: true
|
|
|
9490 |
)
|
|
|
9491 |
)
|
|
|
9492 |
|
|
|
9493 |
)
|
|
4405
|
9494 |
#extent: #(#Point 661 25)
|
|
4398
|
9495 |
)
|
|
|
9496 |
#(#ViewSpec
|
|
|
9497 |
#name: 'Box6'
|
|
|
9498 |
#component:
|
|
|
9499 |
#(#SpecCollection
|
|
|
9500 |
#collection: #(
|
|
|
9501 |
#(#CheckBoxSpec
|
|
|
9502 |
#label: 'Check for halt/error-Sends when Checking in'
|
|
|
9503 |
#name: 'CheckBox5'
|
|
|
9504 |
#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
|
|
4405
|
9505 |
#enableChannel: #useManager
|
|
4398
|
9506 |
#model: #checkClassesWhenCheckingIn
|
|
|
9507 |
#translateLabel: true
|
|
|
9508 |
)
|
|
|
9509 |
)
|
|
|
9510 |
|
|
|
9511 |
)
|
|
4405
|
9512 |
#extent: #(#Point 661 25)
|
|
4310
|
9513 |
)
|
|
|
9514 |
)
|
|
|
9515 |
|
|
|
9516 |
)
|
|
4398
|
9517 |
#extent: #(#Point 661 768)
|
|
4286
|
9518 |
)
|
|
|
9519 |
)
|
|
|
9520 |
|
|
|
9521 |
)
|
|
|
9522 |
)
|
|
|
9523 |
)
|
|
|
9524 |
|
|
|
9525 |
)
|
|
|
9526 |
)
|
|
|
9527 |
! !
|
|
|
9528 |
|
|
4398
|
9529 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
|
|
4286
|
9530 |
|
|
|
9531 |
manager
|
|
|
9532 |
|
|
|
9533 |
^ Smalltalk at:#SourceCodeManager
|
|
|
9534 |
! !
|
|
|
9535 |
|
|
4398
|
9536 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
|
|
4286
|
9537 |
|
|
4405
|
9538 |
addPerModuleRoot
|
|
|
9539 |
|
|
|
9540 |
|module cvsRoot|
|
|
|
9541 |
|
|
|
9542 |
acceptChannel value:true.
|
|
|
9543 |
module := self perModuleRootModule value.
|
|
|
9544 |
cvsRoot := self perModuleRoot value.
|
|
|
9545 |
(listOfModules includes:module) ifFalse:[
|
|
|
9546 |
listOfModules add:module.
|
|
|
9547 |
listOfModules sort.
|
|
|
9548 |
].
|
|
|
9549 |
cvsRoot size > 0 ifTrue:[
|
|
|
9550 |
rootsPerModule at:module put:cvsRoot.
|
|
|
9551 |
].
|
|
|
9552 |
!
|
|
|
9553 |
|
|
4286
|
9554 |
condenseSourceCache
|
|
|
9555 |
|
|
|
9556 |
self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
|
|
|
9557 |
!
|
|
|
9558 |
|
|
|
9559 |
evaluateModified
|
|
|
9560 |
|
|
|
9561 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
9562 |
!
|
|
|
9563 |
|
|
|
9564 |
flushSourceCache
|
|
|
9565 |
|
|
|
9566 |
self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
|
|
|
9567 |
!
|
|
|
9568 |
|
|
|
9569 |
help
|
|
|
9570 |
|
|
|
9571 |
"/ self warn:'no help available here'.
|
|
4405
|
9572 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
|
|
4286
|
9573 |
!
|
|
|
9574 |
|
|
|
9575 |
loadRequest
|
|
|
9576 |
|
|
|
9577 |
self hasManager ifTrue:[
|
|
|
9578 |
self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
|
|
|
9579 |
self localSourceFirst value:Class tryLocalSourceFirst.
|
|
|
9580 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
|
|
|
9581 |
manager notNil ifTrue:[
|
|
|
9582 |
manager forgetDisabledModules.
|
|
|
9583 |
repository := manager repositoryName.
|
|
|
9584 |
repository notNil ifTrue:[
|
|
|
9585 |
repositoryHolder := repository asValue.
|
|
|
9586 |
] ifFalse:[
|
|
|
9587 |
repositoryHolder := '' asValue.
|
|
|
9588 |
].
|
|
|
9589 |
].
|
|
|
9590 |
self cvsIsSetup value:true.
|
|
|
9591 |
] ifFalse:[
|
|
|
9592 |
self useManager value: false.
|
|
|
9593 |
self localSourceFirst value:false.
|
|
|
9594 |
self cvsIsSetup value:false.
|
|
|
9595 |
].
|
|
|
9596 |
|
|
|
9597 |
self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
|
|
4405
|
9598 |
self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/files/CVS'.
|
|
|
9599 |
self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
|
|
|
9600 |
self perModuleRootModule value:nil.
|
|
4286
|
9601 |
self modifiedChannel value:false.
|
|
|
9602 |
!
|
|
|
9603 |
|
|
4405
|
9604 |
removePerModuleRoot
|
|
|
9605 |
|
|
|
9606 |
|module|
|
|
|
9607 |
|
|
|
9608 |
acceptChannel value:true.
|
|
|
9609 |
module := self perModuleRootModule value.
|
|
|
9610 |
listOfModules remove:module ifAbsent:nil.
|
|
|
9611 |
rootsPerModule removeKey:module ifAbsent:nil.
|
|
|
9612 |
self perModuleRootModule value:nil.
|
|
|
9613 |
self perModuleRoot value:nil.
|
|
4286
|
9614 |
!
|
|
|
9615 |
|
|
|
9616 |
saveSettings
|
|
|
9617 |
|
|
|
9618 |
self hasUnsavedChanges ifTrue:[
|
|
|
9619 |
(self hasManager and:[self useManager value]) ifTrue:[
|
|
|
9620 |
manager isNil ifTrue:[
|
|
|
9621 |
Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
|
|
|
9622 |
manager := Smalltalk at:#SourceCodeManager.
|
|
|
9623 |
].
|
|
|
9624 |
Class tryLocalSourceFirst:self localSourceFirst value.
|
|
|
9625 |
|
|
|
9626 |
manager notNil ifTrue:[
|
|
|
9627 |
| nm fn|
|
|
|
9628 |
nm := self sourceCacheDir value.
|
|
|
9629 |
nm size > 0 ifTrue:[
|
|
|
9630 |
(fn := nm asFilename) exists ifFalse:[
|
|
|
9631 |
(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
|
|
|
9632 |
fn makeDirectory;
|
|
|
9633 |
makeReadableForAll;
|
|
|
9634 |
makeWritableForAll;
|
|
|
9635 |
makeExecutableForAll.
|
|
|
9636 |
]
|
|
|
9637 |
].
|
|
|
9638 |
(fn exists
|
|
|
9639 |
and:[fn isDirectory
|
|
|
9640 |
and:[fn isReadable
|
|
|
9641 |
and:[fn isWritable]]]) ifTrue:[
|
|
|
9642 |
AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
|
|
|
9643 |
] ifFalse:[
|
|
|
9644 |
self warn:'Invalid sourceCache directory.'
|
|
|
9645 |
]
|
|
|
9646 |
]
|
|
|
9647 |
].
|
|
|
9648 |
|
|
|
9649 |
repositoryHolder notNil ifTrue:[
|
|
|
9650 |
repositoryHolder value size > 0 ifTrue:[
|
|
|
9651 |
manager notNil ifTrue:[
|
|
|
9652 |
manager initializeForRepository:repositoryHolder value.
|
|
|
9653 |
]
|
|
|
9654 |
].
|
|
|
9655 |
].
|
|
|
9656 |
] ifFalse:[
|
|
|
9657 |
Smalltalk at:#SourceCodeManager put:nil
|
|
|
9658 |
].
|
|
|
9659 |
|
|
|
9660 |
UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
|
|
4405
|
9661 |
self acceptChannel value.
|
|
|
9662 |
|
|
|
9663 |
"/
|
|
|
9664 |
"/ update system settings
|
|
|
9665 |
"/
|
|
|
9666 |
CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
|
|
|
9667 |
CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
|
|
|
9668 |
CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
|
|
4357
|
9669 |
DebugView newDebugger.
|
|
4286
|
9670 |
self modifiedChannel value:false.
|
|
|
9671 |
].
|
|
|
9672 |
!
|
|
|
9673 |
|
|
|
9674 |
setupSourceCodeManager
|
|
|
9675 |
|
|
|
9676 |
AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
|
|
|
9677 |
manager := (Smalltalk at:#SourceCodeManager).
|
|
|
9678 |
cvsIsSetup value:manager notNil.
|
|
|
9679 |
manager notNil ifTrue:[
|
|
|
9680 |
repositoryHolder value: manager repositoryName.
|
|
|
9681 |
sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
|
|
|
9682 |
].
|
|
4398
|
9683 |
! !
|
|
|
9684 |
|
|
|
9685 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
|
|
4286
|
9686 |
|
|
4405
|
9687 |
acceptChannel
|
|
|
9688 |
|
|
|
9689 |
acceptChannel isNil ifTrue:[
|
|
|
9690 |
acceptChannel := TriggerValue new.
|
|
|
9691 |
].
|
|
|
9692 |
^ acceptChannel.
|
|
|
9693 |
!
|
|
|
9694 |
|
|
4286
|
9695 |
checkClassesWhenCheckingIn
|
|
|
9696 |
|
|
|
9697 |
checkClassesWhenCheckingIn isNil ifTrue:[
|
|
|
9698 |
checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
|
|
|
9699 |
checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
|
|
|
9700 |
].
|
|
|
9701 |
^ checkClassesWhenCheckingIn.
|
|
|
9702 |
!
|
|
|
9703 |
|
|
4405
|
9704 |
cvsBinDirectoryHolder
|
|
|
9705 |
"automatically generated by UIPainter ..."
|
|
|
9706 |
|
|
|
9707 |
"*** the code below creates a default model when invoked."
|
|
|
9708 |
"*** (which may not be the one you wanted)"
|
|
|
9709 |
"*** Please change as required and accept it in the browser."
|
|
|
9710 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
9711 |
|
|
|
9712 |
cvsBinDirectoryHolder isNil ifTrue:[
|
|
|
9713 |
cvsBinDirectoryHolder := ValueHolder new.
|
|
|
9714 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
9715 |
"/ cvsBinDirectoryHolder addDependent:self.
|
|
|
9716 |
"/ cvsBinDirectoryHolder onChangeSend:#cvsBinDirectoryHolderChanged to:self.
|
|
|
9717 |
].
|
|
|
9718 |
^ cvsBinDirectoryHolder.
|
|
|
9719 |
!
|
|
|
9720 |
|
|
4286
|
9721 |
cvsIsSetup
|
|
|
9722 |
|
|
|
9723 |
cvsIsSetup isNil ifTrue:[
|
|
|
9724 |
cvsIsSetup := true asValue.
|
|
|
9725 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
9726 |
"/ cvsIsSetup addDependent:self.
|
|
|
9727 |
"/ cvsIsSetup onChangeSend:#cvsIsSetupChanged to:self.
|
|
|
9728 |
].
|
|
|
9729 |
^ cvsIsSetup.
|
|
|
9730 |
!
|
|
|
9731 |
|
|
4405
|
9732 |
cvsRootHolder
|
|
|
9733 |
|
|
|
9734 |
cvsRootHolder isNil ifTrue:[
|
|
|
9735 |
cvsRootHolder := ValueHolder new.
|
|
|
9736 |
cvsRootHolder onChangeSend:#evaluateModified to:self
|
|
|
9737 |
].
|
|
|
9738 |
^ cvsRootHolder.
|
|
|
9739 |
!
|
|
|
9740 |
|
|
|
9741 |
cvsRootPrototypeList
|
|
|
9742 |
|
|
|
9743 |
cvsRootPrototypeList isNil ifTrue:[
|
|
|
9744 |
OperatingSystem isUNIXlike ifTrue:[
|
|
|
9745 |
cvsRootPrototypeList := #(
|
|
|
9746 |
'/files/CVS'
|
|
|
9747 |
'/CVS'
|
|
|
9748 |
'host:/files/CVS'
|
|
|
9749 |
'host:/CVS'
|
|
|
9750 |
':pserver:user@host:/files/CVS'
|
|
|
9751 |
).
|
|
|
9752 |
] ifFalse:[
|
|
|
9753 |
OperatingSystem isMSDOSlike ifTrue:[
|
|
|
9754 |
cvsRootPrototypeList := #(
|
|
|
9755 |
':local:c:\files\CVS'
|
|
|
9756 |
':local:c:\CVS'
|
|
|
9757 |
'host:/files/CVS'
|
|
|
9758 |
'host:/CVS'
|
|
|
9759 |
':pserver:user@host:/files/CVS'
|
|
|
9760 |
).
|
|
|
9761 |
] ifFalse:[
|
|
|
9762 |
cvsRootPrototypeList := #('host:/files/CVS' 'host:/CVS' ':pserver:user@host:/files/CVS').
|
|
|
9763 |
]
|
|
|
9764 |
].
|
|
|
9765 |
].
|
|
|
9766 |
^ cvsRootPrototypeList.
|
|
|
9767 |
!
|
|
|
9768 |
|
|
|
9769 |
listOfModules
|
|
|
9770 |
|
|
|
9771 |
listOfModules isNil ifTrue:[
|
|
|
9772 |
listOfModules := rootsPerModule keys asList.
|
|
|
9773 |
listOfModules sort.
|
|
|
9774 |
].
|
|
|
9775 |
^ listOfModules.
|
|
|
9776 |
!
|
|
|
9777 |
|
|
4286
|
9778 |
localSourceFirst
|
|
|
9779 |
|
|
|
9780 |
localSourceFirst isNil ifTrue:[
|
|
|
9781 |
localSourceFirst := ValueHolder new.
|
|
|
9782 |
localSourceFirst onChangeSend:#evaluateModified to:self
|
|
|
9783 |
].
|
|
|
9784 |
^ localSourceFirst.
|
|
|
9785 |
!
|
|
|
9786 |
|
|
|
9787 |
modifiedChannel
|
|
|
9788 |
|
|
|
9789 |
modifiedChannel isNil ifTrue:[
|
|
|
9790 |
modifiedChannel := false asValue.
|
|
|
9791 |
].
|
|
|
9792 |
^ modifiedChannel
|
|
|
9793 |
!
|
|
|
9794 |
|
|
4405
|
9795 |
perModuleRoot
|
|
|
9796 |
"automatically generated by UIPainter ..."
|
|
|
9797 |
|
|
|
9798 |
"*** the code below creates a default model when invoked."
|
|
|
9799 |
"*** (which may not be the one you wanted)"
|
|
|
9800 |
"*** Please change as required and accept it in the browser."
|
|
|
9801 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
9802 |
|
|
|
9803 |
perModuleRoot isNil ifTrue:[
|
|
|
9804 |
perModuleRoot := ValueHolder new.
|
|
|
9805 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
9806 |
"/ perModuleRoot addDependent:self.
|
|
|
9807 |
"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
|
|
|
9808 |
].
|
|
|
9809 |
^ perModuleRoot.
|
|
|
9810 |
!
|
|
|
9811 |
|
|
|
9812 |
perModuleRootModule
|
|
|
9813 |
"automatically generated by UIPainter ..."
|
|
|
9814 |
|
|
|
9815 |
"*** the code below creates a default model when invoked."
|
|
|
9816 |
"*** (which may not be the one you wanted)"
|
|
|
9817 |
"*** Please change as required and accept it in the browser."
|
|
|
9818 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
9819 |
|
|
|
9820 |
perModuleRootModule isNil ifTrue:[
|
|
|
9821 |
perModuleRootModule := ValueHolder new.
|
|
|
9822 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
9823 |
"/ perModuleRootModule addDependent:self.
|
|
|
9824 |
"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
|
|
|
9825 |
].
|
|
|
9826 |
^ perModuleRootModule.
|
|
|
9827 |
!
|
|
|
9828 |
|
|
|
9829 |
removeEnabled
|
|
|
9830 |
|
|
|
9831 |
removeEnabled isNil ifTrue:[
|
|
|
9832 |
removeEnabled := false asValue.
|
|
|
9833 |
].
|
|
|
9834 |
^ removeEnabled.
|
|
|
9835 |
!
|
|
|
9836 |
|
|
|
9837 |
selectedPerModuleRoot
|
|
|
9838 |
|
|
|
9839 |
selectedPerModuleRoot isNil ifTrue:[
|
|
|
9840 |
selectedPerModuleRoot := ValueHolder new.
|
|
|
9841 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
9842 |
selectedPerModuleRoot addDependent:self.
|
|
|
9843 |
"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
|
|
|
9844 |
].
|
|
|
9845 |
^ selectedPerModuleRoot.
|
|
|
9846 |
!
|
|
|
9847 |
|
|
4286
|
9848 |
sourceCacheDir
|
|
|
9849 |
|
|
|
9850 |
sourceCacheDir isNil ifTrue:[
|
|
|
9851 |
sourceCacheDir := nil asValue.
|
|
|
9852 |
sourceCacheDir addDependent:self.
|
|
|
9853 |
sourceCacheDir onChangeSend:#evaluateModified to:self
|
|
|
9854 |
].
|
|
|
9855 |
^ sourceCacheDir.
|
|
|
9856 |
!
|
|
|
9857 |
|
|
|
9858 |
useManager
|
|
|
9859 |
|
|
|
9860 |
useManager isNil ifTrue:[
|
|
|
9861 |
useManager := ValueHolder new.
|
|
|
9862 |
useManager onChangeSend:#evaluateModified to:self
|
|
|
9863 |
].
|
|
|
9864 |
^ useManager.
|
|
|
9865 |
! !
|
|
|
9866 |
|
|
4398
|
9867 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
|
|
4286
|
9868 |
|
|
4405
|
9869 |
selectedPerModuleRootChanged
|
|
|
9870 |
|
|
|
9871 |
|module cvsRoot|
|
|
|
9872 |
|
|
|
9873 |
self acceptChannel value:true.
|
|
|
9874 |
module := self selectedPerModuleRoot value.
|
|
|
9875 |
self removeEnabled value:true.
|
|
|
9876 |
cvsRoot := rootsPerModule at:module ifAbsent:''.
|
|
|
9877 |
self perModuleRootModule value:module.
|
|
|
9878 |
self perModuleRoot value:cvsRoot.
|
|
|
9879 |
!
|
|
|
9880 |
|
|
4286
|
9881 |
sourceDirChanged
|
|
|
9882 |
|
|
|
9883 |
manager notNil ifTrue:[
|
|
|
9884 |
| nm fn|
|
|
|
9885 |
nm := self sourceCacheDir value.
|
|
|
9886 |
nm size > 0 ifTrue:[
|
|
|
9887 |
(fn := nm asFilename) exists ifFalse:[
|
|
|
9888 |
(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
|
|
|
9889 |
fn makeDirectory;
|
|
|
9890 |
makeReadableForAll;
|
|
|
9891 |
makeWritableForAll;
|
|
|
9892 |
makeExecutableForAll.
|
|
|
9893 |
]
|
|
|
9894 |
].
|
|
|
9895 |
(fn exists
|
|
|
9896 |
and:[fn isDirectory
|
|
|
9897 |
and:[fn isReadable
|
|
|
9898 |
and:[fn isWritable]]]) ifTrue:[
|
|
|
9899 |
AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
|
|
|
9900 |
] ifFalse:[
|
|
|
9901 |
self warn:'Invalid sourceCache directory.'.
|
|
|
9902 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
|
|
|
9903 |
]
|
|
|
9904 |
]
|
|
|
9905 |
].
|
|
|
9906 |
!
|
|
|
9907 |
|
|
|
9908 |
update:something with:aParameter from:changedObject
|
|
|
9909 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
9910 |
|
|
|
9911 |
"stub code automatically generated - please change as required"
|
|
|
9912 |
|
|
|
9913 |
changedObject == self sourceCacheDir ifTrue:[
|
|
4405
|
9914 |
self sourceDirChanged.
|
|
|
9915 |
^ self
|
|
|
9916 |
].
|
|
|
9917 |
changedObject == self selectedPerModuleRoot ifTrue:[
|
|
|
9918 |
self selectedPerModuleRootChanged.
|
|
|
9919 |
^ self
|
|
4286
|
9920 |
].
|
|
|
9921 |
|
|
|
9922 |
super update:something with:aParameter from:changedObject
|
|
|
9923 |
! !
|
|
|
9924 |
|
|
4398
|
9925 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
|
|
4286
|
9926 |
|
|
|
9927 |
initialize
|
|
|
9928 |
|
|
4387
|
9929 |
resources := self class classResources.
|
|
4286
|
9930 |
currentUserPrefs := UserPreferences current.
|
|
|
9931 |
(AbstractSourceCodeManager notNil
|
|
|
9932 |
and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
|
|
|
9933 |
AbstractSourceCodeManager autoload.
|
|
|
9934 |
].
|
|
|
9935 |
repositoryHolder := '' asValue.
|
|
4405
|
9936 |
rootsPerModule := Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule).
|
|
4286
|
9937 |
self loadRequest.
|
|
|
9938 |
super initialize
|
|
|
9939 |
!
|
|
|
9940 |
|
|
|
9941 |
postOpen
|
|
|
9942 |
!
|
|
|
9943 |
|
|
|
9944 |
postOpenAsSubcanvasWith:aBuilder
|
|
|
9945 |
|
|
|
9946 |
self postOpen.
|
|
|
9947 |
^ super postOpenAsSubcanvasWith:aBuilder
|
|
|
9948 |
!
|
|
|
9949 |
|
|
|
9950 |
postOpenWith:aBuilder
|
|
|
9951 |
|
|
|
9952 |
self postOpen.
|
|
|
9953 |
^ super postOpenWith:aBuilder
|
|
|
9954 |
! !
|
|
|
9955 |
|
|
4398
|
9956 |
!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
|
|
4286
|
9957 |
|
|
|
9958 |
hasManager
|
|
|
9959 |
^ AbstractSourceCodeManager notNil
|
|
|
9960 |
and:[AbstractSourceCodeManager isLoaded]
|
|
|
9961 |
!
|
|
|
9962 |
|
|
|
9963 |
hasUnsavedChanges
|
|
|
9964 |
|
|
|
9965 |
^ (
|
|
|
9966 |
self useManager value ~= (Smalltalk at:#SourceCodeManager) notNil or:[
|
|
|
9967 |
((self hasManager and:[self useManager value]) and:[
|
|
|
9968 |
Class tryLocalSourceFirst ~= self localSourceFirst value or:[
|
|
|
9969 |
AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]]
|
|
|
9970 |
) or:[
|
|
4405
|
9971 |
(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value or:[
|
|
|
9972 |
CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value or:[
|
|
|
9973 |
CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value or:[
|
|
|
9974 |
(Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule
|
|
|
9975 |
]]]]]
|
|
4286
|
9976 |
)
|
|
|
9977 |
! !
|
|
|
9978 |
|
|
|
9979 |
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
|
|
|
9980 |
|
|
|
9981 |
standardStyles
|
|
|
9982 |
|
|
|
9983 |
^ #(
|
|
|
9984 |
'decWindows'
|
|
|
9985 |
'iris'
|
|
|
9986 |
'motif'
|
|
|
9987 |
'mswindows95'
|
|
|
9988 |
'next'
|
|
|
9989 |
'normal'
|
|
|
9990 |
'os2'
|
|
|
9991 |
'st80'
|
|
|
9992 |
)
|
|
|
9993 |
! !
|
|
|
9994 |
|
|
4312
|
9995 |
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
|
|
|
9996 |
|
|
|
9997 |
defaultIcon
|
|
|
9998 |
"This resource specification was automatically generated
|
|
|
9999 |
by the ImageEditor of ST/X."
|
|
|
10000 |
|
|
|
10001 |
"Do not manually edit this!! If it is corrupted,
|
|
|
10002 |
the ImageEditor may not be able to read the specification."
|
|
|
10003 |
|
|
|
10004 |
"
|
|
|
10005 |
self defaultIcon inspect
|
|
|
10006 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
10007 |
Icon flushCachedIcons
|
|
|
10008 |
"
|
|
|
10009 |
|
|
|
10010 |
<resource: #image>
|
|
|
10011 |
|
|
|
10012 |
^Icon
|
|
|
10013 |
constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
|
|
|
10014 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
10015 |
@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
|
|
|
10016 |
@@@@@@LB@ HFA \G@PD@@@@@@@@@@@@@@@LB@ HB@ GA0(J@P@@@@@@@@@@@@LB@ HB@ HBB \IB ,A@@@@@@@@@@LB@ HB@ HB@ 4NB ,OC0DE@@@@@@LB
|
|
|
10017 |
@ HB@ HB@ HB@ 8OC0TE@P@@@@@@@0HB@ HB@ HBCQDQC0TEAPHP@AHRD!!HRD!!HRD!!HRD!!HRD!!HAA@HC@@@RD HED1LTEQXVE1 BAPTR@ DC@@@@D!!HBAQLS
|
|
|
10018 |
EATVE!!\X@ TED HC@@@@@AHRAPPYFQ([GA0]G TDAAHC@@@@@@@C@0HB@ HB@ HB@!!<MDQDC@@@@@@@@@0LB@ HB@ HB@ H_CQDQ@0@@@@@@@@LC@ HB@ HB
|
|
|
10019 |
@ HBCP4QDPL@@@@@@@@C@0HB@ HB@ HB@ 4MDQDC@@@@@@@@@0LB@ HB@ HB@!!<MDQDQ@0@@@@@@@@LC@ HB@ HB@ H_CQDQDPL@@@@@@@@C@0HB@ HB@ HB
|
|
|
10020 |
CP4QDQDC@@@@@@@@@0LC@0LC@0LC@0LC@0LC@0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 88 248 248 248 80 80 80 128 128 128 192 192 192 64 144 136 48 120 112 56 136 128 56 128 120 40 104 96 40 104 104 32 96 96 232 232 232 32 88 88 32 88 80 64 104 104 224 224 224 0 88 128 24 152 192 16 136 184 16 128 168 8 120 160 8 112 152 8 104 144 16 120 152 16 112 144 8 104 136 8 96 128 8 88 120 0 80 112 240 240 240]; 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]
|
|
|
10021 |
! !
|
|
|
10022 |
|
|
4286
|
10023 |
!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
|
|
|
10024 |
|
|
|
10025 |
windowSpec
|
|
|
10026 |
"This resource specification was automatically generated
|
|
|
10027 |
by the UIPainter of ST/X."
|
|
|
10028 |
|
|
|
10029 |
"Do not manually edit this!! If it is corrupted,
|
|
|
10030 |
the UIPainter may not be able to read the specification."
|
|
|
10031 |
|
|
|
10032 |
"
|
|
4310
|
10033 |
UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
|
|
|
10034 |
AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
|
|
|
10035 |
AbstractSettingsApplication::StyleSettingsAppl open
|
|
4286
|
10036 |
"
|
|
|
10037 |
|
|
|
10038 |
<resource: #canvas>
|
|
|
10039 |
|
|
|
10040 |
^
|
|
|
10041 |
#(#FullSpec
|
|
|
10042 |
#name: #windowSpec
|
|
|
10043 |
#window:
|
|
|
10044 |
#(#WindowSpec
|
|
4405
|
10045 |
#label: 'Style Selection Settings'
|
|
|
10046 |
#name: 'Style Selection Settings'
|
|
4286
|
10047 |
#min: #(#Point 10 10)
|
|
|
10048 |
#max: #(#Point 1024 768)
|
|
|
10049 |
#bounds: #(#Rectangle 12 22 487 553)
|
|
|
10050 |
)
|
|
|
10051 |
#component:
|
|
|
10052 |
#(#SpecCollection
|
|
|
10053 |
#collection: #(
|
|
|
10054 |
#(#LabelSpec
|
|
|
10055 |
#label: 'Label'
|
|
|
10056 |
#name: 'Label1'
|
|
4310
|
10057 |
#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
|
|
4286
|
10058 |
#style: #(#FontDescription #helvetica #bold #roman 12)
|
|
|
10059 |
#translateLabel: true
|
|
|
10060 |
#labelChannel: #infoLabelHolder
|
|
|
10061 |
#resizeForLabel: true
|
|
|
10062 |
#adjust: #left
|
|
|
10063 |
)
|
|
|
10064 |
#(#LabelSpec
|
|
|
10065 |
#label: 'NoticeText'
|
|
|
10066 |
#name: 'Text'
|
|
|
10067 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
|
|
|
10068 |
#translateLabel: true
|
|
|
10069 |
#labelChannel: #noticeLabelHolder
|
|
|
10070 |
#resizeForLabel: true
|
|
|
10071 |
#adjust: #left
|
|
|
10072 |
)
|
|
|
10073 |
#(#CheckBoxSpec
|
|
|
10074 |
#label: 'standard styles only'
|
|
|
10075 |
#name: 'CheckBox1'
|
|
|
10076 |
#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
|
|
|
10077 |
#model: #showStandardStylesOnly
|
|
|
10078 |
#translateLabel: true
|
|
|
10079 |
)
|
|
|
10080 |
#(#SequenceViewSpec
|
|
|
10081 |
#name: 'StyleList'
|
|
4310
|
10082 |
#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
|
|
4286
|
10083 |
#model: #selectedStyle
|
|
|
10084 |
#hasHorizontalScrollBar: true
|
|
|
10085 |
#hasVerticalScrollBar: true
|
|
|
10086 |
#useIndex: false
|
|
|
10087 |
#sequenceList: #styleList
|
|
|
10088 |
)
|
|
|
10089 |
)
|
|
|
10090 |
|
|
|
10091 |
)
|
|
|
10092 |
)
|
|
|
10093 |
! !
|
|
|
10094 |
|
|
|
10095 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
|
|
|
10096 |
|
|
|
10097 |
evaluateModified
|
|
|
10098 |
|
|
|
10099 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
10100 |
!
|
|
|
10101 |
|
|
|
10102 |
help
|
|
|
10103 |
|
|
|
10104 |
self warn:'no help available here'.
|
|
|
10105 |
"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
|
|
|
10106 |
!
|
|
|
10107 |
|
|
|
10108 |
loadRequest
|
|
|
10109 |
|
|
|
10110 |
self modifiedChannel value:false.
|
|
|
10111 |
!
|
|
|
10112 |
|
|
|
10113 |
saveSettings
|
|
|
10114 |
|
|
|
10115 |
| newStyle master requestor|
|
|
|
10116 |
|
|
|
10117 |
newStyle := self selectedStyle value.
|
|
|
10118 |
master := self masterApplication.
|
|
|
10119 |
master notNil ifTrue:[
|
|
|
10120 |
requestor := master requestor.
|
|
|
10121 |
].
|
|
|
10122 |
self hasUnsavedChanges ifTrue:[
|
|
|
10123 |
| launcher |
|
|
|
10124 |
requestor notNil ifTrue:[
|
|
|
10125 |
launcher := requestor.
|
|
|
10126 |
] ifFalse:[
|
|
|
10127 |
| transcript |
|
|
|
10128 |
transcript := Transcript current.
|
|
|
10129 |
transcript notNil ifTrue:[
|
|
|
10130 |
| app|
|
|
|
10131 |
app := transcript topView application.
|
|
|
10132 |
(app respondsTo:#reopenLauncher) ifTrue:[
|
|
|
10133 |
launcher := app.
|
|
|
10134 |
].
|
|
|
10135 |
].
|
|
|
10136 |
].
|
|
|
10137 |
self withWaitCursorDo:[
|
|
|
10138 |
Transcript showCR:'change style to ' , newStyle , ' ...'.
|
|
|
10139 |
View defaultStyle:newStyle asSymbol.
|
|
|
10140 |
].
|
|
|
10141 |
launcher notNil ifTrue:[
|
|
|
10142 |
launcher reopenLauncher.
|
|
|
10143 |
].
|
|
|
10144 |
DebugView newDebugger.
|
|
|
10145 |
self modifiedChannel value:false.
|
|
|
10146 |
].
|
|
|
10147 |
! !
|
|
|
10148 |
|
|
|
10149 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
|
|
|
10150 |
|
|
|
10151 |
infoLabelHolder
|
|
|
10152 |
|
|
|
10153 |
infoLabelHolder isNil ifTrue:[
|
|
|
10154 |
infoLabelHolder := '' asValue.
|
|
|
10155 |
].
|
|
|
10156 |
^ infoLabelHolder.
|
|
|
10157 |
!
|
|
|
10158 |
|
|
|
10159 |
modifiedChannel
|
|
|
10160 |
|
|
|
10161 |
modifiedChannel isNil ifTrue:[
|
|
|
10162 |
modifiedChannel := false asValue.
|
|
|
10163 |
].
|
|
|
10164 |
^ modifiedChannel
|
|
|
10165 |
!
|
|
|
10166 |
|
|
|
10167 |
noticeLabelHolder
|
|
|
10168 |
|
|
|
10169 |
noticeLabelHolder isNil ifTrue:[
|
|
|
10170 |
noticeLabelHolder := '' asValue.
|
|
|
10171 |
].
|
|
|
10172 |
^ noticeLabelHolder.
|
|
|
10173 |
!
|
|
|
10174 |
|
|
|
10175 |
selectedStyle
|
|
|
10176 |
|
|
|
10177 |
selectedStyle isNil ifTrue:[
|
|
|
10178 |
selectedStyle := ValueHolder new.
|
|
|
10179 |
selectedStyle addDependent:self.
|
|
|
10180 |
].
|
|
|
10181 |
^ selectedStyle.
|
|
|
10182 |
!
|
|
|
10183 |
|
|
|
10184 |
showStandardStylesOnly
|
|
|
10185 |
|
|
|
10186 |
showStandardStylesOnly isNil ifTrue:[
|
|
|
10187 |
showStandardStylesOnly := true asValue.
|
|
|
10188 |
showStandardStylesOnly addDependent:self.
|
|
|
10189 |
].
|
|
|
10190 |
^ showStandardStylesOnly.
|
|
|
10191 |
!
|
|
|
10192 |
|
|
|
10193 |
styleList
|
|
|
10194 |
|
|
|
10195 |
styleList isNil ifTrue:[
|
|
|
10196 |
styleList := List new.
|
|
|
10197 |
styleList addDependent:self.
|
|
|
10198 |
].
|
|
|
10199 |
^ styleList.
|
|
|
10200 |
! !
|
|
|
10201 |
|
|
|
10202 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
|
|
|
10203 |
|
|
|
10204 |
changeInfoLabel
|
|
|
10205 |
|
|
|
10206 |
|nm sheet comment|
|
|
|
10207 |
|
|
|
10208 |
comment := ''.
|
|
|
10209 |
nm := self selectedStyle value.
|
|
|
10210 |
nm notNil ifTrue:[
|
|
|
10211 |
sheet := ViewStyle fromFile:(nm , '.style').
|
|
|
10212 |
comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
|
|
|
10213 |
].
|
|
|
10214 |
comment := comment withCRs asStringCollection.
|
|
|
10215 |
comment size == 1 ifTrue:[
|
|
|
10216 |
comment := comment first
|
|
|
10217 |
].
|
|
|
10218 |
self infoLabelHolder value:comment
|
|
|
10219 |
!
|
|
|
10220 |
|
|
|
10221 |
update:something with:aParameter from:changedObject
|
|
|
10222 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
10223 |
|
|
|
10224 |
"stub code automatically generated - please change as required"
|
|
|
10225 |
|
|
|
10226 |
changedObject == self showStandardStylesOnly ifTrue:[
|
|
|
10227 |
self updateList.
|
|
|
10228 |
^ self.
|
|
|
10229 |
].
|
|
|
10230 |
changedObject == self selectedStyle ifTrue:[
|
|
|
10231 |
self changeInfoLabel.
|
|
|
10232 |
self evaluateModified.
|
|
|
10233 |
^ self.
|
|
|
10234 |
].
|
|
|
10235 |
|
|
|
10236 |
super update:something with:aParameter from:changedObject
|
|
|
10237 |
!
|
|
|
10238 |
|
|
|
10239 |
updateList
|
|
|
10240 |
|
|
|
10241 |
|listOfStyles lastSelection|
|
|
|
10242 |
|
|
|
10243 |
lastSelection := self selectedStyle value.
|
|
|
10244 |
listOfStyles := styleDirectoryContents select:[:aFileName | aFileName asFilename hasSuffix:'style'].
|
|
|
10245 |
listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename withoutSuffix name].
|
|
|
10246 |
Filename isCaseSensitive ifFalse:[
|
|
|
10247 |
listOfStyles := listOfStyles collect:[:aStyleName | aStyleName asLowercase].
|
|
|
10248 |
].
|
|
|
10249 |
listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
|
|
|
10250 |
self showStandardStylesOnly value ifTrue:[
|
|
|
10251 |
listOfStyles := listOfStyles select:[:aStyleName | self class standardStyles includes:aStyleName].
|
|
|
10252 |
].
|
|
|
10253 |
|
|
|
10254 |
listOfStyles sort.
|
|
|
10255 |
self styleList contents:listOfStyles.
|
|
|
10256 |
self selectedStyle value:lastSelection.
|
|
|
10257 |
! !
|
|
|
10258 |
|
|
|
10259 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
|
|
|
10260 |
|
|
|
10261 |
closeDownViews
|
|
|
10262 |
"This is a hook method generated by the Browser.
|
|
|
10263 |
It will be invoked when your app/dialog-window is really closed.
|
|
|
10264 |
See also #closeDownViews, which is invoked before and may suppress the close
|
|
|
10265 |
or ask the user for confirmation."
|
|
|
10266 |
|
|
|
10267 |
"/ change the code below as required ...
|
|
|
10268 |
"/ This should cleanup any leftover resources
|
|
|
10269 |
"/ (for example, temporary files)
|
|
|
10270 |
"/ super closeRequest will initiate the closeDown
|
|
|
10271 |
|
|
|
10272 |
"/ add your code here
|
|
|
10273 |
|
|
|
10274 |
"/ do not remove the one below ...
|
|
|
10275 |
^ super closeDownViews
|
|
|
10276 |
!
|
|
|
10277 |
|
|
|
10278 |
initialize
|
|
|
10279 |
|
|
|
10280 |
|someRsrcFile resourceDir|
|
|
|
10281 |
|
|
4387
|
10282 |
resources := self class classResources.
|
|
4286
|
10283 |
someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
|
|
|
10284 |
someRsrcFile isNil ifTrue:[
|
|
|
10285 |
someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
|
|
|
10286 |
someRsrcFile isNil ifTrue:[
|
|
|
10287 |
someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
|
|
|
10288 |
].
|
|
|
10289 |
].
|
|
|
10290 |
someRsrcFile notNil ifTrue:[
|
|
|
10291 |
resourceDir := someRsrcFile asFilename directoryName
|
|
|
10292 |
] ifFalse:[
|
|
|
10293 |
resourceDir := Smalltalk getSystemFileName:'resources'.
|
|
|
10294 |
].
|
|
|
10295 |
|
|
|
10296 |
resourceDir isNil ifTrue:[
|
|
|
10297 |
self warn:'no styles found (missing ''resources'' directory)'.
|
|
|
10298 |
^ self
|
|
|
10299 |
].
|
|
|
10300 |
styleDirectoryContents := resourceDir asFilename directoryContents.
|
|
|
10301 |
self updateList.
|
|
|
10302 |
(self class standardStyles includes:View defaultStyle) ifFalse:[
|
|
|
10303 |
self showStandardStylesOnly value:false
|
|
|
10304 |
].
|
|
|
10305 |
self selectedStyle value:(View defaultStyle).
|
|
|
10306 |
self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
|
|
|
10307 |
super initialize
|
|
|
10308 |
! !
|
|
|
10309 |
|
|
|
10310 |
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
|
|
|
10311 |
|
|
|
10312 |
hasUnsavedChanges
|
|
|
10313 |
|
|
|
10314 |
^ (self selectedStyle value ~= View defaultStyle)
|
|
|
10315 |
! !
|
|
|
10316 |
|
|
4398
|
10317 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
|
|
|
10318 |
|
|
|
10319 |
emphasisList
|
|
|
10320 |
|
|
|
10321 |
^ #(
|
|
|
10322 |
#normal
|
|
|
10323 |
#underline
|
|
|
10324 |
#'red underline'
|
|
|
10325 |
#underwave
|
|
|
10326 |
#'red underwave'
|
|
|
10327 |
#bold
|
|
|
10328 |
#boldUnderline
|
|
|
10329 |
#'bold+red underline'
|
|
|
10330 |
#boldUnderwave
|
|
|
10331 |
#'bold+red underwave'
|
|
|
10332 |
#italic
|
|
|
10333 |
#italicUnderline
|
|
|
10334 |
#'italic+red underline'
|
|
|
10335 |
#italicUnderwave
|
|
|
10336 |
#'italic+red underwave'
|
|
|
10337 |
#reverse
|
|
|
10338 |
)
|
|
|
10339 |
!
|
|
|
10340 |
|
|
|
10341 |
exampleText
|
|
|
10342 |
|
|
|
10343 |
^ 'methodSelector:methodArg
|
|
|
10344 |
"method comment:
|
|
|
10345 |
some stupid code to show the current settings"
|
|
|
10346 |
|
|
|
10347 |
|methodVar|
|
|
|
10348 |
|
|
|
10349 |
"/ another comment ...
|
|
|
10350 |
self at:methodArg. "/ a message
|
|
|
10351 |
self fooBarBaz:methodVar. "/ a bad message
|
|
|
10352 |
methodVar := Array new:1.
|
|
|
10353 |
unknonVar := 1. "/ a bad variable
|
|
|
10354 |
UnknonVar := 1. "/ another bad variable
|
|
|
10355 |
"self bar:methodVar. detect commented code easily"
|
|
|
10356 |
1 to:5 do:[:i | self at:i + 1].
|
|
|
10357 |
Transcript showCR:''some string'' , #someSymbol.
|
|
|
10358 |
^ self.
|
|
|
10359 |
'.
|
|
|
10360 |
!
|
|
|
10361 |
|
|
|
10362 |
fontList
|
|
|
10363 |
|
|
|
10364 |
^ #(
|
|
|
10365 |
normal
|
|
|
10366 |
underline
|
|
|
10367 |
#'red underline'
|
|
|
10368 |
underwave
|
|
|
10369 |
#'red underwave'
|
|
|
10370 |
bold
|
|
|
10371 |
boldUnderline
|
|
|
10372 |
#'bold+red underline'
|
|
|
10373 |
boldUnderwave
|
|
|
10374 |
#'bold+red underwave'
|
|
|
10375 |
italic
|
|
|
10376 |
italicUnderline
|
|
|
10377 |
#'italic+red underline'
|
|
|
10378 |
italicUnderwave
|
|
|
10379 |
#'italic+red underwave'
|
|
|
10380 |
reverse
|
|
|
10381 |
)
|
|
|
10382 |
! !
|
|
|
10383 |
|
|
|
10384 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
|
|
|
10385 |
|
|
|
10386 |
defaultIcon
|
|
|
10387 |
"This resource specification was automatically generated
|
|
|
10388 |
by the ImageEditor of ST/X."
|
|
|
10389 |
|
|
|
10390 |
"Do not manually edit this!! If it is corrupted,
|
|
|
10391 |
the ImageEditor may not be able to read the specification."
|
|
|
10392 |
|
|
|
10393 |
"
|
|
|
10394 |
self defaultIcon inspect
|
|
|
10395 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
10396 |
Icon flushCachedIcons
|
|
|
10397 |
"
|
|
|
10398 |
|
|
|
10399 |
<resource: #image>
|
|
|
10400 |
|
|
|
10401 |
^Icon
|
|
|
10402 |
constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
|
|
|
10403 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
10404 |
A0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\IBP$IBP$IBP$IBP$IBP$IBP$IBP\GBP$ABP$I@P$IBP$CBPLIBP$IBPLGA0$ABP$IBP$ABP$I@0$CBP$IBPLIA0\I
|
|
|
10405 |
@P$IBP$I@P$IBP$IBP$IBP$CBP\GBPDIBP$IBPDIBP$IBP$IBP$CBP$GA0$ABP$IBP$ABP$IBP$IBP$I@0$IA0\I@P$IBP$I@P$IBP$IBP$I@0$IBP\GBPDI
|
|
|
10406 |
BP$IBPDIBP$IBP$IBPLIBP$GA0$I@P$IBPDIBP$IBP$IBPLIBP$IA0\IBP$IBP$IBP$IBP$IBP$IBP$IBP\GBP$I@P$IBP$IBP$IBP$IBP$IBP$GA0$I@P$I
|
|
|
10407 |
BP$IBP$IBP$IBP$IBP$IA0\IBPDIBP$ABP$I@P$IBP$IBP$IBP\GBPDA@P$ABPDI@P$ABP$ABP$IBP$GA0$I@P$I@P$ABPDI@P$IBP$IBP$IA0\IBPDIBPDI
|
|
|
10408 |
@P$ABPDIBP$IBP$IBP\GBP$ABP$I@P$IBPDIBP$ABP$IBP$GA0$IBP$IBP$IBP$IBP$IBP$IBP$IA0\IA@$DBPPIA@$DBPPIBP$IBP$IBP\GBP$DBPPIA@$D
|
|
|
10409 |
BPPIA@$IBP$IBP$GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 0 0 255 255 0 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself]
|
|
|
10410 |
! !
|
|
|
10411 |
|
|
|
10412 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
|
|
|
10413 |
|
|
|
10414 |
windowSpec
|
|
|
10415 |
"This resource specification was automatically generated
|
|
|
10416 |
by the UIPainter of ST/X."
|
|
|
10417 |
|
|
|
10418 |
"Do not manually edit this!! If it is corrupted,
|
|
|
10419 |
the UIPainter may not be able to read the specification."
|
|
|
10420 |
|
|
|
10421 |
"
|
|
|
10422 |
UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
|
|
|
10423 |
AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
|
|
|
10424 |
AbstractSettingsApplication::SyntaxColorSettingsAppl open
|
|
|
10425 |
"
|
|
|
10426 |
|
|
|
10427 |
<resource: #canvas>
|
|
|
10428 |
|
|
|
10429 |
^
|
|
|
10430 |
#(#FullSpec
|
|
|
10431 |
#name: #windowSpec
|
|
|
10432 |
#window:
|
|
|
10433 |
#(#WindowSpec
|
|
|
10434 |
#label: 'Syntax Color Settings'
|
|
|
10435 |
#name: 'Syntax Color Settings'
|
|
|
10436 |
#min: #(#Point 10 10)
|
|
|
10437 |
#max: #(#Point 1024 768)
|
|
|
10438 |
#bounds: #(#Rectangle 16 42 711 651)
|
|
|
10439 |
)
|
|
|
10440 |
#component:
|
|
|
10441 |
#(#SpecCollection
|
|
|
10442 |
#collection: #(
|
|
|
10443 |
#(#VerticalPanelViewSpec
|
|
|
10444 |
#name: 'VerticalPanel2'
|
|
|
10445 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
|
10446 |
#horizontalLayout: #fit
|
|
|
10447 |
#verticalLayout: #topSpace
|
|
|
10448 |
#horizontalSpace: 3
|
|
|
10449 |
#verticalSpace: 3
|
|
|
10450 |
#component:
|
|
|
10451 |
#(#SpecCollection
|
|
|
10452 |
#collection: #(
|
|
|
10453 |
#(#VerticalPanelViewSpec
|
|
|
10454 |
#name: 'VerticalPanel1'
|
|
|
10455 |
#horizontalLayout: #fitSpace
|
|
|
10456 |
#verticalLayout: #topSpace
|
|
|
10457 |
#horizontalSpace: 5
|
|
|
10458 |
#verticalSpace: 8
|
|
|
10459 |
#component:
|
|
|
10460 |
#(#SpecCollection
|
|
|
10461 |
#collection: #(
|
|
|
10462 |
#(#CheckBoxSpec
|
|
|
10463 |
#label: 'Syntax Coloring'
|
|
|
10464 |
#name: 'CheckBox1'
|
|
|
10465 |
#model: #syntaxColoring
|
|
|
10466 |
#translateLabel: true
|
|
|
10467 |
#extent: #(#Point 685 22)
|
|
|
10468 |
)
|
|
|
10469 |
#(#CheckBoxSpec
|
|
|
10470 |
#label: 'Immediate Selector Check'
|
|
|
10471 |
#name: 'ImmediateSelectorCheckBox'
|
|
|
10472 |
#enableChannel: #syntaxColoring
|
|
|
10473 |
#model: #fullSelectorCheck
|
|
|
10474 |
#translateLabel: true
|
|
|
10475 |
#extent: #(#Point 685 22)
|
|
|
10476 |
)
|
|
|
10477 |
#(#TextEditorSpec
|
|
|
10478 |
#name: 'TextEditor2'
|
|
|
10479 |
#enableChannel: #syntaxColoring
|
|
|
10480 |
#model: #coloredText
|
|
|
10481 |
#hasHorizontalScrollBar: true
|
|
|
10482 |
#hasVerticalScrollBar: true
|
|
|
10483 |
#isReadOnly: true
|
|
|
10484 |
#extent: #(#Point 685 280)
|
|
|
10485 |
)
|
|
|
10486 |
#(#ViewSpec
|
|
|
10487 |
#name: 'Box11'
|
|
|
10488 |
#component:
|
|
|
10489 |
#(#SpecCollection
|
|
|
10490 |
#collection: #(
|
|
|
10491 |
#(#ComboListSpec
|
|
|
10492 |
#name: 'ComboList3'
|
|
|
10493 |
#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
|
|
|
10494 |
#enableChannel: #syntaxColoring
|
|
|
10495 |
#model: #syntaxElementSelection
|
|
|
10496 |
#comboList: #syntaxElementList
|
|
|
10497 |
#useIndex: false
|
|
|
10498 |
)
|
|
|
10499 |
)
|
|
|
10500 |
|
|
|
10501 |
)
|
|
|
10502 |
#extent: #(#Point 685 35)
|
|
|
10503 |
)
|
|
|
10504 |
#(#ViewSpec
|
|
|
10505 |
#name: 'Box12'
|
|
|
10506 |
#component:
|
|
|
10507 |
#(#SpecCollection
|
|
|
10508 |
#collection: #(
|
|
|
10509 |
#(#ComboListSpec
|
|
|
10510 |
#name: 'ComboList5'
|
|
|
10511 |
#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
|
|
|
10512 |
#enableChannel: #syntaxColoring
|
|
|
10513 |
#model: #syntaxEmphasisSelection
|
|
|
10514 |
#comboList: #syntaxEmphasisList
|
|
|
10515 |
#useIndex: false
|
|
|
10516 |
)
|
|
|
10517 |
#(#LabelSpec
|
|
|
10518 |
#label: 'Emphasis:'
|
|
|
10519 |
#name: 'Label1'
|
|
|
10520 |
#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
|
|
|
10521 |
#translateLabel: true
|
|
|
10522 |
#adjust: #left
|
|
|
10523 |
)
|
|
|
10524 |
)
|
|
|
10525 |
|
|
|
10526 |
)
|
|
|
10527 |
#extent: #(#Point 685 44)
|
|
|
10528 |
)
|
|
|
10529 |
#(#ViewSpec
|
|
|
10530 |
#name: 'Box1'
|
|
|
10531 |
#component:
|
|
|
10532 |
#(#SpecCollection
|
|
|
10533 |
#collection: #(
|
|
|
10534 |
#(#ColorMenuSpec
|
|
|
10535 |
#name: 'ColorMenu2'
|
|
|
10536 |
#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
|
|
|
10537 |
#enableChannel: #syntaxColoring
|
|
|
10538 |
#model: #syntaxColor
|
|
|
10539 |
#labelsAreColored: true
|
|
|
10540 |
)
|
|
|
10541 |
#(#LabelSpec
|
|
|
10542 |
#label: 'Text Color:'
|
|
|
10543 |
#name: 'Label2'
|
|
|
10544 |
#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
|
|
|
10545 |
#translateLabel: true
|
|
|
10546 |
#adjust: #left
|
|
|
10547 |
)
|
|
|
10548 |
)
|
|
|
10549 |
|
|
|
10550 |
)
|
|
|
10551 |
#extent: #(#Point 685 44)
|
|
|
10552 |
)
|
|
|
10553 |
#(#ViewSpec
|
|
|
10554 |
#name: 'Box10'
|
|
|
10555 |
#component:
|
|
|
10556 |
#(#SpecCollection
|
|
|
10557 |
#collection: #(
|
|
|
10558 |
#(#ActionButtonSpec
|
|
|
10559 |
#label: 'Reset To:'
|
|
|
10560 |
#name: 'Button2'
|
|
|
10561 |
#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
|
|
|
10562 |
#translateLabel: true
|
|
|
10563 |
#model: #resetToColorScheme
|
|
|
10564 |
#enableChannel: #syntaxColoring
|
|
|
10565 |
)
|
|
|
10566 |
#(#ComboListSpec
|
|
|
10567 |
#name: 'ComboList4'
|
|
|
10568 |
#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
|
|
|
10569 |
#enableChannel: #syntaxColoring
|
|
|
10570 |
#model: #resetListSelection
|
|
|
10571 |
#comboList: #resetList
|
|
|
10572 |
#useIndex: false
|
|
|
10573 |
)
|
|
|
10574 |
)
|
|
|
10575 |
|
|
|
10576 |
)
|
|
|
10577 |
#extent: #(#Point 685 35)
|
|
|
10578 |
)
|
|
|
10579 |
)
|
|
|
10580 |
|
|
|
10581 |
)
|
|
|
10582 |
#extent: #(#Point 695 609)
|
|
|
10583 |
)
|
|
|
10584 |
)
|
|
|
10585 |
|
|
|
10586 |
)
|
|
|
10587 |
)
|
|
|
10588 |
)
|
|
|
10589 |
|
|
|
10590 |
)
|
|
|
10591 |
)
|
|
|
10592 |
! !
|
|
|
10593 |
|
|
|
10594 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
|
|
|
10595 |
|
|
|
10596 |
evaluateModified
|
|
|
10597 |
|
|
|
10598 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
10599 |
!
|
|
|
10600 |
|
|
|
10601 |
formattingConfiguration
|
|
|
10602 |
"automatically generated by UIPainter ..."
|
|
|
10603 |
|
|
|
10604 |
"*** the code below performs no action"
|
|
|
10605 |
"*** (except for some feedback on the Transcript)"
|
|
|
10606 |
"*** Please change as required and accept in the browser."
|
|
|
10607 |
|
|
|
10608 |
"action to be added ..."
|
|
|
10609 |
|
|
|
10610 |
Transcript showCR:self class name, ': action for formattingConfiguration ...'.
|
|
|
10611 |
!
|
|
|
10612 |
|
|
|
10613 |
help
|
|
|
10614 |
|
|
|
10615 |
"/ self warn:'no help available here'.
|
|
|
10616 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
|
|
|
10617 |
!
|
|
|
10618 |
|
|
|
10619 |
loadRequest
|
|
|
10620 |
|
|
|
10621 |
| colorList resetListLoc|
|
|
|
10622 |
|
|
|
10623 |
oldUserPreferences notNil ifTrue:[
|
|
|
10624 |
(UserPreferences reset; current) declareAllFrom: oldUserPreferences
|
|
|
10625 |
].
|
|
|
10626 |
self syntaxColoring value:currentUserPrefs syntaxColoring.
|
|
|
10627 |
self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
|
|
|
10628 |
oldUserPreferences := currentUserPrefs copy.
|
|
|
10629 |
colorList := UserPreferences syntaxColorNames.
|
|
|
10630 |
resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes collect:[: entry | entry second].
|
|
|
10631 |
self resetList value:resetListLoc.
|
|
|
10632 |
self resetListSelection value:resetListLoc first.
|
|
|
10633 |
self syntaxEmphasisList value:self class emphasisList.
|
|
|
10634 |
self syntaxElementList value:colorList.
|
|
|
10635 |
self syntaxElementSelection value:(colorList at:1).
|
|
|
10636 |
self modifiedChannel value:false.
|
|
|
10637 |
!
|
|
|
10638 |
|
|
|
10639 |
recolor
|
|
|
10640 |
|
|
|
10641 |
|text|
|
|
|
10642 |
|
|
|
10643 |
self syntaxColoring value ifTrue:[
|
|
|
10644 |
text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
|
|
|
10645 |
] ifFalse:[
|
|
|
10646 |
text := self class exampleText.
|
|
|
10647 |
].
|
|
|
10648 |
self coloredText value:text
|
|
|
10649 |
!
|
|
|
10650 |
|
|
|
10651 |
resetToColorScheme
|
|
|
10652 |
|
|
|
10653 |
|resetSelector|
|
|
|
10654 |
|
|
|
10655 |
resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
|
|
|
10656 |
currentUserPrefs perform:resetSelector.
|
|
|
10657 |
self recolor.
|
|
|
10658 |
self evaluateModified.
|
|
|
10659 |
!
|
|
|
10660 |
|
|
|
10661 |
saveSettings
|
|
|
10662 |
|
|
|
10663 |
self hasUnsavedChanges ifTrue:[
|
|
|
10664 |
oldUserPreferences := currentUserPrefs copy.
|
|
|
10665 |
currentUserPrefs syntaxColoring:self syntaxColoring value.
|
|
|
10666 |
currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
|
|
|
10667 |
self modifiedChannel value:false.
|
|
|
10668 |
].
|
|
|
10669 |
! !
|
|
|
10670 |
|
|
|
10671 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
|
|
|
10672 |
|
|
|
10673 |
coloredText
|
|
|
10674 |
|
|
|
10675 |
coloredText isNil ifTrue:[
|
|
|
10676 |
coloredText := ValueHolder new.
|
|
|
10677 |
].
|
|
|
10678 |
^ coloredText.
|
|
|
10679 |
!
|
|
|
10680 |
|
|
|
10681 |
fullSelectorCheck
|
|
|
10682 |
|
|
|
10683 |
fullSelectorCheck isNil ifTrue:[
|
|
|
10684 |
fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
|
|
|
10685 |
fullSelectorCheck onChangeSend:#evaluateModified to:self
|
|
|
10686 |
].
|
|
|
10687 |
^ fullSelectorCheck.
|
|
|
10688 |
!
|
|
|
10689 |
|
|
|
10690 |
modifiedChannel
|
|
|
10691 |
|
|
|
10692 |
modifiedChannel isNil ifTrue:[
|
|
|
10693 |
modifiedChannel := false asValue.
|
|
|
10694 |
].
|
|
|
10695 |
^ modifiedChannel
|
|
|
10696 |
!
|
|
|
10697 |
|
|
|
10698 |
resetList
|
|
|
10699 |
|
|
|
10700 |
resetList isNil ifTrue:[
|
|
|
10701 |
resetList := ValueHolder new.
|
|
|
10702 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
10703 |
"/ resetList addDependent:self.
|
|
|
10704 |
"/ resetList onChangeSend:#resetListChanged to:self.
|
|
|
10705 |
].
|
|
|
10706 |
^ resetList.
|
|
|
10707 |
!
|
|
|
10708 |
|
|
|
10709 |
resetListSelection
|
|
|
10710 |
|
|
|
10711 |
resetListSelection isNil ifTrue:[
|
|
|
10712 |
resetListSelection := ValueHolder new.
|
|
|
10713 |
].
|
|
|
10714 |
^ resetListSelection.
|
|
|
10715 |
!
|
|
|
10716 |
|
|
|
10717 |
syntaxColor
|
|
|
10718 |
|
|
|
10719 |
syntaxColor isNil ifTrue:[
|
|
|
10720 |
syntaxColor := ValueHolder new.
|
|
|
10721 |
syntaxColor addDependent:self.
|
|
|
10722 |
].
|
|
|
10723 |
^ syntaxColor.
|
|
|
10724 |
!
|
|
|
10725 |
|
|
|
10726 |
syntaxColoring
|
|
|
10727 |
|
|
|
10728 |
syntaxColoring isNil ifTrue:[
|
|
|
10729 |
syntaxColoring := true asValue.
|
|
|
10730 |
syntaxColoring addDependent:self.
|
|
|
10731 |
syntaxColoring onChangeSend:#evaluateModified to:self.
|
|
|
10732 |
].
|
|
|
10733 |
^ syntaxColoring.
|
|
|
10734 |
!
|
|
|
10735 |
|
|
|
10736 |
syntaxElementList
|
|
|
10737 |
"automatically generated by UIPainter ..."
|
|
|
10738 |
|
|
|
10739 |
"*** the code below creates a default model when invoked."
|
|
|
10740 |
"*** (which may not be the one you wanted)"
|
|
|
10741 |
"*** Please change as required and accept it in the browser."
|
|
|
10742 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
10743 |
|
|
|
10744 |
syntaxElementList isNil ifTrue:[
|
|
|
10745 |
syntaxElementList := ValueHolder new.
|
|
|
10746 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
10747 |
"/ syntaxElementList addDependent:self.
|
|
|
10748 |
"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
|
|
|
10749 |
].
|
|
|
10750 |
^ syntaxElementList.
|
|
|
10751 |
!
|
|
|
10752 |
|
|
|
10753 |
syntaxElementSelection
|
|
|
10754 |
|
|
|
10755 |
syntaxElementSelection isNil ifTrue:[
|
|
|
10756 |
syntaxElementSelection := ValueHolder new.
|
|
|
10757 |
syntaxElementSelection addDependent:self.
|
|
|
10758 |
"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
|
|
|
10759 |
].
|
|
|
10760 |
^ syntaxElementSelection.
|
|
|
10761 |
!
|
|
|
10762 |
|
|
|
10763 |
syntaxEmphasisList
|
|
|
10764 |
"automatically generated by UIPainter ..."
|
|
|
10765 |
|
|
|
10766 |
"*** the code below creates a default model when invoked."
|
|
|
10767 |
"*** (which may not be the one you wanted)"
|
|
|
10768 |
"*** Please change as required and accept it in the browser."
|
|
|
10769 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
10770 |
|
|
|
10771 |
syntaxEmphasisList isNil ifTrue:[
|
|
|
10772 |
syntaxEmphasisList := ValueHolder new.
|
|
|
10773 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
10774 |
"/ syntaxEmphasisList addDependent:self.
|
|
|
10775 |
"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
|
|
|
10776 |
].
|
|
|
10777 |
^ syntaxEmphasisList.
|
|
|
10778 |
!
|
|
|
10779 |
|
|
|
10780 |
syntaxEmphasisSelection
|
|
|
10781 |
|
|
|
10782 |
syntaxEmphasisSelection isNil ifTrue:[
|
|
|
10783 |
syntaxEmphasisSelection := ValueHolder new.
|
|
|
10784 |
syntaxEmphasisSelection addDependent:self.
|
|
|
10785 |
].
|
|
|
10786 |
^ syntaxEmphasisSelection.
|
|
|
10787 |
! !
|
|
|
10788 |
|
|
|
10789 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
|
|
|
10790 |
|
|
|
10791 |
getEmphasis:anEmphasisOrSymbol
|
|
|
10792 |
" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
|
|
|
10793 |
|
|
|
10794 |
^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
|
|
|
10795 |
!
|
|
|
10796 |
|
|
|
10797 |
syntaxColorChanged
|
|
|
10798 |
|
|
|
10799 |
currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
|
|
|
10800 |
self recolor.
|
|
|
10801 |
self evaluateModified.
|
|
|
10802 |
!
|
|
|
10803 |
|
|
|
10804 |
syntaxElementSelectionChanged
|
|
|
10805 |
|
|
|
10806 |
| syntaxEmphasisValue |
|
|
|
10807 |
|
|
|
10808 |
self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
|
|
|
10809 |
syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
|
|
|
10810 |
self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
|
|
|
10811 |
self recolor.
|
|
|
10812 |
!
|
|
|
10813 |
|
|
|
10814 |
syntaxEmphasisSelectionChanged
|
|
|
10815 |
|
|
|
10816 |
|em|
|
|
|
10817 |
|
|
|
10818 |
em := self getEmphasis:self syntaxEmphasisSelection value.
|
|
|
10819 |
currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
|
|
|
10820 |
self recolor.
|
|
|
10821 |
self evaluateModified.
|
|
|
10822 |
!
|
|
|
10823 |
|
|
|
10824 |
update:something with:aParameter from:changedObject
|
|
|
10825 |
"Invoked when an object that I depend upon sends a change notification."
|
|
|
10826 |
|
|
|
10827 |
"stub code automatically generated - please change as required"
|
|
|
10828 |
|
|
|
10829 |
changedObject == self syntaxElementSelection ifTrue:[
|
|
|
10830 |
self syntaxElementSelectionChanged.
|
|
|
10831 |
^ self.
|
|
|
10832 |
].
|
|
|
10833 |
changedObject == self syntaxColor ifTrue:[
|
|
|
10834 |
self syntaxColorChanged.
|
|
|
10835 |
^ self.
|
|
|
10836 |
].
|
|
|
10837 |
changedObject == self syntaxEmphasisSelection ifTrue:[
|
|
|
10838 |
self syntaxEmphasisSelectionChanged.
|
|
|
10839 |
^ self.
|
|
|
10840 |
].
|
|
|
10841 |
changedObject == self syntaxColoring ifTrue:[
|
|
|
10842 |
self recolor.
|
|
|
10843 |
^ self.
|
|
|
10844 |
].
|
|
|
10845 |
|
|
|
10846 |
|
|
|
10847 |
super update:something with:aParameter from:changedObject
|
|
|
10848 |
! !
|
|
|
10849 |
|
|
|
10850 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
|
|
|
10851 |
|
|
|
10852 |
initialize
|
|
|
10853 |
|
|
|
10854 |
resources := self class classResources.
|
|
|
10855 |
currentUserPrefs := UserPreferences current.
|
|
|
10856 |
self initializeEmphasisDictionary.
|
|
|
10857 |
resetListDictionary := Dictionary new.
|
|
|
10858 |
currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[: entry |
|
|
|
10859 |
resetListDictionary at:(entry at:1) put:(entry at:2).
|
|
|
10860 |
].
|
|
|
10861 |
self loadRequest.
|
|
|
10862 |
super initialize
|
|
|
10863 |
!
|
|
|
10864 |
|
|
|
10865 |
initializeEmphasisDictionary
|
|
|
10866 |
|
|
|
10867 |
emphasisDictionary := Dictionary new.
|
|
|
10868 |
self class emphasisList do:[ : entry |
|
|
|
10869 |
entry == #'red underline' ifTrue:[
|
|
|
10870 |
emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
|
|
|
10871 |
emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
|
|
|
10872 |
] ifFalse:[
|
|
|
10873 |
entry == #'red underwave' ifTrue:[
|
|
|
10874 |
emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
|
|
|
10875 |
emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
|
|
|
10876 |
] ifFalse:[
|
|
|
10877 |
entry == #'bold+red underline' ifTrue:[
|
|
|
10878 |
emphasisDictionary at:entry put:(Array with:#bold with:#underline with:(#underlineColor->Color red)).
|
|
|
10879 |
emphasisDictionary at:(Array with:#bold with:#underline with:(#underlineColor->Color red)) put:entry.
|
|
|
10880 |
] ifFalse:[
|
|
|
10881 |
entry == #'bold+red underwave' ifTrue:[
|
|
|
10882 |
emphasisDictionary at:entry put:(Array with:#bold with:#underwave with:(#underlineColor->Color red)).
|
|
|
10883 |
emphasisDictionary at:(Array with:#bold with:#underwave with:(#underlineColor->Color red)) put:entry.
|
|
|
10884 |
] ifFalse:[
|
|
|
10885 |
entry == #'italic+red underline' ifTrue:[
|
|
|
10886 |
emphasisDictionary at:entry put:(Array with:#italic with:#underline with:(#underlineColor->Color red)).
|
|
|
10887 |
emphasisDictionary at:(Array with:#italic with:#underline with:(#underlineColor->Color red)) put:entry.
|
|
|
10888 |
] ifFalse:[
|
|
|
10889 |
entry == #'italic+red underwave' ifTrue:[
|
|
|
10890 |
emphasisDictionary at:entry put:(Array with:#italic with:#underwave with:(#underlineColor->Color red)).
|
|
|
10891 |
emphasisDictionary at:(Array with:#italic with:#underwave with:(#underlineColor->Color red)) put:entry.
|
|
|
10892 |
] ifFalse:[
|
|
|
10893 |
emphasisDictionary at:entry put:entry
|
|
|
10894 |
]
|
|
|
10895 |
]
|
|
|
10896 |
]
|
|
|
10897 |
]
|
|
|
10898 |
]
|
|
|
10899 |
]
|
|
|
10900 |
].
|
|
|
10901 |
!
|
|
|
10902 |
|
|
|
10903 |
release
|
|
|
10904 |
|
|
|
10905 |
oldUserPreferences notNil ifTrue:[
|
|
|
10906 |
(UserPreferences reset; current) declareAllFrom:oldUserPreferences
|
|
|
10907 |
].
|
|
|
10908 |
super release
|
|
|
10909 |
! !
|
|
|
10910 |
|
|
|
10911 |
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
|
|
|
10912 |
|
|
|
10913 |
hasUnsavedChanges
|
|
|
10914 |
|
|
|
10915 |
|colorList colorPerformer emphasisPerformer|
|
|
|
10916 |
|
|
|
10917 |
colorList := UserPreferences syntaxColorNames.
|
|
|
10918 |
colorList do:[:syntaxElement |
|
|
|
10919 |
colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
|
|
|
10920 |
emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
|
|
|
10921 |
((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
|
|
|
10922 |
^ true
|
|
|
10923 |
].
|
|
|
10924 |
((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
|
|
|
10925 |
^ true
|
|
|
10926 |
].
|
|
|
10927 |
syntaxElement
|
|
|
10928 |
].
|
|
|
10929 |
currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
|
|
|
10930 |
currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
|
|
|
10931 |
^ false
|
|
|
10932 |
!
|
|
|
10933 |
|
|
|
10934 |
syntaxColorSelector
|
|
|
10935 |
|
|
|
10936 |
^ self syntaxColorSelectorForElement:self syntaxElementSelection value
|
|
|
10937 |
!
|
|
|
10938 |
|
|
|
10939 |
syntaxColorSelectorForElement:aSyntaxElement
|
|
|
10940 |
|
|
|
10941 |
^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
|
|
|
10942 |
!
|
|
|
10943 |
|
|
|
10944 |
syntaxEmphasisSelector
|
|
|
10945 |
|
|
|
10946 |
^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
|
|
|
10947 |
!
|
|
|
10948 |
|
|
|
10949 |
syntaxEmphasisSelectorForElement:anEmElement
|
|
|
10950 |
|
|
|
10951 |
^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
|
|
|
10952 |
! !
|
|
|
10953 |
|
|
4312
|
10954 |
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
|
|
|
10955 |
|
|
|
10956 |
defaultIcon
|
|
|
10957 |
"This resource specification was automatically generated
|
|
|
10958 |
by the ImageEditor of ST/X."
|
|
|
10959 |
|
|
|
10960 |
"Do not manually edit this!! If it is corrupted,
|
|
|
10961 |
the ImageEditor may not be able to read the specification."
|
|
|
10962 |
|
|
|
10963 |
"
|
|
|
10964 |
self defaultIcon inspect
|
|
|
10965 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
10966 |
Icon flushCachedIcons
|
|
|
10967 |
"
|
|
|
10968 |
|
|
|
10969 |
<resource: #image>
|
|
|
10970 |
|
|
|
10971 |
^Icon
|
|
|
10972 |
constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
|
|
|
10973 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
10974 |
@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
|
|
|
10975 |
@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
|
|
|
10976 |
@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
|
|
|
10977 |
N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
|
|
|
10978 |
RC$&I2\(D1LA@@@@@@@@@@@@@@\?Q$X7G2D!!IATU@P@@@@@@@@@@A0\2P$UEMQ VE!!$WE00B@@@@@@@@@@\GL$IEQSTXE!!XYE1\L@ @@@@@@@@@GA0=CPTD4
|
|
|
10979 |
GA4]G!!,[B@D@@@@@@@@@@@@GAPPD@ HB@ DA@PD@@@@@@@@a') ; colorMapFromArray:#[0 0 0 2 2 4 38 38 12 58 34 14 60 60 20 74 70 28 78 46 20 82 82 28 94 94 36 95 95 38 107 107 50 110 62 20 114 114 52 118 58 12 122 82 44 122 122 60 125 123 72 130 74 20 133 101 52 135 134 78 142 134 68 145 144 88 146 146 92 152 152 98 153 153 106 158 158 108 162 114 44 162 162 116 163 163 120 163 164 116 165 164 116 165 165 120 167 165 116 167 166 118 168 90 24 168 98 26 168 167 124 170 169 124 170 170 128 170 170 130 170 171 128 171 168 122 172 170 128 172 171 130 172 172 130 178 106 36 178 122 60 181 121 48 182 122 52 184 116 49 184 184 140 187 122 43 187 186 148 188 188 150 196 141 89 198 198 162 203 203 172 204 203 170 205 202 168 210 210 178 219 217 188 219 219 190 220 220 188 220 220 190 222 174 132 232 231 214 233 233 216 234 234 212 236 231 208 236 236 220 241 241 232 243 243 232 243 243 234]; 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]
|
|
|
10980 |
! !
|
|
|
10981 |
|
|
4286
|
10982 |
!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
|
|
|
10983 |
|
|
|
10984 |
windowSpec
|
|
|
10985 |
"This resource specification was automatically generated
|
|
|
10986 |
by the UIPainter of ST/X."
|
|
|
10987 |
|
|
|
10988 |
"Do not manually edit this!! If it is corrupted,
|
|
|
10989 |
the UIPainter may not be able to read the specification."
|
|
|
10990 |
|
|
|
10991 |
"
|
|
4310
|
10992 |
UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
|
|
|
10993 |
AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
|
|
|
10994 |
AbstractSettingsApplication::SystemMessageSettingsAppl open
|
|
4286
|
10995 |
"
|
|
|
10996 |
|
|
|
10997 |
<resource: #canvas>
|
|
|
10998 |
|
|
|
10999 |
^
|
|
|
11000 |
#(#FullSpec
|
|
|
11001 |
#name: #windowSpec
|
|
|
11002 |
#window:
|
|
|
11003 |
#(#WindowSpec
|
|
4398
|
11004 |
#label: 'Messages Settings'
|
|
|
11005 |
#name: 'Messages Settings'
|
|
4286
|
11006 |
#min: #(#Point 10 10)
|
|
|
11007 |
#max: #(#Point 1024 768)
|
|
4398
|
11008 |
#bounds: #(#Rectangle 16 42 577 391)
|
|
4286
|
11009 |
)
|
|
|
11010 |
#component:
|
|
|
11011 |
#(#SpecCollection
|
|
|
11012 |
#collection: #(
|
|
4310
|
11013 |
#(#VerticalPanelViewSpec
|
|
|
11014 |
#name: 'VerticalPanel2'
|
|
|
11015 |
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
|
|
4398
|
11016 |
#horizontalLayout: #fitSpace
|
|
|
11017 |
#verticalLayout: #topSpace
|
|
|
11018 |
#horizontalSpace: 5
|
|
|
11019 |
#verticalSpace: 5
|
|
4286
|
11020 |
#component:
|
|
|
11021 |
#(#SpecCollection
|
|
|
11022 |
#collection: #(
|
|
4310
|
11023 |
#(#VerticalPanelViewSpec
|
|
|
11024 |
#name: 'VerticalPanel1'
|
|
|
11025 |
#horizontalLayout: #fit
|
|
4398
|
11026 |
#verticalLayout: #topSpace
|
|
4310
|
11027 |
#horizontalSpace: 3
|
|
4398
|
11028 |
#verticalSpace: 20
|
|
4310
|
11029 |
#component:
|
|
|
11030 |
#(#SpecCollection
|
|
|
11031 |
#collection: #(
|
|
4398
|
11032 |
#(#FramedBoxSpec
|
|
|
11033 |
#label: 'Info & Error Messages'
|
|
|
11034 |
#name: 'FramedBox2'
|
|
|
11035 |
#labelPosition: #topLeft
|
|
4310
|
11036 |
#translateLabel: true
|
|
4398
|
11037 |
#component:
|
|
|
11038 |
#(#SpecCollection
|
|
|
11039 |
#collection: #(
|
|
|
11040 |
#(#CheckBoxSpec
|
|
|
11041 |
#label: 'VM Info Messages'
|
|
|
11042 |
#name: 'VMInfoMessages'
|
|
|
11043 |
#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
|
|
|
11044 |
#model: #vmInfo
|
|
|
11045 |
#translateLabel: true
|
|
|
11046 |
)
|
|
|
11047 |
#(#CheckBoxSpec
|
|
|
11048 |
#label: 'VM Error Messages'
|
|
|
11049 |
#name: 'VMErrorMessages'
|
|
|
11050 |
#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
|
|
|
11051 |
#model: #vmErrors
|
|
|
11052 |
#translateLabel: true
|
|
|
11053 |
)
|
|
|
11054 |
#(#CheckBoxSpec
|
|
|
11055 |
#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
|
|
|
11056 |
#name: 'DisplayErrorMessages'
|
|
|
11057 |
#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
|
|
|
11058 |
#model: #displayErrors
|
|
|
11059 |
#translateLabel: true
|
|
|
11060 |
)
|
|
|
11061 |
#(#CheckBoxSpec
|
|
|
11062 |
#label: 'Other Info Messages'
|
|
|
11063 |
#name: 'OtherInfoMessages'
|
|
|
11064 |
#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
|
|
|
11065 |
#model: #classInfos
|
|
|
11066 |
#translateLabel: true
|
|
|
11067 |
)
|
|
|
11068 |
)
|
|
|
11069 |
|
|
|
11070 |
)
|
|
|
11071 |
#extent: #(#Point 551 133)
|
|
|
11072 |
)
|
|
|
11073 |
#(#FramedBoxSpec
|
|
|
11074 |
#label: 'Change File'
|
|
|
11075 |
#name: 'FramedBox1'
|
|
|
11076 |
#labelPosition: #topLeft
|
|
4310
|
11077 |
#translateLabel: true
|
|
4398
|
11078 |
#component:
|
|
|
11079 |
#(#SpecCollection
|
|
|
11080 |
#collection: #(
|
|
|
11081 |
#(#CheckBoxSpec
|
|
|
11082 |
#label: 'Log compiles in Changefile'
|
|
|
11083 |
#name: 'CheckBox1'
|
|
|
11084 |
#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
|
|
|
11085 |
#model: #updChanges
|
|
|
11086 |
#translateLabel: true
|
|
|
11087 |
)
|
|
|
11088 |
#(#CheckBoxSpec
|
|
|
11089 |
#label: 'Log doIts in Changefile'
|
|
|
11090 |
#name: 'CheckBox2'
|
|
|
11091 |
#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
|
|
|
11092 |
#model: #logDoits
|
|
|
11093 |
#translateLabel: true
|
|
|
11094 |
)
|
|
|
11095 |
#(#LabelSpec
|
|
|
11096 |
#label: 'Changefile Name:'
|
|
|
11097 |
#name: 'ChangefileNameLabel'
|
|
|
11098 |
#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
|
|
|
11099 |
#translateLabel: true
|
|
|
11100 |
#adjust: #right
|
|
|
11101 |
)
|
|
|
11102 |
#(#InputFieldSpec
|
|
|
11103 |
#name: 'ChangeFileNameEntryField'
|
|
|
11104 |
#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
|
|
|
11105 |
#model: #changeFileName
|
|
|
11106 |
#immediateAccept: true
|
|
|
11107 |
#acceptOnReturn: true
|
|
|
11108 |
#acceptOnTab: true
|
|
|
11109 |
#acceptOnLostFocus: true
|
|
|
11110 |
#acceptOnPointerLeave: false
|
|
|
11111 |
)
|
|
|
11112 |
)
|
|
|
11113 |
|
|
|
11114 |
)
|
|
|
11115 |
#extent: #(#Point 551 120)
|
|
4310
|
11116 |
)
|
|
|
11117 |
)
|
|
|
11118 |
|
|
|
11119 |
)
|
|
4398
|
11120 |
#extent: #(#Point 551 250)
|
|
4286
|
11121 |
)
|
|
|
11122 |
)
|
|
|
11123 |
|
|
|
11124 |
)
|
|
|
11125 |
)
|
|
|
11126 |
)
|
|
|
11127 |
|
|
|
11128 |
)
|
|
|
11129 |
)
|
|
|
11130 |
! !
|
|
|
11131 |
|
|
|
11132 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
|
|
|
11133 |
|
|
|
11134 |
evaluateModified
|
|
|
11135 |
|
|
|
11136 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
11137 |
!
|
|
|
11138 |
|
|
|
11139 |
help
|
|
|
11140 |
|
|
|
11141 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
|
|
|
11142 |
!
|
|
|
11143 |
|
|
|
11144 |
loadRequest
|
|
|
11145 |
|
|
|
11146 |
self vmInfo value:ObjectMemory infoPrinting.
|
|
|
11147 |
self vmErrors value:ObjectMemory debugPrinting.
|
|
|
11148 |
self classInfos value:Object infoPrinting.
|
|
|
11149 |
self displayErrors value:DeviceWorkstation errorPrinting.
|
|
4398
|
11150 |
self changeFileName value:ObjectMemory nameForChanges.
|
|
|
11151 |
self logDoits value:Smalltalk logDoits.
|
|
|
11152 |
self updChanges value:Class updatingChanges.
|
|
4286
|
11153 |
self modifiedChannel value:false.
|
|
|
11154 |
!
|
|
|
11155 |
|
|
|
11156 |
saveSettings
|
|
|
11157 |
|
|
|
11158 |
ObjectMemory infoPrinting:self vmInfo value.
|
|
|
11159 |
ObjectMemory debugPrinting:self vmErrors value.
|
|
|
11160 |
Object infoPrinting:self classInfos value.
|
|
|
11161 |
DeviceWorkstation errorPrinting:self displayErrors value.
|
|
4398
|
11162 |
ObjectMemory nameForChanges:self changeFileName value.
|
|
|
11163 |
Smalltalk logDoits:self logDoits value.
|
|
|
11164 |
Class updateChanges:self updChanges value.
|
|
4286
|
11165 |
self modifiedChannel value:false.
|
|
|
11166 |
! !
|
|
|
11167 |
|
|
|
11168 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
|
|
|
11169 |
|
|
4398
|
11170 |
changeFileName
|
|
|
11171 |
|
|
|
11172 |
changeFileName isNil ifTrue:[
|
|
|
11173 |
changeFileName := ObjectMemory nameForChanges asValue.
|
|
|
11174 |
changeFileName onChangeSend:#evaluateModified to:self
|
|
|
11175 |
].
|
|
|
11176 |
^ changeFileName.
|
|
|
11177 |
!
|
|
|
11178 |
|
|
4286
|
11179 |
classInfos
|
|
|
11180 |
|
|
|
11181 |
classInfos isNil ifTrue:[
|
|
|
11182 |
classInfos := Object infoPrinting asValue.
|
|
|
11183 |
classInfos onChangeSend:#evaluateModified to:self
|
|
|
11184 |
].
|
|
|
11185 |
^ classInfos.
|
|
|
11186 |
!
|
|
|
11187 |
|
|
|
11188 |
displayErrors
|
|
|
11189 |
|
|
|
11190 |
displayErrors isNil ifTrue:[
|
|
|
11191 |
displayErrors := DeviceWorkstation errorPrinting asValue.
|
|
|
11192 |
displayErrors onChangeSend:#evaluateModified to:self
|
|
|
11193 |
].
|
|
|
11194 |
^ displayErrors.
|
|
|
11195 |
!
|
|
|
11196 |
|
|
4398
|
11197 |
logDoits
|
|
|
11198 |
|
|
|
11199 |
logDoits isNil ifTrue:[
|
|
|
11200 |
logDoits := Smalltalk logDoits asValue.
|
|
|
11201 |
logDoits onChangeSend:#evaluateModified to:self
|
|
|
11202 |
].
|
|
|
11203 |
^ logDoits.
|
|
|
11204 |
!
|
|
|
11205 |
|
|
4286
|
11206 |
modifiedChannel
|
|
|
11207 |
|
|
|
11208 |
modifiedChannel isNil ifTrue:[
|
|
|
11209 |
modifiedChannel := false asValue.
|
|
|
11210 |
].
|
|
|
11211 |
^ modifiedChannel
|
|
|
11212 |
!
|
|
|
11213 |
|
|
4398
|
11214 |
updChanges
|
|
|
11215 |
|
|
|
11216 |
updChanges isNil ifTrue:[
|
|
|
11217 |
updChanges := Class updatingChanges asValue.
|
|
|
11218 |
updChanges onChangeSend:#evaluateModified to:self
|
|
|
11219 |
].
|
|
|
11220 |
^ updChanges.
|
|
|
11221 |
!
|
|
|
11222 |
|
|
4286
|
11223 |
vmErrors
|
|
|
11224 |
|
|
|
11225 |
vmErrors isNil ifTrue:[
|
|
|
11226 |
vmErrors := ObjectMemory debugPrinting asValue.
|
|
|
11227 |
vmErrors onChangeSend:#evaluateModified to:self
|
|
|
11228 |
].
|
|
|
11229 |
^ vmErrors.
|
|
|
11230 |
!
|
|
|
11231 |
|
|
|
11232 |
vmInfo
|
|
|
11233 |
|
|
|
11234 |
vmInfo isNil ifTrue:[
|
|
|
11235 |
vmInfo := ObjectMemory infoPrinting asValue.
|
|
|
11236 |
vmInfo onChangeSend:#evaluateModified to:self
|
|
|
11237 |
].
|
|
|
11238 |
^ vmInfo.
|
|
|
11239 |
! !
|
|
|
11240 |
|
|
|
11241 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
|
|
|
11242 |
|
|
|
11243 |
initialize
|
|
|
11244 |
|
|
4387
|
11245 |
resources := self class classResources.
|
|
4286
|
11246 |
super initialize
|
|
|
11247 |
! !
|
|
|
11248 |
|
|
|
11249 |
!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
|
|
|
11250 |
|
|
|
11251 |
hasUnsavedChanges
|
|
|
11252 |
|
|
|
11253 |
^(self vmInfo value ~= ObjectMemory infoPrinting or:[
|
|
|
11254 |
self vmErrors value ~= ObjectMemory debugPrinting or:[
|
|
|
11255 |
self classInfos value ~= Object infoPrinting or:[
|
|
4398
|
11256 |
Smalltalk logDoits ~= self logDoits value or:[
|
|
|
11257 |
Class updatingChanges ~= self updChanges value or:[
|
|
|
11258 |
ObjectMemory nameForChanges ~= self changeFileName value or:[
|
|
|
11259 |
self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
|
|
4286
|
11260 |
! !
|
|
|
11261 |
|
|
4312
|
11262 |
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
|
|
|
11263 |
|
|
|
11264 |
defaultIcon
|
|
|
11265 |
"This resource specification was automatically generated
|
|
|
11266 |
by the ImageEditor of ST/X."
|
|
|
11267 |
|
|
|
11268 |
"Do not manually edit this!! If it is corrupted,
|
|
|
11269 |
the ImageEditor may not be able to read the specification."
|
|
|
11270 |
|
|
|
11271 |
"
|
|
|
11272 |
self defaultIcon inspect
|
|
|
11273 |
ImageEditor openOnClass:self andSelector:#defaultIcon
|
|
|
11274 |
Icon flushCachedIcons
|
|
|
11275 |
"
|
|
|
11276 |
|
|
|
11277 |
<resource: #image>
|
|
|
11278 |
|
|
|
11279 |
^Icon
|
|
|
11280 |
constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
|
|
|
11281 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
11282 |
@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@
|
|
|
11283 |
@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
|
|
|
11284 |
D <MB@@B@ MC0X@@@@@@@@B@ @@@@LCD@4OCP<MC08FA X@@@@@@ H@@@DR@0LCD@<MC08FA FA @@@@HB@@@@D!!HR@0LC@0LCA <LBPXF@@@B@ @@@@@@
|
|
|
11285 |
D!!HRD!!HC@0LCC04KBP@@@ H@@@@@@@@@@AHRD!!HR@0LCDP<@@@HB@@@@@@@@@@@@@@@@D!!HR@0LC@@@B@ @@@@@@@@@@@@X@@@@@D!!HR@0@@@ H@@@@@@@@@
|
|
|
11286 |
@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
|
|
|
11287 |
@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @a') ; colorMapFromArray:#[0 0 0 48 48 48 96 100 96 120 120 120 128 128 128 248 172 168 168 172 168 184 184 184 192 192 192 192 196 192 200 196 200 200 204 200 208 208 208 224 220 224 232 232 232 232 236 232 240 236 240 240 240 240 248 252 248]; 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? @B_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself]
|
|
|
11288 |
! !
|
|
|
11289 |
|
|
4286
|
11290 |
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
|
|
|
11291 |
|
|
|
11292 |
windowSpec
|
|
|
11293 |
"This resource specification was automatically generated
|
|
|
11294 |
by the UIPainter of ST/X."
|
|
|
11295 |
|
|
|
11296 |
"Do not manually edit this!! If it is corrupted,
|
|
|
11297 |
the UIPainter may not be able to read the specification."
|
|
|
11298 |
|
|
|
11299 |
"
|
|
4310
|
11300 |
UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
|
|
|
11301 |
AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
|
|
|
11302 |
AbstractSettingsApplication::ToolsSettingsAppl open
|
|
4286
|
11303 |
"
|
|
|
11304 |
|
|
|
11305 |
<resource: #canvas>
|
|
|
11306 |
|
|
|
11307 |
^
|
|
|
11308 |
#(#FullSpec
|
|
|
11309 |
#name: #windowSpec
|
|
|
11310 |
#window:
|
|
|
11311 |
#(#WindowSpec
|
|
4405
|
11312 |
#label: 'Tool Settings'
|
|
|
11313 |
#name: 'Tool Settings'
|
|
4286
|
11314 |
#min: #(#Point 10 10)
|
|
|
11315 |
#max: #(#Point 1024 768)
|
|
4387
|
11316 |
#bounds: #(#Rectangle 16 42 511 513)
|
|
4286
|
11317 |
)
|
|
|
11318 |
#component:
|
|
|
11319 |
#(#SpecCollection
|
|
|
11320 |
#collection: #(
|
|
4310
|
11321 |
#(#VerticalPanelViewSpec
|
|
4387
|
11322 |
#name: 'VerticalPanel2'
|
|
|
11323 |
#layout: #(#LayoutFrame 0 0 0 0 358 0 208 0)
|
|
|
11324 |
#horizontalLayout: #left
|
|
|
11325 |
#verticalLayout: #top
|
|
4286
|
11326 |
#horizontalSpace: 3
|
|
|
11327 |
#verticalSpace: 3
|
|
|
11328 |
#component:
|
|
|
11329 |
#(#SpecCollection
|
|
|
11330 |
#collection: #(
|
|
4387
|
11331 |
#(#CheckBoxSpec
|
|
|
11332 |
#label: 'Use the New Changes Browser'
|
|
|
11333 |
#name: 'ChangesBrowser'
|
|
|
11334 |
#model: #useNewChangesBrowser
|
|
|
11335 |
#translateLabel: true
|
|
|
11336 |
#extent: #(#Point 489 25)
|
|
|
11337 |
)
|
|
|
11338 |
#(#CheckBoxSpec
|
|
|
11339 |
#label: 'Use the New System Browser'
|
|
|
11340 |
#name: 'NewSystemBrowser'
|
|
|
11341 |
#model: #useNewSystemBrowser
|
|
|
11342 |
#translateLabel: true
|
|
|
11343 |
#extent: #(#Point 489 25)
|
|
|
11344 |
)
|
|
|
11345 |
#(#CheckBoxSpec
|
|
|
11346 |
#label: 'Use the New VersionDiff Browser'
|
|
|
11347 |
#name: 'VersionDiffBrowser'
|
|
|
11348 |
#model: #useNewVersionDiffBrowser
|
|
|
11349 |
#translateLabel: true
|
|
|
11350 |
#extent: #(#Point 489 25)
|
|
|
11351 |
)
|
|
|
11352 |
#(#CheckBoxSpec
|
|
|
11353 |
#label: 'Use the New File Browser'
|
|
|
11354 |
#name: 'NewFileBrowser'
|
|
|
11355 |
#model: #useNewFileBrowser
|
|
|
11356 |
#translateLabel: true
|
|
|
11357 |
#extent: #(#Point 489 25)
|
|
|
11358 |
)
|
|
|
11359 |
#(#CheckBoxSpec
|
|
|
11360 |
#label: 'Use the New FileTree File Dialog'
|
|
|
11361 |
#name: 'UseNewFileDialogCheckBox'
|
|
|
11362 |
#model: #useNewFileDialog
|
|
|
11363 |
#translateLabel: true
|
|
|
11364 |
#extent: #(#Point 489 25)
|
|
|
11365 |
)
|
|
|
11366 |
#(#CheckBoxSpec
|
|
|
11367 |
#label: 'Use the New Settings Dialog'
|
|
|
11368 |
#name: 'UseNewSettinsApplicationCheckBox'
|
|
|
11369 |
#model: #useNewSettingsApplication
|
|
|
11370 |
#translateLabel: true
|
|
|
11371 |
#extent: #(#Point 489 25)
|
|
|
11372 |
)
|
|
|
11373 |
#(#CheckBoxSpec
|
|
|
11374 |
#label: 'Use Hierarchical Inspector'
|
|
|
11375 |
#name: 'HierarchicalInspector'
|
|
|
11376 |
#model: #useNewInspector
|
|
|
11377 |
#translateLabel: true
|
|
|
11378 |
#extent: #(#Point 489 25)
|
|
|
11379 |
)
|
|
|
11380 |
#(#CheckBoxSpec
|
|
|
11381 |
#label: 'Show Clock in Launcher'
|
|
|
11382 |
#name: 'Clock'
|
|
|
11383 |
#model: #showClockInLauncher
|
|
|
11384 |
#translateLabel: true
|
|
|
11385 |
#extent: #(#Point 489 25)
|
|
|
11386 |
)
|
|
|
11387 |
#(#ViewSpec
|
|
|
11388 |
#name: 'Box1'
|
|
4310
|
11389 |
#component:
|
|
|
11390 |
#(#SpecCollection
|
|
|
11391 |
#collection: #(
|
|
4387
|
11392 |
#(#LabelSpec
|
|
|
11393 |
#label: 'Transcripts Buffer Size:'
|
|
|
11394 |
#name: 'Label1'
|
|
|
11395 |
#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
|
|
4310
|
11396 |
#translateLabel: true
|
|
4387
|
11397 |
#adjust: #right
|
|
|
11398 |
)
|
|
|
11399 |
#(#InputFieldSpec
|
|
|
11400 |
#name: 'Transcripts Buffer Size'
|
|
|
11401 |
#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
|
|
|
11402 |
#model: #transcriptBufferSize
|
|
|
11403 |
#type: #number
|
|
|
11404 |
#immediateAccept: true
|
|
|
11405 |
#acceptOnReturn: true
|
|
|
11406 |
#acceptOnTab: true
|
|
|
11407 |
#acceptOnLostFocus: true
|
|
|
11408 |
#acceptOnPointerLeave: false
|
|
4310
|
11409 |
)
|
|
|
11410 |
)
|
|
|
11411 |
|
|
|
11412 |
)
|
|
4387
|
11413 |
#extent: #(#Point 489 27)
|
|
4286
|
11414 |
)
|
|
|
11415 |
)
|
|
|
11416 |
|
|
|
11417 |
)
|
|
4387
|
11418 |
#useDefaultExtent: true
|
|
4286
|
11419 |
)
|
|
|
11420 |
)
|
|
|
11421 |
|
|
|
11422 |
)
|
|
|
11423 |
)
|
|
|
11424 |
! !
|
|
|
11425 |
|
|
|
11426 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
|
|
|
11427 |
|
|
|
11428 |
evaluateModified
|
|
|
11429 |
|
|
|
11430 |
self modifiedChannel value:(self hasUnsavedChanges).
|
|
|
11431 |
!
|
|
|
11432 |
|
|
|
11433 |
help
|
|
|
11434 |
|
|
|
11435 |
self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
|
|
|
11436 |
!
|
|
|
11437 |
|
|
|
11438 |
loadRequest
|
|
|
11439 |
|
|
4398
|
11440 |
currentUserPrefs := UserPreferences current.
|
|
4286
|
11441 |
self showClockInLauncher value:currentUserPrefs showClockInLauncher.
|
|
|
11442 |
self transcriptBufferSize value:Transcript current lineLimit.
|
|
|
11443 |
self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
|
|
|
11444 |
self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
|
|
|
11445 |
self useNewInspector value:currentUserPrefs useNewInspector.
|
|
|
11446 |
self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
|
|
|
11447 |
self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
|
|
4387
|
11448 |
self useNewFileDialog value:currentUserPrefs useNewFileDialog.
|
|
|
11449 |
self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
|
|
4286
|
11450 |
self modifiedChannel value:false.
|
|
|
11451 |
!
|
|
|
11452 |
|
|
|
11453 |
saveSettings
|
|
|
11454 |
|
|
4398
|
11455 |
| showClock launcher reopenLauncher|
|
|
|
11456 |
|
|
|
11457 |
currentUserPrefs := UserPreferences current.
|
|
4286
|
11458 |
currentUserPrefs useNewInspector:self useNewInspector value.
|
|
|
11459 |
currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
|
|
|
11460 |
currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
|
|
|
11461 |
currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
|
|
4387
|
11462 |
currentUserPrefs useNewFileDialog:self useNewFileDialog value.
|
|
|
11463 |
currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
|
|
|
11464 |
currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
|
|
|
11465 |
reopenLauncher := true.
|
|
|
11466 |
].
|
|
4286
|
11467 |
(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
|
|
4387
|
11468 |
currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
|
|
|
11469 |
currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
|
|
|
11470 |
(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
|
|
|
11471 |
FileBrowserV2 installInLauncher.
|
|
|
11472 |
] ifFalse:[
|
|
4286
|
11473 |
FileBrowserV2 removeFromLauncher.
|
|
4387
|
11474 |
].
|
|
|
11475 |
reopenLauncher := true.
|
|
|
11476 |
]
|
|
4286
|
11477 |
].
|
|
|
11478 |
showClock := self showClockInLauncher value.
|
|
|
11479 |
currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
|
|
|
11480 |
currentUserPrefs showClockInLauncher:showClock.
|
|
|
11481 |
launcher := Transcript application.
|
|
|
11482 |
(launcher isKindOf:ToolApplicationModel) ifTrue:[
|
|
|
11483 |
showClock ifTrue:[
|
|
|
11484 |
launcher startClock
|
|
|
11485 |
] ifFalse:[
|
|
|
11486 |
launcher stopClock
|
|
|
11487 |
]
|
|
|
11488 |
]
|
|
|
11489 |
].
|
|
|
11490 |
Inspector := currentUserPrefs inspectorClassSetting.
|
|
|
11491 |
Transcript current lineLimit:self transcriptBufferSize value.
|
|
4387
|
11492 |
reopenLauncher ifTrue:[
|
|
|
11493 |
launcher := Transcript application.
|
|
|
11494 |
(launcher isKindOf:ToolApplicationModel) ifTrue:[
|
|
|
11495 |
launcher reopenLauncher.
|
|
|
11496 |
]
|
|
|
11497 |
].
|
|
4398
|
11498 |
currentUserPrefs := UserPreferences current.
|
|
4286
|
11499 |
self modifiedChannel value:false.
|
|
|
11500 |
! !
|
|
|
11501 |
|
|
|
11502 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
|
|
|
11503 |
|
|
|
11504 |
modifiedChannel
|
|
|
11505 |
|
|
|
11506 |
modifiedChannel isNil ifTrue:[
|
|
|
11507 |
modifiedChannel := false asValue.
|
|
|
11508 |
].
|
|
|
11509 |
^ modifiedChannel
|
|
|
11510 |
!
|
|
|
11511 |
|
|
|
11512 |
showClockInLauncher
|
|
|
11513 |
|
|
|
11514 |
showClockInLauncher isNil ifTrue:[
|
|
|
11515 |
showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
|
|
|
11516 |
showClockInLauncher onChangeSend:#evaluateModified to:self
|
|
|
11517 |
].
|
|
|
11518 |
^ showClockInLauncher.
|
|
|
11519 |
!
|
|
|
11520 |
|
|
|
11521 |
transcriptBufferSize
|
|
|
11522 |
|
|
|
11523 |
transcriptBufferSize isNil ifTrue:[
|
|
|
11524 |
transcriptBufferSize := Transcript current lineLimit asValue.
|
|
|
11525 |
transcriptBufferSize onChangeSend:#evaluateModified to:self
|
|
|
11526 |
].
|
|
|
11527 |
^ transcriptBufferSize.
|
|
|
11528 |
!
|
|
|
11529 |
|
|
|
11530 |
useNewChangesBrowser
|
|
|
11531 |
|
|
|
11532 |
useNewChangesBrowser isNil ifTrue:[
|
|
|
11533 |
useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
|
|
|
11534 |
useNewChangesBrowser onChangeSend:#evaluateModified to:self
|
|
|
11535 |
].
|
|
|
11536 |
^ useNewChangesBrowser.
|
|
|
11537 |
!
|
|
|
11538 |
|
|
|
11539 |
useNewFileBrowser
|
|
|
11540 |
|
|
|
11541 |
useNewFileBrowser isNil ifTrue:[
|
|
|
11542 |
useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
|
|
|
11543 |
useNewFileBrowser onChangeSend:#evaluateModified to:self
|
|
|
11544 |
].
|
|
|
11545 |
^ useNewFileBrowser.
|
|
|
11546 |
!
|
|
|
11547 |
|
|
4387
|
11548 |
useNewFileDialog
|
|
|
11549 |
|
|
|
11550 |
useNewFileDialog isNil ifTrue:[
|
|
|
11551 |
useNewFileDialog := true asValue.
|
|
|
11552 |
useNewFileDialog onChangeSend:#evaluateModified to:self
|
|
|
11553 |
].
|
|
|
11554 |
^ useNewFileDialog.
|
|
|
11555 |
!
|
|
|
11556 |
|
|
4286
|
11557 |
useNewInspector
|
|
|
11558 |
|
|
|
11559 |
useNewInspector isNil ifTrue:[
|
|
|
11560 |
useNewInspector := currentUserPrefs useNewInspector asValue.
|
|
|
11561 |
useNewInspector onChangeSend:#evaluateModified to:self
|
|
|
11562 |
].
|
|
|
11563 |
^ useNewInspector.
|
|
|
11564 |
!
|
|
|
11565 |
|
|
4387
|
11566 |
useNewSettingsApplication
|
|
|
11567 |
|
|
|
11568 |
useNewSettingsApplication isNil ifTrue:[
|
|
|
11569 |
useNewSettingsApplication := true asValue.
|
|
|
11570 |
useNewSettingsApplication onChangeSend:#evaluateModified to:self
|
|
|
11571 |
].
|
|
|
11572 |
^ useNewSettingsApplication.
|
|
|
11573 |
!
|
|
|
11574 |
|
|
4286
|
11575 |
useNewSystemBrowser
|
|
|
11576 |
|
|
|
11577 |
useNewSystemBrowser isNil ifTrue:[
|
|
|
11578 |
useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
|
|
|
11579 |
useNewSystemBrowser onChangeSend:#evaluateModified to:self
|
|
|
11580 |
].
|
|
|
11581 |
^ useNewSystemBrowser.
|
|
|
11582 |
!
|
|
|
11583 |
|
|
|
11584 |
useNewVersionDiffBrowser
|
|
|
11585 |
|
|
|
11586 |
useNewVersionDiffBrowser isNil ifTrue:[
|
|
|
11587 |
useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
|
|
|
11588 |
useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
|
|
|
11589 |
].
|
|
|
11590 |
^ useNewVersionDiffBrowser.
|
|
|
11591 |
! !
|
|
|
11592 |
|
|
|
11593 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'initialization & release'!
|
|
|
11594 |
|
|
|
11595 |
initialize
|
|
|
11596 |
|
|
4387
|
11597 |
resources := self class classResources.
|
|
4286
|
11598 |
currentUserPrefs := UserPreferences current.
|
|
4387
|
11599 |
self loadRequest.
|
|
4286
|
11600 |
super initialize
|
|
|
11601 |
! !
|
|
|
11602 |
|
|
|
11603 |
!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
|
|
|
11604 |
|
|
|
11605 |
hasUnsavedChanges
|
|
|
11606 |
|
|
|
11607 |
^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
|
|
|
11608 |
(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
|
|
|
11609 |
(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
|
|
|
11610 |
(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
|
|
|
11611 |
(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
|
|
|
11612 |
(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
|
|
4387
|
11613 |
(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
|
|
|
11614 |
(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
|
|
|
11615 |
(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]])
|
|
4286
|
11616 |
! !
|
|
|
11617 |
|
|
4226
|
11618 |
!AbstractSettingsApplication class methodsFor:'documentation'!
|
|
|
11619 |
|
|
|
11620 |
version
|
|
4405
|
11621 |
^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.16 2002-12-20 15:59:44 penk Exp $'
|
|
|
11622 |
! !
|