hg/stx-libtool: AbstractSettingsApplication.st@a6c7441cb4ed (annotated)

5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	1	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	3	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	4
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	5	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	6	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	7	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	8	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	9	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	10	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	11	"
4226 44e2f83cc526 initial checkin penk parents: diff changeset	12	"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin penk parents: diff changeset	13
44e2f83cc526 initial checkin penk parents: diff changeset	14	ApplicationModel subclass:#AbstractSettingsApplication
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	15	instanceVariableNames:'settingsString currentUserPrefs rDoitOnlyViaLocalConnection
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	16	modifiedChannel settingsDialog requestor'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	17	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	18	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	19	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	20	!
44e2f83cc526 initial checkin penk parents: diff changeset	21
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	22	AbstractSettingsApplication subclass:#BuildSettingsAppl
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	23	instanceVariableNames:'buildDirectory localBuild'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	24	classVariableNames:''
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	25	poolDictionaries:''
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	26	privateIn:AbstractSettingsApplication
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	27	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	28
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	29	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	30	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	31	warnUnderscore warnCompatibility warnUnusedVars
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	32	warnAboutWrongVariableNames warnAboutBadComments
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	33	warnInconsistentReturnValues
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	34	warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	35	allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	36	allowUnderscore allowDolphinExtensions allowSqueakExtensions
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	37	allowVisualAgeESSymbolLiterals allowFixedPointLiterals
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	38	justInTimeCompilation canLoadBinaries constantFoldingSelection
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	39	keepSource constantFolding constantFoldingOptions
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	40	fullDebugSupport immutableArrays enableUnderscore enableDollar
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	41	allowEmptyStatements warnAboutPossibleSTCCompilationProblems
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	42	warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	43	warnAboutPossiblyUnimplementedSelectors
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	44	allowExtendedBinarySelectors warnAboutMissingMethodComment'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	45	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	46	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	47	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	48	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	49
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	50	AbstractSettingsApplication subclass:#ChangeFileSettingsAppl
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	51	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	52	changeFileName beepForInfoDialog beepForWarningDialog
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	53	beepForErrorDialog flyByHelp beepEnabled beepInEditor'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	54	classVariableNames:''
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	55	poolDictionaries:''
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	56	privateIn:AbstractSettingsApplication
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	57	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	58
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	59	AbstractSettingsApplication subclass:#CodeGeneratorSettingsAppl
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	60	instanceVariableNames:'generateComments generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	61	generateCommentsForSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	62	classVariableNames:''
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	63	poolDictionaries:''
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	64	privateIn:AbstractSettingsApplication
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	65	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	66
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	67	AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	68	instanceVariableNames:'logHTTPRequests logSOAPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	69	classVariableNames:''
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	70	poolDictionaries:''
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	71	privateIn:AbstractSettingsApplication
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	72	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	73
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	74	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	75	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	76	allowSendMailFromDebugger useNewLayoutInDebugger'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	77	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	78	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	79	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	80	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	81
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	82	AbstractSettingsApplication subclass:#DisplaySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	83	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	84	clipEncodingListSelection sizeX monitorList ditherList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	85	clipEncodingList ditherListSelection deepIcons monitorSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	86	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	87	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	88	screenDepthVisualLabelHolder maxCopyBufferSize'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	89	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	90	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	91	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	92	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94	AbstractSettingsApplication subclass:#EditSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	95	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	96	searchDialogIsModal startTextDragWithControl
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	97	extendedWordSelectMode whitespaceWordSelectMode
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	98	enforceContentsDropForFiles'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	99	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	100	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	101	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	104	AbstractSettingsApplication subclass:#FontSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	105	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	106	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	107	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	108	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	109	inputFieldLabel inputFieldDef inputFieldFontLabelHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	110	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	111	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	112	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	113	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	114
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	115	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	116	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	117	searchDialogIsModal startTextDragWithControl catchClassRedefs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	118	fullHistoryUpdate historyLines keepSourceSelection keepSource
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	119	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	120	userNameInHistoryHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	121	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	122	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	123	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	124	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	125
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	126	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	127	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	128	hasCreatedServerChannel useFcgiHolder'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	129	classVariableNames:'CreatedServers'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	130	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	131	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	132	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	133
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	135	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	136	labelTextHolder functionKeyList rawKeyList mappings'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	137	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	138	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	139	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	140	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	142	AbstractSettingsApplication subclass:#LanguageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	143	instanceVariableNames:'languageHolder languageIndexHolder languageList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	144	languageListHolder listOfLanguages translatedLanguages
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	145	noticeLabelHolder currentFlagAndLanguageChannel
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	146	currentLanguageLabel perLanguageResources'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	147	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	148	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	149	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	150	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	151
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	152	AbstractSettingsApplication subclass:#MemorySettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	153	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	154	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	155	igcFreeAmount stackLimit supportsJustInTimeCompilation
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	156	methodCodeSizeLimit'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	157	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	158	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	159	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	160	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	161
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	162	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	163	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	164	windowMigrationPassword windowMigrationAuthenticate
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	165	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	166	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	167	removeHostEnabled acceptChannel smtpServerName
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	168	dotNetBridgeVerbose dotNetBridgeRunsInIDE'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	169	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	170	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	171	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	172	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	173
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	174	AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	175	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	176	opaqueTableColumnResize lowerOnRightClickInTitle
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	177	lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	178	nativeFileDialogs'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	179	classVariableNames:''
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	180	poolDictionaries:''
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	181	privateIn:AbstractSettingsApplication
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	182	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	183
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	184	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	185	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	186	beepEnabled takeFocus activateOnClick
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	187	formatHostNameinWindowLabels hostNameInLabelHolder
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	188	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	189	selectOnRightClick popUpMenuOnRelease
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	190	showRightButtonMenuOnRelease formatHostNameWindowLabel1
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	191	formatHostNameWindowLabel2 allowMouseWheelZoom
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	192	forceWindowsIntoMonitorBounds'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	193	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	194	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	195	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	196	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	197
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	198	AbstractSettingsApplication subclass:#OsiSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	199	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	200	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	201	osiCMISEMessageLogging osiACSEDataLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	202	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	203	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	204	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	205	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	206	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	207
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	208	AbstractSettingsApplication subclass:#PrinterSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	209	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	210	landscape pageFormatList pageFormat unitList leftMargin
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	211	possiblePrinters printerType printerTypeSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	212	printCommandList commandList printCommand printFilename
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	213	enableFormat enablelandscape enableMargins enableColorBox
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	214	printerIsDrivenByCommand printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	215	supportsPageFormatSetting supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	216	supportsColorSetting'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	217	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	218	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	219	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	222	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	223	instanceVariableNames:'dynamicPrios preemptive'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	224	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	225	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	226	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	227	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	228
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	229	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	230	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	231	rDoitErrorDebugging rDoitServerPortOrPath
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	232	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	233	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	234	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	235	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	236	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	237	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	238	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	239
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	240	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	241	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	242	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	243	sqlServerPort sqlStatementLogging'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	244	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	245	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	246	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	247	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	248
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	249	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	250	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	251	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	252	stcCompilationSelection stcCompilationList makeCommand'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	253	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	254	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	255	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	256	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	257
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	258	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	259	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	260	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	261	blockArgumentsOnNewLine spaceAfterReturnToken
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	262	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	263	oldUserPreferences reformatLocked'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	264	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	265	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	266	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	267	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	268
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	269	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	270	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	271	setupSourceCodeManager checkClassesWhenCheckingIn
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	272	formattingConfiguration flushSourceCache localSourceFirst
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	273	repositoryHolder manager repository listOfModules
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	274	managerTypePerModule addPerModuleRoot removeEnabled
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	275	perModuleRootModule acceptChannel removePerModuleRoot
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	276	perModuleRoot selectedPerModuleRoot rootsPerModule
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	277	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	278	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	279	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	280	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	281	managerTypeToAddHolder managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	282	selectedManagerPerMatchingModuleHolder'
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	283	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	284	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	285	LastStorePassword'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	286	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	287	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	288	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	289
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	290	Object subclass:#ManagerTypeTableEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	291	instanceVariableNames:'packageMatchString manager'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	292	classVariableNames:''
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	293	poolDictionaries:''
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	294	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	295	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	296
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	297	AbstractSettingsApplication subclass:#StyleSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	298	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	299	styleDirectoryContents infoLabelHolder noticeLabelHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	300	previewVisibleHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	301	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	302	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	303	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	304	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	305
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	306	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	307	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	308	fullSelectorCheck syntaxColoring oldUserPreferences
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	309	syntaxFontSelector syntaxFonts syntaxElementList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	310	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	311	emphasisDictionary resetListDictionary'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	312	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	313	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	314	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	315	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	316
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	317	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	318	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	319	showMethodTemplate useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	320	showEmbeddedTestRunnerInBrowser showBookmarkBar
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	321	webBrowserLikeLayout sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	322	showLocalHistory showGlobalHistory'
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	323	classVariableNames:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	324	poolDictionaries:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	325	privateIn:AbstractSettingsApplication
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	326	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	327
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	328	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	329	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	330	changeFileName beepForInfoDialog beepForWarningDialog
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	331	beepForErrorDialog flyByHelp beepEnabled beepInEditor
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	332	toolTipAutoHideDelay'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	333	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	334	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	335	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	336	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	338	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	339	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	340	showClockInLauncher useNewChangesBrowser useNewFileBrowser
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	341	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	342	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	343	showTipOfTheDayAtStartup autoRaiseTranscript'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	344	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	345	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	346	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	347	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	348
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	349	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	350
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	351	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	352	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	353	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	354	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	355
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	356	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	357	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	358	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	359	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	360	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	361	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	362	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	363	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	364
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	365	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	366	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	367	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	368	For a real settings dialog, you need a concrete settings dialog class to hold the pages
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	369	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	370	and someone who specifies the hierarchy of settings-pages in a spec.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	371	(as an example, see NewLauncher class>>defaultSettingsApplicationList)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	372
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	373	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	374
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	375	\|settingsList settingsApp\|
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	376
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	377	settingsList := NewLauncher settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	378
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	379	settingsApp := SettingsDialog new.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	380	'settingsApp requestor:requestingApplication'.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	381	settingsApp installSettingsEntries:settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	382	settingsApp allButOpen.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	383	settingsApp window label:('ST/X Settings').
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	384	settingsApp openWindow.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	385
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	386	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	387	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	388
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	389	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	390
68504047f229 * empty log message * penk parents: 4286 diff changeset	391	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	392
68504047f229 * empty log message * penk parents: 4286 diff changeset	393	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	394	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	395
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	396	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	397	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	398	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	399
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	400	^ AbstractLauncherApplication resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	401	!
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	402
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	403	subEntryRawSettingsList
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	404	^ #()
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	405
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	406	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	407	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	408
5283 9264c15059e7 category change penk parents: 5280 diff changeset	409	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	410
9264c15059e7 category change penk parents: 5280 diff changeset	411	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	412	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	413	! !
9264c15059e7 category change penk parents: 5280 diff changeset	414
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	415	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	416
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	417	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	418	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	419	(to allow start of a change browser via double-click in the browser)"
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	420
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	421	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	422	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	423	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	424
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	425	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	426
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	427	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	428	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	429
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	430	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	431	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	432
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	433	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	434	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	435	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	436
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	437	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	438	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	439
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	440	"Modified: / 12-05-2010 / 18:44:09 / cg"
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	441	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	442
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	443	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	444
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	445	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	446	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	447	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	448	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	449	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	450
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	451	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	452	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	453
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	454	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	455	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	456
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	457	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	458	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	459
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	460	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	461	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	462	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	463	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	464	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	465	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	466	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	467	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	468	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	469
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	470	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	471	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	472	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	473
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	474	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	475	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	476
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	477	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	478	askForChangeOnRelease ifTrue:[
8036 0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	479	result := self confirmWithCancel:(self resources
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	480	string:'Apply changes made in %1 ?'
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	481	with:(resources string:settingsString) allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	482	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	483	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	484	].
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	485
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	486	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	487	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	488	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	489	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	490	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	491	] ifFalse:[
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	492	"/ reload current settings to show the right thing when re-entering.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	493	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	494	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	495	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	496	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	497
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	498	"Modified: / 20-09-2006 / 23:56:25 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	499	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	500
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	501	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	502	self basicSaveSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	503
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	504	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	505	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	506
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	507	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	508	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	509	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	510	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	511	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	512	!
c72e35116b13 instable state penk parents: 5040 diff changeset	513
c72e35116b13 instable state penk parents: 5040 diff changeset	514	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	515	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	516	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	517
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	518	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	519
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	520	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	521
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	522	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	523	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	524	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	525	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	526	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	527
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	528	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	529
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	530	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	531	"this code-sharing helper compares a bunch of aspect value against some object.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	532	The object is typically the current userPreferences object, or a flag-holder, such
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	533	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	534	Using this, and a list of aspect selectors replaces code like:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	535	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	536	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	537	...
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	538	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	539	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	540	Prerequisite:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	541	local aspects must be named like corresponding aspect methods in the flag-provider.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	542	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	543
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	544	aListOfAspects do:[:eachAspectSymbol \|
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	545	(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	546	"/Transcript showCR:'different: ',eachAspectSymbol.
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	547	"/Transcript showCR:'here: ',(self perform:eachAspectSymbol) value.
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	548	"/Transcript showCR:'there: ',(anAspectProvider perform:eachAspectSymbol) value.
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	549	^ true
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	550	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	551	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	552	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	553
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	554	"Modified: / 23-03-2011 / 15:45:11 / cg"
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	555	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	556
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	557	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	558	"this code-sharing helper reads a bunch of aspect values from some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	559	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	560	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	561	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	562	self aspect1 value:(someone aspect1).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	563	self aspect2 value:(someone aspect2).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	564	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	565	self aspectN value:(someone aspectN).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	566	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	567	local aspects must be named like corresponding aspect methods in the flag-provider.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	568	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	569
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	570	aListOfAspects do:[:eachAspectSymbol \|
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	571	(self perform:eachAspectSymbol)
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	572	value:(anAspectProvider perform:eachAspectSymbol)
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	573	withoutNotifying:self
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	574	].
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	575
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	576	"Modified: / 08-02-2011 / 09:11:03 / cg"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	577	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	578
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	579	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	580	"this code-sharing helper writes a bunch of aspect values into some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	581	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	582	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	583	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	584	someone aspect1:(self aspect1 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	585	someone aspect2:(self aspect2 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	586	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	587	someone aspectN:(self aspectN value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	588	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	589	local aspects must be named like corresponding aspect methods in the flag-provider.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	590	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	591
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	592	aListOfAspects do:[:eachAspectSymbol \|
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	593	anAspectProvider perform:(eachAspectSymbol,':')asSymbol with:(self perform:eachAspectSymbol) value
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	594	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	595
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	596	"Modified: / 24-08-2010 / 16:52:42 / sr"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	597	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	598
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	599	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	600
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	601	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	602	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	603	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	604	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	605	settingsString := (UISpecification from:(self class windowSpec)) window label.
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	606	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	607
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	608	"Modified: / 12-05-2010 / 17:27:44 / cg"
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	609	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	610
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	611	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	612	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	613	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	614
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	615	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	616
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	617	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	618	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	619	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	620
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	621	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	622
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	623	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	624	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	625	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	626
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	627	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	628	self subclassResponsibility
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	629	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	630
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	631	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	632
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	633	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	634	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	635
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	636	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	637	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	638
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	639	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	640	filename isNil ifTrue:[
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	641	self warn:(self resources string:'Sorry - no Help available here.').
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	642	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	643	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	644	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	645	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	646	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	647	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	648
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	649	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	650	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	651	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	652	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	653
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	654	Smalltalk isStandAloneApp ifFalse:[
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	655	self subclassResponsibility.
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	656	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	657	^ nil.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	658	! !
44e2f83cc526 initial checkin penk parents: diff changeset	659
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	660	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	661
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	662	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	663
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	664	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	665	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	666
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	667	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	668	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	669
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	670	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	671	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	672
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	673	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	674	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	675	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	676
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	677	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	678
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	679	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	680	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	681
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	682	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	683
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	684	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	685	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	686
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	687	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	688
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	689	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	690	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	691	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	692
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	693	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	694	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	695
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	696	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	697	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	698	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	699	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	700	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	701
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	702	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	703
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	704	^
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	705	#(FullSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	706	name: windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	707	window:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	708	(WindowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	709	label: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	710	name: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	711	min: (Point 10 10)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	712	bounds: (Rectangle 0 0 659 551)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	713	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	714	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	715	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	716	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	717	(VerticalPanelViewSpec
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	718	name: 'VerticalPanel3'
8947 d70205e7b1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 8922 diff changeset	719	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	720	horizontalLayout: fit
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	721	verticalLayout: top
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	722	horizontalSpace: 3
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	723	verticalSpace: 4
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	724	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	725	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	726	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	727	(FramedBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	728	label: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	729	name: 'FramedBox1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	730	labelPosition: topLeft
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	731	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	732	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	733	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	734	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	735	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	736	name: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	737	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	738	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	739	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	740	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	741	(LabelSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	742	label: 'Build Directory:'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	743	name: 'BuildDirDirLabel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	744	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	745	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	746	adjust: right
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	747	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	748	(FilenameInputFieldSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	749	name: 'FilenameEntryField1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	750	layout: (LayoutFrame 221 0 0 0 0 1 22 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	751	enableChannel: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	752	model: buildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	753	acceptOnReturn: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	754	acceptOnTab: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	755	acceptOnLostFocus: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	756	acceptOnPointerLeave: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	757	viewClassName: FilenameWidgetWithHistory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	758	postBuildCallback: postBuildDirectoryField:
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	759	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	760	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	761
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	762	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	763	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	764	(HorizontalPanelViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	765	name: 'ActionsHorizontalPanel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	766	layout: (LayoutFrame 62 0.25 27 0 0 1 56 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	767	horizontalLayout: fitSpace
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	768	verticalLayout: center
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	769	horizontalSpace: 3
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	770	verticalSpace: 3
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	771	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	772	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	773	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	774	(ActionButtonSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	775	label: 'Cleanup Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	776	name: 'CleanupBuildDirectoryButton'
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	777	translateLabel: true
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	778	tabable: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	779	model: cleanupBuildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	780	extent: (Point 401 22)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	781	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	782	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	783
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	784	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	785	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	786	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	787
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	788	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	789	extent: (Point 659 91)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	790	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	791	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	792	name: 'LocalBuild'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	793	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	794	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	795	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	796	(CheckBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	797	label: 'Local Build (Do not use Repository)'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	798	name: 'CheckBox4'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	799	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	800	enableChannel: hasSourceCodeManager
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	801	model: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	802	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	803	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	804	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	805
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	806	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	807	extent: (Point 659 25)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	808	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	809	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	810
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	811	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	812	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	813	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	814
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	815	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	816	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	817	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	818
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	819	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	820
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	821	basicReadSettings
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	822	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	823	readAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	824	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	825	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	826	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	827	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	828	from:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	829	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	830
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	831	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	832	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	833
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	834	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	835	buildDir notEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	836	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	837	buildDir isDirectory ifFalse:[
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	838	(Dialog confirm:(resources
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	839	stringWithCRs:'Build directory %1 does not exist.\\Create?'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	840	with:buildDir pathName allBold))
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	841	ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	842	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	843	]
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	844	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	845	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	846
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	847	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	848	writeAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	849	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	850	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	851	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	852	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	853	to:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	854	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	855
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	856	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	857	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	858
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	859	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	860	buildDir isEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	861	^ self.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	862	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	863	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	864	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	865	buildDir recursiveRemove.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	866	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	867	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	868	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	869
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	870	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	871
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	872	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	873	buildDirectory isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	874	buildDirectory := ValueHolder new.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	875	buildDirectory onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	876	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	877	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	878	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	879
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	880	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	881	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	882	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	883
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	884	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	885	localBuild isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	886	localBuild := UserPreferences current localBuild asValue.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	887	localBuild onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	888	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	889	^ localBuild.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	890	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	891
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	892	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	893
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	894	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	895	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	896	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	897
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	898	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	899
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	900	postBuildDirectoryField:aField
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	901	aField historyList value:(Array
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	902	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	903	with:(Filename currentDirectory construct:'stx_build') pathName)
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	904	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	905
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	906	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	907
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	908	hasUnsavedChanges
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	909	(self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	910	hasChangedAspectIn:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	911	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	912	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	913	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	914	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	915	asComparedTo:currentUserPrefs) ifTrue:[^ true].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	916
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	917	^ false
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	918	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	919
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	920	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	930	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	931
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	932	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	933
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	934	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	935	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	936
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	937	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	938
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	939	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	940	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	941
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	942	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	943	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	944	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	945
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	946	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	947	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	948
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	949	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	950	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	951	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	952	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	953	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	954
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	955	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	956
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	957	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	958	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	959	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	960	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUPJ(EW@CUR""QWDCUQ"!!UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	961	CUPJ!!UWICUQR!!UWJCUQR!!QWACUPFTEW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; 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??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	962	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	963
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	964	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	965	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	966	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	967
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	968	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	969	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	970
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	971	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	972	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	973	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	974	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	975	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	976
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	977	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	978
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	979	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	980	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	981	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	982	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@0LDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	983	A@PDA@LCA PCA@P@@@@@@@@@@@@@@@@@@@@D@0PFA PCA@PC@0@@@@@@@@@@@@@C@0@D@0PFAPTD@0LDA L@@@@@@@@@@@LFA@LCA@TEAPTEA@PE@PL@@@@@
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	984	@@@@@@LAAPPDAPTEAPTEAPTF@0@@@@@@@@@@@@@CA TEAPTEA DFAPTD@0@@@@@@@@@@@@@CA@TEA DF@0LAA TEA@LC@@@@@@@@@0LDAPTF@PLC@ HC@PTE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	985	APPD@0@@@@@CA@PEAPTA@0HB@ HCA TEAPDA@0@@@@@C@PDEAPTF@0HB@0LDAPTFA LC@@@@@@@@@0LFA TEA@LCA@PEAPTF@0PD@@@@@@@@@@PCA TEAPPD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	986	APTEAPTD@0PDA@@@@@@@A@PCA@TEAPTEAPTEA DEA@LDA@@@@@@@A@LDAPDFAPTEAPTD@0LAA LDA@P@@@@DA@LF@PLCA@TE@PPCA@PC@0PDA@P@@@@DA@PC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	987	@0PD@0PA@PPCA@PDA@PDA@PD@@PDA@PDA@PD@0PA@0LDA@PDA@PDA@PDA@PDA@PDA@PDA@LCA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	988	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; yourself]
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	989	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	990
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	991	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	992	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	993	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	994
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	995	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	996	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	997
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	998	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	999	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1000	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1001	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1002	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1003
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1004	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1005
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1006	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1007	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon5'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1008	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1009	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1010	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1011	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1012	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1013	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1014	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PC@0LC@0LD@0PC@0PC@@LC@0LC@0PDA@PC@@@@@@LD@0PD@PPC@@LD@@@@@0PDA@PCA@@@@@LD@0PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1015	@@PC@@LD@@P@@0PDA@PC@0LC@0LD@0LC@0LC@@LC@0LC@0PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@O5+<HT*DHTJDO7;<') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1016	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1017
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1018	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1020	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1021	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1022	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1024	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1025	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1027	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1028	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1029	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1030	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1031	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1033	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1035	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1036	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1037	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1038	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1039	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1040	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1041	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1042	min: (Point 10 10)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1043	bounds: (Rectangle 0 0 665 706)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1044	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1045	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1046	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1047	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1048	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1049	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1050	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1051	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1052	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1053	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1054	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1055	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1056	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1057	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1058	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1059	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1060	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1061	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1062	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1063	extent: (Point 665 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1064	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1065	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1066	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1067	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1068	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1069	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1070	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1071	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1072	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1073	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1074	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1075	name: 'VerticalPanel1_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1076	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1077	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1078	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1079	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1080	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1081	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1082	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1083	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1084	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1085	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1086	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1087	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1088	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1089	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1090	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1091	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1092	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1093	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1094	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1095	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1096	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1097	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1098	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1099	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1100	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1101	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1102	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1103	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1104	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1105	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1106	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1107	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1108	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1109	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1110	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1111	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1112	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1113	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1114	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1115	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1116	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1117	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1118	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1119	(CheckBoxSpec
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1120	label: 'Allow Extended Binary Selectors'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1121	name: 'CheckBox4'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1122	model: allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1123	translateLabel: true
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1124	extent: (Point 313 22)
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1125	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1126	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1127
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1128	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1129	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1130	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1131	name: 'VerticalPanel1_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1132	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1133	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1134	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1135	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1136	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1137	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1138	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1139	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1140	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1141	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1142	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1143	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1144	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1145	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1146	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1147	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1148	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1149	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1150	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1151	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1152	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1153	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1154	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1155	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1156	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1157	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1158	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1159	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1160	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1161	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1162	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1163	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1164	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1165	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1166	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1167	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1168	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1169	label: 'Allow Empty Statements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1170	name: 'AllowEmptyStatements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1171	model: allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1172	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1173	extent: (Point 665 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1174	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1175	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1176
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1177	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1178	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1179	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1180
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1181	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1182	extent: (Point 665 137)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1183	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1184	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1185	name: 'Separator4'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1186	extent: (Point 665 1)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1187	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1188	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1189	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1190	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1191	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1192	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1193	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1194	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1195	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1196	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1197	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1198	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1199	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1200	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1201	name: 'VerticalPanel2_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1202	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1203	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1204	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1205	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1206	verticalSpace: 0
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1207	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1208	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1209	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1210	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1211	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1212	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1213	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1214	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1215	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1216	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1217	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1218	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1219	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1220	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1221	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1222	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1223	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1224	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1225	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1226	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1227	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1228	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1229	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1230	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1231	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1232	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1233	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1234	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1235	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1236	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1237	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1238	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1239	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1240	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1241	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1242	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1243	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1244	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1245	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1246	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1247	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1248	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1249	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1250	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1251	label: 'Possible STC Compilation Problems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1252	name: 'PossibleSTCCompilationProblems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1253	enableChannel: warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1254	model: warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1255	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1256	extent: (Point 313 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1257	)
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1258	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1259	label: 'Reference to Private Class'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1260	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1261	enableChannel: warnings
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1262	model: warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1263	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1264	extent: (Point 313 22)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1265	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1266	(CheckBoxSpec
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1267	label: 'Possibly Unimplemented Selectors'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1268	name: 'CheckBox3'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1269	enableChannel: warnings
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1270	model: warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1271	translateLabel: true
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1272	extent: (Point 313 22)
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1273	)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1274	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1275
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1276	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1277	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1278	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1279	name: 'VerticalPanel2_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1280	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1281	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1282	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1283	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1284	verticalSpace: 0
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1285	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1286	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1287	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1288	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1289	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1290	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1291	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1292	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1293	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1294	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1295	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1296	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1297	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1298	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1299	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1300	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1301	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1302	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1303	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1304	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1305	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1306	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1307	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1308	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1309	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1310	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1311	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1312	(CheckBoxSpec
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1313	label: 'Bad (Non-Lowercase) Local Variable Names'
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1314	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1315	enableChannel: warnings
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1316	model: warnAboutNonLowercaseLocalVariableNames
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1317	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1318	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1319	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1320	(CheckBoxSpec
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1321	label: 'Bad (Short) Local Variable Names'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1322	name: 'CheckBox2'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1323	enableChannel: warnings
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1324	model: warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1325	translateLabel: true
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1326	extent: (Point 600 22)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1327	)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1328	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1329	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1330	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1331	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1332	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1333	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1334	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1335	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1336	(CheckBoxSpec
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1337	label: 'Method-Comment Missing '
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1338	name: 'CheckBox5'
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1339	enableChannel: warnings
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1340	model: warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1341	translateLabel: true
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1342	extent: (Point 600 22)
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1343	)
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1344	(CheckBoxSpec
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1345	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1346	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1347	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1348	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1349	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1350	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1351	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1352	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1353
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1354	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1355	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1356	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1357
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1358	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1359	extent: (Point 665 181)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1360	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1361	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1362	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1363	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1364	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1365	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1366	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1367	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1368	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1369	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1370	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1371	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1372	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1373	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1374	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1375	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1376	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1377	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1378	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1379	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1380	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1381	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1382	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1383	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1384	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1385	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1386	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1387	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1388	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1389	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1390	name: 'ConstantFoldingLabel'
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1391	layout: (LayoutFrame 0 0 0 0 306 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1392	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1393	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1394	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1395	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1396	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1397	name: 'ConstantFolding'
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1398	layout: (LayoutFrame 313 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1399	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1400	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1401	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1402	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1403	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1404	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1405
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1406	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1407	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1408	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1409	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1410
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1411	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1419	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1421	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1422	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1423	readAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1424	from:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1425
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1426	self constantFoldingSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1427	value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1428
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1429	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1430	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1431	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1432	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1433	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1434
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1435	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1436	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1437	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1438	self justInTimeCompilation value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1439	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1440
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1441	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1442
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1443	"Modified: / 17-07-2010 / 14:48:38 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1444	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1445
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1446	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1447	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1448	writeAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1449	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1450
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	1463	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1464	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1466	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1467	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1468
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1469	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1470
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1471	"Modified: / 17-07-2010 / 14:48:57 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1474	simpleAspects
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1475	^
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1476	#(
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1477	warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1478	warnCommonMistakes
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1479	warnPossibleIncompatibilities
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1480	warnDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1481	warnOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1482	warnSTXSpecials
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1483	warnUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1484	warnUnusedVars
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1485	warnAboutWrongVariableNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1486	warnAboutBadComments
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1487	warnInconsistentReturnValues
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1488	warnAboutNonLowercaseLocalVariableNames
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1489	warnAboutShortLocalVariableNames
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1490	warnAboutPossibleSTCCompilationProblems
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1491	warnAboutReferenceToPrivateClass
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1492	warnAboutPossiblyUnimplementedSelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1493
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1494	allowDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1495	allowDolphinExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1496	allowOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1497	allowQualifiedNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1498	allowReservedWordsAsSelectors
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1499	allowSqueakExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1500	allowUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1501	allowVisualAgeESSymbolLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1502	allowFixedPointLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1503	allowEmptyStatements
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1504	allowExtendedBinarySelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1505
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1506	arraysAreImmutable
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1507	)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1508
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1509	"Created: / 20-11-2006 / 22:37:17 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1510	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1511
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1517	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1519	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	allowDollar isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1522	allowDollar := ParserFlags allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1523	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	allowDolphinExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1532	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1533	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1538	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1539
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1540	allowEmptyStatements isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1541	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1542	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1543	"/ allowEmptyStatements addDependent:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1544	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1545	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1546
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1547	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1548	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1549
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1550	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1551
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1552	allowExtendedBinarySelectors isNil ifTrue:[
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1553	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1554	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1555	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1556	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1557	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1558
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1559	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1560
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1561	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1562	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1563	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1564	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1565	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1566	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1567
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	allowOldStyleAssignment isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1571	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1572	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	allowQualifiedNames isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1580	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1581	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	allowReservedWordsAsSelectors isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1589	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1590	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	allowSqueakExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1598	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1599	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1604	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	allowUnderscore isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1607	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1608	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1614	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1615
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1616	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1617	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1618	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1619	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1620	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1621	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1622
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1623	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1624
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1625	immutableArrays isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1626	immutableArrays := ParserFlags arraysAreImmutable asValue.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1627	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1628	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1629	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1630	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1631
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1654	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1683	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1696	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1701	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1702	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1703	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1704	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1705	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1706	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1707	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1708
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1709	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1710
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1711	warnAboutMissingMethodComment isNil ifTrue:[
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1712	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1713	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1714	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1715	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1716
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1717	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1718	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1719
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1720	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1721	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1722	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1723	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1724	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1725	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1726
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1727	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1728	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1729
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1730	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1731
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1732	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1733	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1734	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1735	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1736	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1737
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1738	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1739	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1740
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1741	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1742
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1743	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1744	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1745	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1746	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1747	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1748
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1749	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1750	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1751
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1752	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1753	warnAboutReferenceToPrivateClass isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1754	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1755	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1756	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1757	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1758	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1759
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1760	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1761	warnAboutShortLocalVariableNames isNil ifTrue:[
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1762	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1763	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1764	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1765	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1766	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1767
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1768	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1769	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1770	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1771	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1772	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1773	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1774	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1775
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1779	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1780	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1785	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1788	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1789	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1794	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1795	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1796	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1797	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1798	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1799	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1800	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1801
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1802	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1804	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1805	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1806	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1807	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1808	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1811	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1812	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1813	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1814
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1815	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1816	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1817	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1818	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1819	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1820	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1821
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1822	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1825	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1826	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1831	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1834	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1835	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	warnUnusedVars isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1843	warnUnusedVars := ParserFlags warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1844	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1852	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1855	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1860	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1864	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1865	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1866	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1873	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1881	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1882
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1883	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1884	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1885	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1886
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1887	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1890	(self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1891	hasChangedAspectIn:(self simpleAspects)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1892	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1893
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1894	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1895	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1896	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1897
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1898	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1899
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1900	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1901
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1902	"Modified: / 17-07-2010 / 14:48:07 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1910	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1911
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1912	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1913	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1914	by the ImageEditor of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1915
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1916	"Do not manually edit this!! If it is corrupted,
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1917	the ImageEditor may not be able to read the specification."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1918
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1919	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1920	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1921	ImageEditor openOnClass:self andSelector:#defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1922	Icon flushCachedIcons
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1923	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1924
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1925	<resource: #image>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1926
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1927	^Icon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1928	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl class defaultIcon'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1929	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1930	B (JB (JB (JB (JB (JB (JB (JB (HB@ HB@ HB@ HB@ HB@ HB@$JB (JB@ EAPTEAPTEAPTEAPTEAPTIB@@@B HAP(JB TEAPTEAPTEAPTEBP @@@(H
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1931	B@TJAPTEAPTEAPTEAPTEAP$H@@@JB@ EB TEAPTEAPTEAPTEAPTIB@@@B HAP(JB TEAP(JAPTEAPTEBP @@@(HB@TEAPTEAP(JB (EAPTEAP$H@@@JB@ E
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1932	APTEAP(JAPTJB TEAPTIB@@@B HAPTEAP(JAPTEAP(JAPTEBP @@@(HB@TEAP(JAPTEAPTEB (EAP$H@@(JB@ EAP(JAPTEAPTEAPTJB TIB@@JB HAPTJ
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1933	B (JB (JB (JB (EA@ JB (HB@TEB@ HB@ HB@ HB@ HAPPHB (JB@ EAPTEAPTEAPTEAPTEAPTDB@(JB HAP(JB TEAPTEAPTEAPTEA@ JB (HB@TEAP(E
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1934	APTEAPTEAPTEAPPHB (JB@ EAPTJAPTEAPTEAPTEAPTDB@(JB HAP(JB TEAPTEAPTEAPTEA@ JB (HB@TEAPTEAPTEAPTEAPTEAPPHB (JB@$DA@PDA@PD
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1935	A@PDA@PDA@PDB@(JB (HB@ HB@ HB@ HB@ HB@ HB@ JB @a') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1936	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1937
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1938	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1939
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1940	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1941	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1942	by the UIPainter of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1943
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1944	"Do not manually edit this!! If it is corrupted,
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1945	the UIPainter may not be able to read the specification."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1946
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1947	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1948	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1949	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1950	AbstractSettingsApplication::ChangeFileSettingsAppl open
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1951	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1952
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1953	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1954
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1955	^
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1956	#(FullSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1957	name: windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1958	window:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1959	(WindowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1960	label: 'Changes Settings'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1961	name: 'Changes Settings'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1962	min: (Point 10 10)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1963	bounds: (Rectangle 0 0 561 478)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1964	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1965	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1966	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1967	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1968	(VerticalPanelViewSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1969	name: 'VerticalPanel2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1970	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1971	horizontalLayout: fitSpace
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1972	verticalLayout: topSpace
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1973	horizontalSpace: 5
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1974	verticalSpace: 5
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1975	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1976	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1977	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1978	(FramedBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1979	label: 'Change File'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1980	name: 'FramedBox2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1981	labelPosition: topLeft
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1982	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1983	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1984	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1985	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1986	(CheckBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1987	label: 'Log compiles in Changefile'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1988	name: 'CheckBox1'
9739 9e893e8e1ef6 size of checkbox Claus Gittinger <cg@exept.de> parents: 9738 diff changeset	1989	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1990	model: updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1991	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1992	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1993	(CheckBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1994	label: 'Log doIts in Changefile'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1995	name: 'CheckBox2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1996	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1997	model: logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1998	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1999	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2000	(LabelSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2001	label: 'Changefile Name:'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2002	name: 'ChangefileNameLabel'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2003	layout: (LayoutFrame 135 0 55 0 289 0 77 0)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2004	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2005	adjust: right
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2006	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2007	(InputFieldSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2008	name: 'ChangeFileNameEntryField'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2009	layout: (LayoutFrame 294 0 55 0 -5 1 77 0)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2010	model: changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2011	immediateAccept: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2012	acceptOnReturn: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2013	acceptOnTab: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2014	acceptOnLostFocus: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2015	acceptOnPointerLeave: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2016	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2017	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2018
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2019	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2020	extent: (Point 551 112)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2021	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2022	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2023
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2024	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2025	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2026	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2027
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2028	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2029	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2030	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2031
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2032	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2033
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2034	basicReadSettings
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2035	self changeFileName value:ObjectMemory nameForChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2036	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2037	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2038
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2039	"Modified: / 27-10-2010 / 10:16:48 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2040	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2041
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2042	basicSaveSettings
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2043
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	2044	ObjectMemory nameForChanges:(self changeFileName value).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2045	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2046	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2047
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	2048	"Modified: / 09-02-2011 / 20:32:47 / cg"
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2049	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2050
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2051	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2052
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2053	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2054
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2055	changeFileName isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2056	changeFileName := ObjectMemory nameForChanges asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2057	changeFileName onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2058	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2059	^ changeFileName.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2060	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2061
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2062	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2063
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2064	logDoits isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2065	logDoits := Smalltalk logDoits asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2066	logDoits onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2067	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2068	^ logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2069	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2070
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2071	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2072
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2073	updChanges isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2074	updChanges := Class updatingChanges asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2075	updChanges onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2076	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2077	^ updChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2078	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2079
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2080	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2081
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2082	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2083	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2084	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2085
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2086	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2087
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2088	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2089	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2090	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2091	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2092	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2093
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2094	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2095	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2096
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2097	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2098
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2099	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2100	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2101	by the ImageEditor of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2102
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2103	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2104	the ImageEditor may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2105
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2106	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2107	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2108	ImageEditor openOnClass:self andSelector:#defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2109	Icon flushCachedIcons
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2110	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2111
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2112	<resource: #image>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2113
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2114	^Icon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2115	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl class defaultIcon'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2116	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2117	B (JB (JB (JB (JB (JB (JB (JB (HB@ HB@ HB@ HB@ HB@ HB@$JB (JB@ EAPTEAPTEAPTEAPTEAPTIB@@@B HAP(JB TEAPTEAPTEAPTEBP @@@(H
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2118	B@TJAPTEAPTEAPTEAPTEAP$H@@@JB@ EB TEAPTEAPTQAPTEAPTIB@@@B HAP(JB TEAPTQD!!DEAPTEBP @@@(HB@TEAPTEDQDEDQLQAQDQAP$H@@@JB@ E
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2119	APTEDQPUDQTVEQDUEADIB@@@B HAPTEAPTQE1 YF!!$XE1DEBP @@@(HB@TEAPTEAQDUF ,ZEQDEAP$H@@(JB@ EAPTEAPTQEQ(KF!!TQAPTIB@@JB HAPTE
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2120	APTQE1 YF!!$XE1DEA@ JB (HB@TEAPTQEATQEQXUDQTTDPPHB (JB@ EAPTEAQDQAQDSDPTQDPTDB@(JB HAP(JB TEAPTQD!!DEAPTEA@ JB (HB@TEAP(E
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2121	APTEAQDEAPTEAPPHB (JB@ EAPTJAPTEAPTEAPTEAPTDB@(JB HAP(JB TEAPTEAPTEAPTEA@ JB (HB@TEAPTEAPTEAPTEAPTEAPPHB (JB@$DA@PDA@PD
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2122	A@PDA@PDA@PDB@(JB (HB@ HB@ HB@ HB@ HB@ HB@ JB @a') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160 255 248 248 207 216 240 240 240 248 239 232 240 48 88 176 224 224 232 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2123	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2124
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2125	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2126
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2127	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2128	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2129	by the UIPainter of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2130
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2131	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2132	the UIPainter may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2133
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2134	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2135	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2136	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2137	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2138	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2139
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2140	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2141
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2142	^
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2143	#(FullSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2144	name: windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2145	window:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2146	(WindowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2147	label: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2148	name: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2149	min: (Point 10 10)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2150	bounds: (Rectangle 0 0 607 786)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2151	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2152	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2153	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2154	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2155	(VerticalPanelViewSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2156	name: 'VerticalPanel2'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2157	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2158	horizontalLayout: fit
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2159	verticalLayout: top
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2160	horizontalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2161	verticalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2162	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2163	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2164	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2165	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2166	label: 'Generate Comments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2167	name: 'GenerateComments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2168	activeHelpKey: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2169	model: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2170	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2171	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2172	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2173	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2174	label: 'Generate Comments in Getters'
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2175	name: 'GenerateCommentsInGetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2176	activeHelpKey: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2177	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2178	model: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2179	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2180	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2181	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2182	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2183	label: 'Generate Comments in Setters'
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2184	name: 'GenerateCommentsInSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2185	activeHelpKey: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2186	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2187	model: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2188	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2189	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2190	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2191	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2192
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2193	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2194	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2195	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2196
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2197	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2198	)
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2199
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	2200	"Modified: / 04-07-2011 / 16:58:44 / cg"
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2201	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2202
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2203	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2204
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2205	basicReadSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2206	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2207	readAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2208	from:currentUserPrefs.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2209	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2210
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2211	basicSaveSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2212	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2213	writeAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2214	to:currentUserPrefs.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2215	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2216
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2217	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2218
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2219	aspectSelectors
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2220	^ #(
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2221	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2222	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2223	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2224	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2225	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2226
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2227	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2228	generateComments isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2229	generateComments := UserPreferences current generateComments asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2230	generateComments onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2231	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2232	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2233	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2234
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2235	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2236	generateCommentsForGetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2237	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2238	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2239	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2240	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2241	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2242
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2243	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2244	generateCommentsForSetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2245	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2246	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2247	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2248	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2249	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2250
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2251	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2252
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2253	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2254	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2255	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2256
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2257	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'queries'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2258
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2259	hasUnsavedChanges
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2260	(self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2261	hasChangedAspectIn:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2262	asComparedTo:currentUserPrefs) ifTrue:[^ true].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2263	^ false.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2264	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2265
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2266	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2267
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2268	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2269	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2270
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2271	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2272	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2273
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2274	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2275	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2276	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2277
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2278	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2279	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2280
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2281	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2282	self defaultIcon inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2283	ImageEditor openOnClass:self andSelector:#defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2284	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2285	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2286
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2287	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2288
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2289	^Icon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2290	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon1'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2291	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2292	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ECP4MCP4MCP4MCP4MCP4@@A @F@@CAPHB@ HB@ HB@ HBB (E@@@X@A @@0TB@ HB@ HB@ HB@ (JAP@@@@@@@@LE
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2293	@ 4MCP4MCPHB@ (JB T@@@@@@@@CAPHB@ HB@ HB@ HJB (E@@@@@@@@@0TBCP4MCP4M@ HBB (JAP@@@@@@@@LE@ HB@ HB@ HB@ (JB T@@@@@@@@CAPHM
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2294	CP4MCP4B@ (JB (E@@@@@@@@@0TB@ HB@ HB@ HJB (JAP@@@@@@@@LE@ 4MCP4MCPHBB (JB T@@A(XF@@CAPHB@ HB@ HB@ (JB (E@ @@@@@@@0TB@ HB
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2295	@ HB@ HJB (JAPH@@A @@@LE@ 4MCP4MCPHBB (JB T@@@@X@@@CAPHB@ HB@ HB@ (JB (E@@@@F@@@@0TBCP4MCP4M@ (JB (JAP@@F!!(X@@LE@ HB@ HB
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2296	@ HBB (JB T@@A(XF@@CAPHB@ HB@ HBB (JB (E@@@ZFA @@0TEAPTEAPTEAPTEAPTEAP@@F!! X@@LC@0LC@0LC@0LC@0LC@0@@@A(ZF@@@@@@@@@@@@@@@
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2297	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112 100 100 100 127 127 127 255 255 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?<8??<8??<P??<P??<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@') ; yourself); yourself]
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2298	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2299
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2300	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2301	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2302	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2303
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2304	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2305	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2306
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2307	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2308	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2309	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2310	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2311	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2312
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2313	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2314
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2315	^Icon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2316	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon2'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2317	ifAbsentPut:[(Depth8Image new) width: 17; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2318	@@@@@@@@@@@@@@@@@@@@@@@@AP4MCP4MCP4MCP4MCP4M@@LE@ HB@ HB@ HB@ HJB T@@0TB@ HB@ HB@ HB@ (JAP@CAPHMCP4MCP4B@ HJB (E@@LE@ HB
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2319	@ HB@ HB@ (JB T@@0TBCP4MCP4M@ HBB (JAP@CAPHB@ HB@ HB@ HJB (E@@LE@ 4MCP4MCPHBB (JB T@@0TB@ HB@ HB@ HJB (JAP@CAPHMCP4MCP4B
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2320	@ (JB (E@@LE@ HB@ HB@ HBB (JB T@@0TB@ HB@ HB@ HJB (JAP@CAPHMCP4MCP4B@ (JB (E@@LE@ HB@ HB@ HBB (JB T@@0TBCP4MCP4M@ (JB (J
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2321	AP@CAPHB@ HB@ HB@ (JB (E@@LE@ HB@ HB@ HJB (JB T@@0TEAPTEAPTEAPTEAPTEAP@C@0LC@0LC@0LC@0LC@0L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2322	@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128]; mask:((Depth1Image new) width: 17; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??8@@@@@@@@@') ; yourself); yourself]
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2323	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2324
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2325	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2326
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2327	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2328	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2329	by the UIPainter of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2330
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2331	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2332	the UIPainter may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2333
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2334	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2335	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2336	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2337	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2338	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2339
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2340	<resource: #canvas>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2341
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2342	^
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2343	#(FullSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2344	name: windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2345	window:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2346	(WindowSpec
9279 8db96209a9ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9278 diff changeset	2347	label: 'Com-Logging settings'
8db96209a9ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9278 diff changeset	2348	name: 'Com-Logging settings'
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2349	min: (Point 10 10)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2350	bounds: (Rectangle 0 0 445 401)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2351	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2352	component:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2353	(SpecCollection
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2354	collection: (
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2355	(VerticalPanelViewSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2356	name: 'VerticalPanel1'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2357	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2358	horizontalLayout: fitSpace
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2359	verticalLayout: topSpace
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2360	horizontalSpace: 5
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2361	verticalSpace: 3
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2362	component:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2363	(SpecCollection
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2364	collection: (
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2365	(CheckBoxSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2366	label: 'Log Outgoing HTTP Requests on Transcript'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2367	name: 'LogHTTPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2368	enableChannel: displaySupportsNativeWidgets
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2369	model: logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2370	translateLabel: true
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2371	extent: (Point 435 22)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2372	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2373	(CheckBoxSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2374	label: 'Log Outgoing SOAP Requests on Transcript'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2375	name: 'LogSOAPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2376	enableChannel: displaySupportsNativeDialogs
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2377	model: logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2378	translateLabel: true
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2379	extent: (Point 435 22)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2380	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2381	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2382
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2383	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2384	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2385	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2386
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2387	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2388	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2389	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2390
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2391	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'actions'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2392
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2393	aspectsFromUserPreferences
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2394	^ #(
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2395	logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2396	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2397	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2398	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2399
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2400	basicReadSettings
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2401	self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2402	readAspects:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2403	from:currentUserPrefs.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2404	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2405
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2406	basicSaveSettings
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2407	self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2408	writeAspects:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2409	to:currentUserPrefs.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2410	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2411
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2412	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2413
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2414	logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2415	logHTTPRequests isNil ifTrue:[
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2416	logHTTPRequests := false asValue.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2417	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2418	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2419	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2420	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2421
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2422	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2423	logSOAPRequests isNil ifTrue:[
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2424	logSOAPRequests := false asValue.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2425	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2426	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2427	^ logSOAPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2428	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2429
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2430	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2431
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2432	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2433	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2434	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2435
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2436	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'queries'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2437
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2438	hasUnsavedChanges
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2439	^ self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2440	hasChangedAspectIn:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2441	asComparedTo:currentUserPrefs
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2442	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2443
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2444	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2445
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2446	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2447	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2448
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2449	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2450	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2451
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2452	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2453
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2454	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2455	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2456	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2457
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2458	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2459	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2460
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2461	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2462	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2463	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2464	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2465	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2466
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2467	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2468
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2469	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2470	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2471	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2472	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2473	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2474	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2475	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2476	min: (Point 10 10)
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2477	bounds: (Rectangle 0 0 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2478	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2479	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2480	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2481	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2482	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2483	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2484	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2485	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2486	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2487	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2488	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2489	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2490	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2491	collection: (
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2492	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2493	name: 'ShowErrorNotifierBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2494	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2495	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2496	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2497	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2498	label: 'Show Error Notifier before Opening Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2499	name: 'ShowErrorNotifierCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2500	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2501	model: showErrorNotifier
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2502	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2503	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2504	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2505
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2506	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2507	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2508	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2509	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2510	name: 'ShowVerboseStackBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2511	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2512	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2513	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2514	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2515	label: 'Verbose Backtrace by Default in Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2516	name: 'ShowVerboseStackCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2517	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2518	model: verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2519	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2520	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2521	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2522
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2523	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2524	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2525	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2526	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2527	name: 'UseNewLayoutInDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2528	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2529	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2530	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2531	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2532	label: 'Use New Layout'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2533	name: 'UseNewLayoutInDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2534	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2535	model: useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2536	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2537	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2538	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2539
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2540	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2541	extent: (Point 600 29)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2542	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2543	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2544	name: 'AllowSendingMailFromDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2545	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2546	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2547	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2548	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2549	label: 'Allow Sending of Error Reports from Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2550	name: 'AllowSendingMailFromDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2551	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2552	model: allowSendMailFromDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2553	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2554	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2555	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2556
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2557	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2558	extent: (Point 600 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2559	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2560	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2561
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2562	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2563	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2564	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2565
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2566	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2567	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2568	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2569
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2570	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2571
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2572	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2573	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2574	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2575	self verboseBacktraceInDebugger value:(currentUserPrefs verboseBacktraceInDebugger).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2576	self useNewLayoutInDebugger value:(currentUserPrefs useNewLayoutInDebugger).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2577	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2578
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2579	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2580	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2581	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2582	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2583	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2584	].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2585	currentUserPrefs allowSendMailFromDebugger:(self allowSendMailFromDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2586	currentUserPrefs verboseBacktraceInDebugger:(self verboseBacktraceInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2587	currentUserPrefs useNewLayoutInDebugger:(self useNewLayoutInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2588
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2589	Debugger newDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2590	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2591
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2592	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2593
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2594	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2595
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2596	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2597	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2598	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2599	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2600	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2601	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2602
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2603	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2604
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2605	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	2606	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2607	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2608	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2609	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2610	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2611
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2612	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2613
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2614	useNewLayoutInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2615	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2616	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2617	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2618	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2619	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2620
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2621	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2622
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2623	verboseBacktraceInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2624	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger ? false) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2625	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2626	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2627	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2628	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2629
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2630	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2631
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2632	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2633	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2634	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2635
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2636	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2637
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2638	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2639	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2640	currentUserPrefs verboseBacktraceInDebugger ~= self verboseBacktraceInDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2641	currentUserPrefs allowSendMailFromDebugger ~= self allowSendMailFromDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2642	currentUserPrefs useNewLayoutInDebugger ~= self useNewLayoutInDebugger value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2643	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2644	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2645
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2655	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2662
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2678	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2679
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2680	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2681	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2682
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2683	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2684	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2685
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2696	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2697	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2698	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2704	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2705	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2706	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2707	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2708	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2709	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2710	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2711	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2713	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2714	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2715	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2716	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2717	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2718	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2719	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2720	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2721	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2723	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2724	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2725	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2726	layout: (LayoutFrame 0 0 39 0 163 0 61 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2727	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2728	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2730	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2731	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2732	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2733	layout: (LayoutFrame 170 0 39 0 -5 1 61 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2734	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2735	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2736	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2737	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2739	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2740	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2741	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2742	layout: (LayoutFrame 0 0 72 0 163 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2743	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2744	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2746	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2747	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2748	layout: (LayoutFrame 170 0 72 0 237 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2749	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2750	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2751	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2752	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2753	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2754	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2755	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2756	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2757	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2758	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2759	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2760	layout: (LayoutFrame 238 0 72 0 271 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2761	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2762	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2763	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2764	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2765	layout: (LayoutFrame 272 0 72 0 339 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2766	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2767	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2768	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2769	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2770	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2771	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2772	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2774	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2775	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2776	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2777	layout: (LayoutFrame 351 0 72 0 397 0 94 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2778	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2779	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2780	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2781	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2782	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2783	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2784	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2785	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2786	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2787	layout: (LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2788	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2789	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2790	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2791	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2792	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2793	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2794	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2796	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2797	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2798	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2799	layout: (LayoutFrame 5 0 150 0 250 0 172 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2800	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2801	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2802	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2803	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2804	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2805	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2806	layout: (LayoutFrame 5 0 175 0 301 0 197 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2807	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2808	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2809	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2810	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2811	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2812	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2813	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2814	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2815	layout: (LayoutFrame 5 0 201 0 301 0 223 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2816	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2817	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2818	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2819	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2820	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2821	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2822	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2823	name: 'ImageDisplayLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2824	layout: (LayoutFrame 0 0 230 0 255 0 252 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2825	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2826	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2827	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2828	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2829	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2830	name: 'DitherListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2831	layout: (LayoutFrame 255 0 230 0 -5 1 252 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2832	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2833	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2834	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2835	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2836	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2837	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2838	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2839	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2840	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2841	layout: (LayoutFrame 5 0 262 0 301 0 284 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2842	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2843	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2844	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2845	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2846	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2847	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2849	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2850	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2851	name: 'ClipBoardEncodingLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2852	layout: (LayoutFrame 0 0 303 0 255 0 325 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2853	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2854	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2856	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2857	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2858	name: 'ClipEncodingListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2859	layout: (LayoutFrame 255 0 303 0 -5 1 325 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2860	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2861	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2862	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2863	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2864	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2865	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2866	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2867	layout: (LayoutFrame 0 0.0 360 0 0 1.0 364 0)
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2868	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2869	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2870	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2871	name: 'MaxCopyBufferSizeLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2872	layout: (LayoutFrame 0 0 330 0 255 0 352 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2873	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2874	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2875	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2876	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2877	name: 'MaxCopyBufferEntryField'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2878	layout: (LayoutFrame 255 0 330 0 350 0 352 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2879	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2880	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2881	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2884	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2885	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2886	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2887	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2889	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2890	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2891	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2893	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2894
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2895	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2896	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2897	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2898	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2899	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2900	self sizeY value:screen heightInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2901	self deepIcons value:screen supportsDeepIcons.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2902	ditherSyms notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2903	self ditherListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2904	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2905	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2906	self clipEncodingListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2907	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2908	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2909	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2910
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2911	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2912
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2913	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2914
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2915	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2916	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2917	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2918	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2919	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2920	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2921	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2922	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2923	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2924	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2925
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2926	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2927	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2928	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2929	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2930	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2931	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2932	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2933	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2934	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2935	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2936	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2937	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2938	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2939
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2940	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2941	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2942	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2943	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2944
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2945	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2946	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2947	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2948
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2949	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2950	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2952	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2954	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2956	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2957	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2958	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2959	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2960	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2962	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2963	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2965	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2967	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	2968	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2969	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2970	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2971	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2972	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2974	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2976	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2977	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2978	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2979	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2980	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2981	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2983	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2985	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2986	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2987	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2988	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2989	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2991	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2993	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2994	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2995	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2997	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2998	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2999	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3000	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3001	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3004	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3006	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3007	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3008	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3009	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3010	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3012	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3014	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3016	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3021	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3022
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3023	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3024	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3025	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3026	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3027	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3028	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3029	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3030	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3031
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3045	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3049	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3051	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3053	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3054	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3055	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3056	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3057	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3059	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3060	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3062	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3064	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3065	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3066	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3067	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3068	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3069	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3070	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3071	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3072
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3073	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3075	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3076	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3077	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3078	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3079	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3080	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3081	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3082	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3084	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3088	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3099	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3105	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3116	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3122	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3126
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3127	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3162	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3163	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3165	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3168	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3169
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3170	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3171	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3172	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3173
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3178	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3179
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3180	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3181
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3182	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3183	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3184	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3185	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3186	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3187	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3188	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3189	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3190	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3191	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3192	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3193	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3194	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3195	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3196	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3197	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3198	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3199	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3200	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3201	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3202	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3203	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3204	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3205	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3206
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3207	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3208
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3211	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3212	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3213	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3214	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3215	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3216	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3217
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3218	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3219	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3220	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3221	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	3222	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3223	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3224	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3225
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3226	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3227
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3228	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3229	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3230
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3231	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3232	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3233
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3234	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3236	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3237	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3238	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3240	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3241	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3243	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3244	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3245	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3246	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3247	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3249	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3251	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3252	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3253	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3254	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3255	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3256	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3257	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3258	min: (Point 10 10)
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3259	bounds: (Rectangle 0 0 600 320)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3260	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3261	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3262	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3263	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3264	(VerticalPanelViewSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3265	name: 'VerticalPanel1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3266	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3267	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3268	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3269	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3270	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3271	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3272	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3273	collection: (
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3274	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3275	label: 'CTRL-Key to Start TextDrag'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3276	name: 'CTRLKeyStTextDragCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3277	model: startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3278	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3279	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3280	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3281	(CheckBoxSpec
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3282	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3283	name: 'EnforceContentsDropForFiles'
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3284	model: enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3285	translateLabel: true
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3286	extent: (Point 600 23)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3287	)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3288	(CheckBoxSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3289	label: 'SearchBox is Modal'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3290	name: 'SearchBoxModalCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3291	model: searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3292	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3293	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3294	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3295	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3296	label: 'Tab Stops in Multiples of 4'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3297	name: 'TabStopsMultiples4CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3298	model: tabsIs4
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3299	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3300	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3301	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3302	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3303	label: 'Double Click Select Behavior as in ST80'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3304	name: 'DoubleClickSelectBehaviorST80CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3305	model: st80DoubleClickSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3306	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3307	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3308	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3309	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3310	label: 'Cursor has ST80 Line-end Behavior'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3311	name: 'CursorST80LineEndBehaviorCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3312	model: st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3313	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3314	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3315	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3316	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3317	label: 'Treat Underscore as Letter in Word-Select'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3318	name: 'UnderscoreIsLetterCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3319	model: extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3320	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3321	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3322	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3323	(CheckBoxSpec
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	3324	label: 'Any non-Whitespace in Word-Select'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3325	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3326	model: whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3327	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3328	extent: (Point 600 23)
6860 9992480933a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	3329	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3332	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3334	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3342	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3343	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3344	readAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3345	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3346
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3347	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3348	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3349	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3350	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3351
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3352	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3353	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3354	writeAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3355	to:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3356
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3357	self enforceContentsDropForFiles value ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3358	currentUserPrefs enforcedDropModeForFiles:#text
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3359	] ifFalse:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3360	currentUserPrefs enforcedDropModeForFiles:nil
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3361	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3362
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3363	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3364	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3365	ListView userDefaultTabPositions:(self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3366	ifTrue:[ListView tab4Positions]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3367	ifFalse:[ListView tab8Positions]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3368	ListView allSubInstancesDo:[:eachKindOfListView \|
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3369	self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3370	ifTrue:[eachKindOfListView setTab4]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3371	ifFalse:[eachKindOfListView setTab8]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3372	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3373	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3374	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3375
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3376	commonAspects
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3377	^ #(
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3378	#searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3379	#startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3380	#st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3381	#extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3382	#whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3383	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3384	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3386	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3387
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3388	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3389	enforceContentsDropForFiles isNil ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3390	enforceContentsDropForFiles := true asValue.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3391	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3392	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3393	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3394	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3395
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3396	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3397	extendedWordSelectMode isNil ifTrue:[
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3398	extendedWordSelectMode := true asValue.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3399	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3400	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3401	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3402	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3403
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3404	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3405	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3406	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3407	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3408	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3409	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3410	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3411
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3412	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3413	st80DoubleClickSelectMode isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3414	st80DoubleClickSelectMode := true asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3415	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3416	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3417	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3418	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3419
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3420	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3421	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3422	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3423	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3424	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3425	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3426	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3431	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3432	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3433	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3436	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3437	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3438	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3439	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3440	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3442	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3443
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3444	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3445	whitespaceWordSelectMode isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3446	whitespaceWordSelectMode := true asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3447	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3448	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3449	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3452	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3453
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3454	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3455	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3456	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3457
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3461	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3462	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3463	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3464	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3465	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3466	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3467	].
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3468
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3469	(self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3470	hasChangedAspectIn:self commonAspects
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3471	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3472
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3473	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3490	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3492	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3493	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3494
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3495	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3496	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3497
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3498	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3499	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3500	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3501
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3502	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3503	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3504
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3505	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3506	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3507	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3508	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3509	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3510
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3511	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3512
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3513	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3514	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3515	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3516	@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3517	ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3518	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]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3519	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3520
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3542	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3543	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3544	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3545	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3551	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3552	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3553	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3554	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3555	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3556	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3557	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3558	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3560	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3561	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3562	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3563	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3564	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3565	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3566	horizontalLayout: fitSpace
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3567	verticalLayout: topSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3568	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3569	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3570	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3571	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3572	collection: (
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3573	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3574	label: 'Label'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3575	name: 'Label3'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3576	style: labelFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3577	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3578	labelChannel: infoText
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3579	resizeForLabel: false
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3580	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3581	extent: (Point 506 171)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3582	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3583	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3584	name: 'CodeBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3585	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3586	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3587	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3588	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3589	label: 'Code'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3590	name: 'Label1'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3591	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3592	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3593	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3594	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3595	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3596	label: 'Text Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3597	name: 'Label2'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3598	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3599	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3600	labelChannel: textFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3601	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3602	postBuildCallback: postBuildTextFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3603	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3604	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3605	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3606	name: 'Button1'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3607	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3608	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3609	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3610	model: changeTextFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3611	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3612	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3613	name: 'Separator11'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3614	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3615	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3616	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3617
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3618	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3619	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3620	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3621	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3622	name: 'InputFieldsBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3623	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3624	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3625	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3626	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3627	label: 'Input Fields'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3628	name: 'Input Fields'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3629	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3630	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3631	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3632	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3633	(LabelSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3634	label: 'InputFields Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3635	name: 'InputFieldsFont'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3636	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3637	translateLabel: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3638	labelChannel: inputFieldFontLabelHolder
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3639	adjust: left
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3640	postBuildCallback: postBuildInputFieldFontLabel:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3641	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3642	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3643	label: 'Change...'
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3644	name: 'ChangeText'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3645	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3646	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3647	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3648	model: changeInputFieldFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3649	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3650	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3651	name: 'Separator10'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3652	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3653	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3654	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3655
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3656	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3657	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3658	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3659	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3660	name: 'ListsBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3661	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3662	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3663	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3664	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3665	label: 'Lists'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3666	name: 'Lists'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3667	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3668	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3669	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3670	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3671	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3672	label: 'Lists Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3673	name: 'ListsFont'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3674	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3675	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3676	labelChannel: listsFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3677	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3678	postBuildCallback: postBuildListsFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3679	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3680	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3681	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3682	name: 'ChangeLists'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3683	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3684	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3685	tabable: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3686	model: changeListsFont
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3687	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3688	(DividerSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3689	name: 'Separator8'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3690	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3691	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3692	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3693
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3694	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3695	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3696	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3697	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3698	name: 'MenusBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3699	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3700	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3701	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3702	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3703	label: 'Menus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3704	name: 'Menus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3705	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3706	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3707	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3708	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3709	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3710	label: 'Menus Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3711	name: 'MenusFont'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3712	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3713	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3714	labelChannel: menusFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3715	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3716	postBuildCallback: postBuildMenuesFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3717	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3718	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3719	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3720	name: 'ChangeMenus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3721	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3722	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3723	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3724	model: changeMenusFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3725	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3726	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3727	name: 'Separator9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3728	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3729	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3730	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3731
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3732	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3733	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3734	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3735	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3736	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3737	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3738	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3739	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3740	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3741	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3742	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3743	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3744	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3745	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3746	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3747	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3748	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3749	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3750	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3751	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3752	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3753	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3754	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3755	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3756	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3757	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3758	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3759	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3760	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3761	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3762	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3763	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3764	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3765	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3766	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3767	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3768	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3769
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3770	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3771	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3772	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3773	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3774	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3775	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3776	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3777	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3778	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3779	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3780	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3781	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3782	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3783	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3784	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3785	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3786	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3787	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3788	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3789	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3790	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3791	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3792	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3793	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3794	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3795	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3796	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3797	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3798	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3799	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3800	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3801	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3802	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3803	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3804	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3809	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3810	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3811	(ViewSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3812	name: 'AllBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3813	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3814	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3815	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3816	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3817	label: 'All (Others)'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3818	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3819	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3820	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3821	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3822	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3823	(LabelSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3824	label: 'Label'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3825	name: 'AllFont'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3826	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3827	translateLabel: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3828	labelChannel: allFontLabelHolder
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3829	adjust: left
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3830	postBuildCallback: postBuildAllFontLabel:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3831	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3832	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3833	label: 'Change...'
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3834	name: 'ChangeAll'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3835	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3836	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3837	tabable: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3838	model: changeAllFont
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3839	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3840	(DividerSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3841	name: 'Separator1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3842	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3843	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3844	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3845
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3846	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3847	extent: (Point 506 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3852	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3855	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3857	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3871	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3872	"/ View readStyleSheetAndUpdateAllStyleCaches.
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3873	self allOfThem value:View defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3874	self labelDef value:Label defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3875	self buttonDef value:Button defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3876	self listDef value:SelectionInListView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3877	self menuDef value:MenuView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3878	self textDef value:TextView defaultFont.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3879	self inputFieldDef value:EditField defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3880	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3881
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3882	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3883	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3884
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3885	View defaultFont:self allOfThem value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3886	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3887
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3888	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3889	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3890	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3891
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3892	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3893	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3894
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3895	fn := self inputFieldDef value.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3896	EditField withAllSubclasses do:[:cls \| cls defaultFont:fn].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3897
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3898	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3899	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3900
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3901	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3902	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3903	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3904	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3905	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3906	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3907	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3908
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3917	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3918	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3919	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3920	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3921	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3922	self textDef value:(f onDevice:textLabel device).
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3923	self inputFieldDef value:(f onDevice:inputFieldLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3932	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3936	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3940	changeInputFieldFont
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3941	\|f\|
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3942
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3943	f := FontPanel
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3944	fontFromUserInitial:(self inputFieldDef value)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3945	title:(resources string:'Font for %1' with:'Input Fields')
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3946	filter:filter.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3947	f notNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3948	self inputFieldDef value:(f onDevice:inputFieldLabel device).
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3949	]
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3950	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3951
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3953	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3960	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3961	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3972	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3973	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3977	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3981	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3984	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3985	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3986	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3988	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3996	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4033	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4038	infoText
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4039	^ self resources
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4040	string:'FONT_SETTINGS_INFO'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4041	default:'Please notice that any changes usually only affect new windows.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4042	Existing windows usually remember their initial font as created.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4043	If required, reopen some of the views.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4044
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4045	Also notice:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4046	unless you save your new settings,
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4047	only the current session is affected by changes here.'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4048
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4049	"Created: / 17-08-2010 / 10:52:00 / cg"
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4050	!
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4051
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4052	inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4053	inputFieldDef isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4054	inputFieldDef := ValueHolder new.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4055	inputFieldDef addDependent:self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4056	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4057	^ inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4058	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4059
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4060	inputFieldFontLabelHolder
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4061
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4062	inputFieldFontLabelHolder isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4063	inputFieldFontLabelHolder := '' asValue.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4064	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4065	^ inputFieldFontLabelHolder.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4066	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4067
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4081	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4099	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4104	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4105	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4107	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4111	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4117	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4129	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4135	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4136	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4137	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4138	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4143	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4144	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4145	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4146	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4147	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4148	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4149	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4150	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4152	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4153	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4154	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4155	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4156	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4157	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4158	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4160	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4161	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4162	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4163	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4164	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4165	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4166	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4168	changedObject == self inputFieldDef ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4169	self updateFontOfLabel:inputFieldLabel andFontNameHolder:(self inputFieldFontLabelHolder) from:changedObject.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4170	^ self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4171	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4172	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4174	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4175
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4176	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4177	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4178	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4179	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4180	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4181	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4182	self update:#value with:nil from:self textDef.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4183	self update:#value with:nil from:self inputFieldDef.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4184	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4185
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4186	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4187	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4188
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4189	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4190	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4191	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4192	''
c72e35116b13 instable state penk parents: 5040 diff changeset	4193	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	4194	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	4195	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4196	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4197	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4199
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4200	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4201
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4202	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4203	^ 'Launcher/fontSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4204	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4205
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4206	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4208	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4209
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4210	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4211	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4213	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4215	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4216	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4217
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4218	postBuildInputFieldFontLabel:aWidget
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4219
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4220	inputFieldLabel := aWidget.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4221	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4222
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4223	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4225	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4226	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4228	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4230	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4231	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4232
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4233	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4235	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4236	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4238	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4240	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4241	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4242
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4243	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4244	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4245	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	4246	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4247	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4249	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4251	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4252	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4253	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4254	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4255	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4256	self textDef value ~= TextView defaultFont ifTrue:[^ true].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4257	self inputFieldDef value ~= EditField defaultFont ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4258	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4259	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4260
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4261	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4262
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4263	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4264
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4265	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4266	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4267
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4268	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4269
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4270	^ #('Keep as String' 'Reference to Filename' 'Reference to Full Path' 'Append and Ref in `st.src''' 'Discard' )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4271	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4272
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4273	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4274
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4275	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4276	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4277
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4278	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4279
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4280	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4281	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4282
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4283	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4284	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4285	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4286
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4287	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4288	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4289
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4290	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4291	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4292	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4293	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4294	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4295
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4296	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4297
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4298	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4299	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4300	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4301	@@@@@@@@C??????@CUUUUUW@CZ**''@CZ''CCZ''@CVWKCVW@CU)WJCU)W@CUZ%W@CUZ%WACUVUW@CUV*UWDCUU)UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4302	CUU*)UWICUUZ%UWJCUUZ%UWACUUVUUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; 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??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4303	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4304
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4305	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4306	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4307	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4308
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4309	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4310	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4311
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4312	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4313	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4314	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4315	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4316	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4317
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4318	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4319
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4320	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4321	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4322	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4323	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4324	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4325	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4326	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4327	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4328	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4329	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4330	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4331
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4332	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4333
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4334	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4335	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4336	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4337
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4338	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4339	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4340
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4341	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4342	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4343	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4344	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4345	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4346
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4347	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4348
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4349	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4350	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4351	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4352	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4353	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4354	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4355	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4356	min: (Point 10 10)
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4357	bounds: (Rectangle 0 0 600 320)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4358	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4359	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4360	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4361	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4362	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4363	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4364	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4365	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4366	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4367	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4368	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4369	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4370	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4371	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4372	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4373	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4374	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4375	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4376	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4377	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4378	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4379	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4380	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4381	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4382	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4383	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4384	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4385	)
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4386	(DividerSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4387	name: 'Separator2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4388	extent: (Point 600 3)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4389	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4390	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4391	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4392	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4393	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4394	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4395	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4396	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4397	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4398	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4399	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4400	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4401	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4402	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4403	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4404	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4405	(ViewSpec
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4406	name: 'Box2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4407	component:
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4408	(SpecCollection
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4409	collection: (
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4410	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4411	label: 'Username in History:'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4412	name: 'Label1'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4413	layout: (LayoutFrame 0 0 5 0 200 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4414	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4415	adjust: right
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4416	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4417	(InputFieldSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4418	name: 'EntryField1'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4419	layout: (LayoutFrame 200 0 5 0 347 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4420	model: userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4421	immediateAccept: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4422	acceptOnReturn: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4423	acceptOnTab: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4424	acceptOnLostFocus: false
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4425	acceptOnPointerLeave: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4426	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4427	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4428	label: '(leave empty for login-name)'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4429	name: 'Label2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4430	layout: (LayoutFrame 354 0 5 0 554 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4431	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4432	adjust: left
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4433	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4434	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4435
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4436	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4437	extent: (Point 600 29)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4438	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4439	(DividerSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4440	name: 'Separator3'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4441	extent: (Point 600 3)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4442	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4443	(ViewSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4444	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4445	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4446	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4447	collection: (
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4448	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4449	label: 'FileIn Source Mode:'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4450	name: 'FileInSourceModeLabel'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4451	layout: (LayoutFrame 0 0 5 0 200 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4452	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4453	adjust: right
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4454	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4455	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4456	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4457	name: 'KeepSourceSelection'
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4458	layout: (LayoutFrame 200 0 5 0 -5 1 27 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4459	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4460	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4461	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4462	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4463	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4464	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4465
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4466	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4467	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4468	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4469	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4470	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4471	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4472	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4473	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4474	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4475	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4476	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4477	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4478	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4479	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4480	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4481	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4482
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4483	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4484	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4485	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4486
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4487	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4488	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4489	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4490
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4491	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4492
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4493	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4494	self keepSourceSelection value:(self class keepSourceOptions
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4495	indexOf:ClassCategoryReader sourceMode
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4496	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4497	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4498	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4499	self canLoadBinaries value ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4500	self loadBinaries value:Smalltalk loadBinaries
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4501	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4502	self loadBinaries value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4503	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4504	self hasHistoryManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4505	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4506	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4507	self fullHistoryUpdate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4508	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4509	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4510	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4511
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4512	"Modified: / 04-08-2010 / 18:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4513	"Modified: / 08-07-2011 / 10:26:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4514	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4515
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4516	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4517	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4518
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4519	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4520	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4521	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4522	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4523	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4524	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4525	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4526	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4527	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4528	].
9792 3786b182781a x Claus Gittinger <cg@exept.de> parents: 9754 diff changeset	4529	nm := (self userNameInHistoryHolder value ? '') withoutSeparators.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4530	nm isEmpty ifTrue:[ nm := nil ].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4531	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4532	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4533	Smalltalk loadBinaries:self loadBinaries value.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4534
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4535	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4536	"Modified: / 08-07-2011 / 10:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4537	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4538
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4539	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4540
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4541	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4542
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4543	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4544	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4545	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4546	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4547	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4548
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4549	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4550
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4551	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4552	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4553	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4554	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4555	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4556	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4557
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4558	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4559
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4560	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4561	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4562	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4563	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4564	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4565	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4566
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4567	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4568
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4569	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4570	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4571	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4572	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4573	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4574	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4575	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4576	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4577	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4578	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4579
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4580	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4581
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4582	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4583	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4584
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4585	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4586
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4587	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4588	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4589	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4590	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4591	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4592	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4593
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4594	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4595
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4596	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4597	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4598	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4599	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4600	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4601
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4602	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4603
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4604	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4605	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4606	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4607	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4608	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4609	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4610
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4611	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4612
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4613	loadBinaries isNil ifTrue:[
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4614	self canLoadBinaries value ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4615	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4616	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4617	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4618	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4619	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4620	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4621	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4622
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4623	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4624	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4625
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4626	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4627
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4628	userNameInHistoryHolder isNil ifTrue:[
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4629	userNameInHistoryHolder := '' asValue.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4630	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4631	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4632	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4633
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4634	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4635	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4636
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4637	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4638
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4639	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4640	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4641	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4642
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4643	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4644
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4645	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4646	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4647	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4648	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4649	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4650	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4651	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4652	(UserPreferences current historyManagerSignature ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4653	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4654
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4655	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	4656	"Modified: / 08-07-2011 / 10:25:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4657	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4658
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4659	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4660
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4661	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4662	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4663	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4664
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4665	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4666	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4667
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4668	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4669	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4670	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4671	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4672	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4673
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4674	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4675
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4676	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4677	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4678	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4679	@@@@@@DB@0PC@0HBAP@@@@@@@@@@@@@@@@TFA0 IB ,KB00E@@@@@@@@@@@@@@4NC1@QD!!LKB08KE@T@@@@@@@@@@@TUE!!\PDA@XFQ(NF10]AP@@@@@@@@DF
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4680	BQ8PDA@PDAH_E $HE"@@@@@@@@@BHP$VDA@PB00"H2P$IRX''J@@@@@@@JR(WG!!@PB2,+J2,+J2,+J2,+@@@@@@P,DA@PDB,-K"4-K2</K24(L@@@@@@1L#L3
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4681	DQ@+K"8.K"84MR86AS@@@@@@M3 IBP 9J28:N3,<OC4(O T0@@@@@C<*BP$IPB,6O#8>O#8>O#XEL@@@@@@APSHIBQ\+K"8.K"8.KR >AS@@@@@@K!!P2BQ8P
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4682	J28.K"8.K" (M T0@@@@@@@-EDHQDB-CP4MCP4MCP4PEL@@@@@@@@B9EQ!!@+KT\:N#(:N"4.AS@@@@@@@@@@K$!!IJ29JK2</K2<-M T0@@@@@@@@@@@@K",.
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4683	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4684	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a') ; colorMapFromArray:#[0 0 0 144 144 144 112 144 112 16 96 16 0 80 0 128 128 128 0 144 0 0 112 64 0 224 16 0 240 0 0 64 160 16 16 224 64 64 192 128 144 128 0 160 0 0 208 32 0 0 240 0 32 208 0 112 128 0 0 224 48 48 96 0 128 32 0 96 128 0 80 160 0 16 224 0 208 0 64 112 64 32 128 32 0 96 112 48 48 112 0 96 144 0 192 32 48 48 64 0 192 0 64 112 144 64 96 144 64 192 64 64 160 96 64 128 112 80 96 80 160 160 160 16 32 64 0 48 192 96 96 96 0 160 80 208 208 208 192 192 192 224 224 224 48 48 48 0 16 48 0 64 176 0 176 64 192 176 192 176 192 176 176 176 176 0 0 80 0 144 80 0 32 192 16 16 16 208 192 208 208 144 144 96 192 96 176 160 176 48 48 128 0 112 112 0 0 144 0 144 64 160 160 64 144 144 80 48 112 48 0 0 208 208 208 224 48 48 80 32 32 144 224 208 224 176 176 224 176 176 240 192 176 208]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<@??<@??>@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4685	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4686
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4687	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4688
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4689	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4690	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4691	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4692
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4693	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4694	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4695
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4696	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4697	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4698	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4699	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4700	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4701
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4702	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4703
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4704	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4705	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4706	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4707	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4708	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4709	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4710	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4711	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4712	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4713	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4714	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4715	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4716	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4717	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4718	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4719	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4720	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4721	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4722	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4723	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4724	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4725	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4726	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4727	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4728	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4729	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4730	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4731	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4732	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4733	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4734	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4735	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4736	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4737	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4738	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4739	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4740	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4741	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4742	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4743	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4744	layout: (LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4745	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4746	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4747	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4748	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4749	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4750	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4751
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4752	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4753	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4754	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4755	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4756	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4757	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4758	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4759	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4760	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4761	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4762	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4763	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4764	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4765	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4766	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4767	layout: (LayoutFrame 3 0 21 0 40 0 43 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4768	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4769	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4770	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4771	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4772	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4773	layout: (LayoutFrame 40 0 20 0 111 0 42 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4774	enableChannel: hasHTTPServerClass
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4775	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4776	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4777	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4778	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4779	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4780	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4781	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4782	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4783	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4784	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4785	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4786	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4787	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4788	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4789	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4790	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4791	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4792	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4793	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4794	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4795	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4796	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4797	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4798	model: createServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4799	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4800	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4801	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4802	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4803	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4804	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4805	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4806	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4807	model: createFcgiServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4808	enableChannel: hasFCGIServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4809	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4810	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4811	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4812	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4813	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4814	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4815	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4816	model: createServerFromFile
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4817	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4818	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4819	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4820	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4821	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4822	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4823	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4824	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4825	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4826	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4827	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4828	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4829	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4830
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4831	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4832	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4833	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4834
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4835	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4836	extent: (Point 539 142)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4837	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4838	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4839
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4840	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4841	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4842	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4843	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4844
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4845	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4846	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4847	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4848
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4849	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4850	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4851	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4852
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4853	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4854
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4855	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4856	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4857	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4858
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4859	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4860	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4861	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4862	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4863	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4864	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4865
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4866	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4867	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4868	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4869
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4870	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	4871	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4872	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4873
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4874	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4875
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4876	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4877	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4878
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4879	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4880	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4881	self serverClass runningServers
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4882	removeDependent:self;
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4883	addDependent:self.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4884	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4885	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4886	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4887
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4888	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4889	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4890
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4891	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	4892	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4893
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4894	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4895	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4896
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4897	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4898	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4899
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4900	FCGIServer isNil ifTrue:[
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4901	self warn:'The FCGIServer-class is missing - cannot create server.'.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4902	^ self.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4903	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4904	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4905
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4906	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4907	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4908
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4909	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4910	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4911
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4912	HTTPServer isNil ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4913	self warn:'The HTTPServer-class is missing - cannot create server.'.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4914	^ self.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4915	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4916	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4917
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4918	"Modified: / 09-04-2011 / 11:15:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4919	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4920
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4921	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4922	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4923
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4924	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4925	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4926	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4927	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4928	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4929	HTTPServerSettingsAppl isNil ifTrue:[
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4930	self warn:'Missing settings application: HTTPServerSettingsAppl'.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4931	^ self.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4932	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4933
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4934	settingsApp := HTTPServerSettingsAppl basicNew.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4935	settingsApp settingsDialog:self settingsDialog.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4936	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4937	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4938	settingsApp basicInitialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4939	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4940	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4941	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4942	self createdServerChanged.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4943	self settingsDialog expandItemForApplication:self.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4944	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4945	settingsApp initialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4946
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	4947	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4948	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4949
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4950	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4951
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4952	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4953
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4954	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4955	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4956	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4957	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4958
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4959	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4960	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4961	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4962	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4963	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4964	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4965	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4966	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4967	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4968	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4969	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4970	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4971
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4972	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4973	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4974	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4975	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4976	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4977	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4978	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4979	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4980	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4981
5049 3df132763949 instable state penk parents: 5044 diff changeset	4982	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4983	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4984
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4985	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4986	fileName := Dialog requestFileName:'Select a Server Settings File'
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4987	default:(serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4988	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4989
5049 3df132763949 instable state penk parents: 5044 diff changeset	4990	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4991	self withWaitCursorDo:[
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4992	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4993	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	4994	newServerPort := newServer port.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4995	runningServers := serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	4996	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	4997	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	4998	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4999	request:('There is already a server for port <1p>. Please select another one' expandMacrosWith:newServerPort)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5000	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5001	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5002	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	5003	].
8674 58aef376b077 asNumber eliminated Claus Gittinger <cg@exept.de> parents: 8659 diff changeset	5004	newServerPort := Number readFromString:answer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	5005	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5006	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	5007	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	5008	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5009	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5010	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	5011	].
3df132763949 instable state penk parents: 5044 diff changeset	5012	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5013
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5014	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	5015	!
3df132763949 instable state penk parents: 5044 diff changeset	5016
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	5017	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5018	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5019
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5020	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5021
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5022	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5023	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5024	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5025
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5026	serverToStart := serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5027	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5028	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5029	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5030	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5031	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5032	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5033	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5034	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5035
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5036	"Modified: / 25-01-2007 / 16:40:21 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5037	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5038
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5039	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5040	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5041
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5042	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5043	^ serverClass notNil
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5044	and:[ serverClass runningServers
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5045	contains:[:eachServer\| eachServer port = newServerPort]].
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5046
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5047	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5048	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	5049
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5050	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5051	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5052	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5053
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5054	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5055	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5056
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5057	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5058	serverClass isLoaded ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5059	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5060	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5061	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5062	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5063	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5064
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5065	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5066	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5067
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5068	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5069	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5070
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5071	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5072	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5073	instances := serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5074	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5075	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	5076	highestUsedPortNr := instances
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5077	inject:(serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5078	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5079
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5080	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5081	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5082	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5083	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5084	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5085
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5086	"Modified: / 25-01-2007 / 16:38:45 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5087	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5088
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5089	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5090
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5091	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5092	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5093	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5094	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5095	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5096	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5097
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5098	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5099	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5100	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5101	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5102	'This dialog enables you to create (possibly multiple) HTTP Server processes.
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5103	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5104
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5105	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5106	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5107	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5108
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5109	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5110
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5111	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5112	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5113	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5114	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5115	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5116
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5117	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5118
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5119	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5120
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5121	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5122	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5123	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5125	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	5126	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5127	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5128	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5129
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5130	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5131	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5132
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5133	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5134	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5135	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5136	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5137	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5138	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5139
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5140	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5141	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5142
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5143	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5144
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5145	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5146	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5147	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5148
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5149	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5150
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5151	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5152	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5153
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5154	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5155	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5156	serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5157	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5158
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5159	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5160	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5161
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5162	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5163
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5164	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5165	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5166	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5167	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5168
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5169	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5170	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5171
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5172	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5173	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5174
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5175	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5176	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5177
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5178	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5179	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5180
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5181	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5182
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5183	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5184	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5185
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5186	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5187	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5188	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5189	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5190	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5191
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5192	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5193	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5194	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5195
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5196	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5197	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5198	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5199
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5200	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5201	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5202
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5203	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5204	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5205
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5206	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5207	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5208
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5209	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5210
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5211	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5212	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5213
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5214	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5215	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5216
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5218
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5219	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5220	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5221	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5224	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5227	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5228	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5229	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5232	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5235	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5236	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5237	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5238	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5239	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5240	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5241	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5242	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5243	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5244	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5245	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5246	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5247	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5248	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5249	layout: (LayoutFrame 0 0.0 80 0 0 1.0 0 1.0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5250	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5251	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5252	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5253	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5254	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5255	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5256	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5257	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5258	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5259	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5260	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5261	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5262	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5263	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5264	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5265	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5266	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5267	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5268	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5269	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5270	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5271	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5272	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5273	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5274	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5276	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5277	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5278	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5279	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5280	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5281	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5282	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5283	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5284	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5285	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5286	layout: (LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5287	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5288	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5289	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5290	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5291	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5292	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5293	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5294	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5295	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5296	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5297	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5298	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5299	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5301	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5302	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5303	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5305	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5306	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5307	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5308	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5309	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5310	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5311	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 80 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5312	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5313	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5314	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5315	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5316	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5317	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5319	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5320	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5321	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5323	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5324
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5325	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5326	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5327	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5328
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5329	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5330	"nothing done here"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5331	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5333	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5334
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5335	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5336	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5337	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5338	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5339	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5340	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5341
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5342	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5343	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5344	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5345	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5346	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5347	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5348
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5349	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5350	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5351	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5352	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5353	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5354	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5355
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5356	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5358	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5359	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5360	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5361	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5362	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5363
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5364	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5366	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5367	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5368	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5369	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5370	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5372
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5373	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5375	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5376	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5377	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5378	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5379	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5380	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5383
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5384	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5387	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5388	self selectedFunctionKey value:(mappings at:raw asSymbol) asString withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5389
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5390	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5391	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5393	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5395	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5397	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5399	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5400	].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	5401	macro := currentUserPrefs functionKeySequences
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5402	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5403	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5405	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5406	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5407	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5409	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5410	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5411	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5413	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5414	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5416	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5419	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5422	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5429	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5436	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5440	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5441
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5442	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5445	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5449	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5450	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5453	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5454	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5455	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5458	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5459
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5460	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5461	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5462	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5463
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5464	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5466	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5468	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471
8679 d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	5472	rawKeyList := (mappings keys collect:[:key \| key asString] as:Array) sort.
d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	5473	functionKeyList := (mappings values asSet collect:[:key \| key asString] as:Array) sort.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5474
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5475	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5476	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5478	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5480	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5485	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5486
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5487	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5488	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5489
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5490	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5491	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5492
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5495	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5496	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5503	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5504	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5505	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5510	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5511	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5512	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5513	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5514	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5515	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5516	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5517	min: (Point 10 10)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5518	bounds: (Rectangle 0 0 571 878)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5520	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5521	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5522	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5523	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5524	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5525	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	5526	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5527	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5528	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5529	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5530	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5531	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5532	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5533	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5534	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	5535	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5536	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5537	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5538	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539	)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5540	(TextEditorSpec
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5541	name: 'TextEditor1'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5542	layout: (LayoutFrame 0 0 24 0 0 1.0 181 0)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5543	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5544	model: noticeLabelHolder
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5545	hasHorizontalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5546	hasVerticalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5547	miniScrollerHorizontal: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5548	autoHideScrollBars: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5549	isReadOnly: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5550	hasKeyboardFocusInitially: false
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5551	viewClassName: 'TextView'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5552	postBuildCallback: postBuildHelpLabel:
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5553	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5554	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5555	name: 'EntryField1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5556	layout: (LayoutFrame 2 0.0 180 0 -2 1.0 204 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5557	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5558	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5559	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5560	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5561	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5562	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5563	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5564	name: 'List1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5565	layout: (LayoutFrame 2 0.0 206 0 -2 1.0 -30 1.0)
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5566	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5567	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5568	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5569	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5570	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5571	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5572	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5573	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5574	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5575	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5576	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5577	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5578	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5579	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5580	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5581	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5582	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5583	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5584	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5585	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5586	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5587	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5588	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5589	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5590	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5591	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5592
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5593	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5594	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5595	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5597	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5598	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5599	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5601	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5603	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5604	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5606	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5607	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5609	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5610
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5611	basicReadSettings
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5612	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5613	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5614	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5615
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5616	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5617	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5618
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5619	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5620	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5621	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5622
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5624	languageString := translatedLanguages at:(self languageIndexHolder value).
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	5625	language := self languageHolder value asString string.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5626	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5627	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5628	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5629	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5630	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5631	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5632	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5633	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5635	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5636	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5637	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5638
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	5639	oldLanguage := UserPreferences current language.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5640	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5641	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5642
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5643	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5644	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5645	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5646	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5647	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5648	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5649	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5650	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5651	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5652	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5653	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5654
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5655	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5656	fontPrefs := fontPrefs collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	5657	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5658	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5659	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5660	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5661	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5662
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	5663	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5664	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5665	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5667	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5668	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5669	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5670	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5671	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5672	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5673	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5674	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5675	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5676	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5677	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5678	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5679	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5680	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5681	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5682	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5683	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5684	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5685	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5686	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5687	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5688
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5689	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5690	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5691	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5692	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5693	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5694	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5695	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5696	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5697	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5698	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5699	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5700	string:'Your display does not seem to offer any appropriate font.\\Change the language anyway ?\ (Texts will probably be unreadable then)'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5701	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5702	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5703	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5704	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5705	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5706	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5707	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5708	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5709	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5710	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	5711	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5712	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5713	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5714	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5715	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5716	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	5717	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5718	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5720	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5721	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5723	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5724	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5725	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5726	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5727	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5729	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5730	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5731	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	5732	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5733	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5734	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5736	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5737	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5738	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5739
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5740	"Modified: / 19-10-2006 / 22:17:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5741	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5742
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5743	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5744	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5745	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5746
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5747	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5748	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5749	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5750	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5751	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5752	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5753
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5754	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5755	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5756
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5757	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5758	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5759	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5760
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5761	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5762	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	5763	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5764	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5765	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5766	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5767	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5768	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5770	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5771
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5772	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5773	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5774	currentFlagAndLanguageChannel := self currentLanguage asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5775	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5776	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5777	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5779	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5780	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5781	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5782	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5783	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5784	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5785	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5786
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5787	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5788	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5789	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5790	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5791	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5792	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5793	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5794
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5795	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5796	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5797
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5798	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5799	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5800	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5801	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5802
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5803	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5804	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5805	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5806	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5807	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5808	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5809	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5810
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5811	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5812	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5813	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5814	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5815	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5816	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5817
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5818	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5819	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5820	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5821	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5823	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5824	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5825
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5826	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5827	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5828	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5829
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5830	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5831	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5832	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5833	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5834
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5835	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5836
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5837	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5838	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5839	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5840
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5841	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5843	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5844	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5845	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5846	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5847
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5848	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5849	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5850
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5851	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5852	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5853	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5854	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5855
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5856	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5857	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5858	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5859	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5860	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5861	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5862
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5863	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5864	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5865
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5866	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5867	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5868	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5869	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5870	[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5871	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5872
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5873	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5874	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5875	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5876	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5877	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5878	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5879	LanguageTerritory := terr asSymbol.
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5880	rsc := ResourcePack for:(self class) cached:false.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5881	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5882	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5883	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5884	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5885	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5886	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5887	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5888	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5889
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5890	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5891
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5892	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5893	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5894	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5895	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5896	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5897	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5898	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5899	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5900	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5901	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5902	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5903	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5904	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5905
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5906	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5907	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5908	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5909	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5910	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5911	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5912	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5913	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5914	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5915	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5916	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5917	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	5918	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5919	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5920
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5921	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5922	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5923	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5924	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5925
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5926	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5927	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5928	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5929	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5930	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5931	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5932	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5933	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5934	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5935	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5936	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	5937	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5938	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5939	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5940	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5941	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5942	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5943	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5944	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5946	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5947	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5948	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5949	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5950	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5952	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5953	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5954	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5955	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5956
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5957
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5958	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5959	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5960
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5961	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5962	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5963	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5964
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5965	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5966	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5967	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5968	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5969	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5970	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5971	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5972	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5973	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5974
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5975	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5976	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5977	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5978
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5979	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5980	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5981
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5982	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5983	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5984	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5985	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5987	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5989	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5990	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5991	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5992
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5993	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5994	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5995	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5996
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5997	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5998	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5999
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6000	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6001	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6002	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6003	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6004	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6005	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6006	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6007	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6008	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6009	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6010
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6011	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6012	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6013	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6014	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6015	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6016	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6017	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6018
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6019	hasUnsavedChanges
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	6020	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	6021
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	6022	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	6023	"Modified: / 24-08-2010 / 18:50:11 / sr"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6025
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6026	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6027
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6028	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6029	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6030
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6031	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6032	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6033
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6034	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6035
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6036	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6037	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6038	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6039
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6040	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6041	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6042
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6043	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6044	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6045	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6046	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6047	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6048
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6049	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6050
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6051	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6052	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6053	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6054	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6055	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6056	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6057	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6058	min: (Point 10 10)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6059	bounds: (Rectangle 0 0 705 722)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6060	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6061	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6062	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6063	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6064	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6065	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6066	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6067	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6068	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6069	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6070	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6071	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6072	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6073	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6074	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6075	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6076	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6077	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6078	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6079	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6080	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6081	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6082	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6083	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6084	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6085	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6086	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6087	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6088	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6089	name: 'EntryField23'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6090	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6091	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6092	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6093	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6094	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6095	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6096	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6097	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6098	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6099	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6100	name: 'Label44'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6101	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6102	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6103	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6104	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6105	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6106	label: '(Size of Space where new objects are created)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6107	name: 'Label45'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6108	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6109	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6110	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6111	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6112	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6113	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6114	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6115	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6116	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6117
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6118	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6119	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6120	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6121	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6122	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6123	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6124	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6125	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6126	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6127	name: 'EntryField24'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6128	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6129	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6130	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6131	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6132	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6133	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6134	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6135	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6136	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6137	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6138	name: 'Label46'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6139	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6140	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6141	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6142	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6143	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6144	label: '(Never allocate more than this amount of memory)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6145	name: 'Label47'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6146	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6147	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6148	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6149	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6150	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6151	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6152	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6153	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6154	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6155
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6156	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6157	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6158	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6159	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6160	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6161	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6162	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6163	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6164	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6165	name: 'EntryField14'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6166	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6167	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6168	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6169	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6170	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6171	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6172	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6173	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6174	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6175	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6176	name: 'Label26'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6177	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6178	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6179	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6180	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6181	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6182	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6183	name: 'Label27'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6184	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6185	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6186	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6187	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6188	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6189	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6190	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6191	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6192	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6193
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6194	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6195	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6196	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6197	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6198	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6199	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6200	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6201	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6202	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6203	name: 'EntryField25'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6204	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6205	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6206	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6207	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6208	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6209	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6210	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6211	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6212	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6213	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6214	name: 'Label48'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6215	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6216	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6217	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6218	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6219	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6220	label: '(Start IGC whenever this amount has been allocated)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6221	name: 'Label49'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6222	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6223	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6224	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6225	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6226	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6227	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6228	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6229	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6230	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6231
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6232	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6233	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6234	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6235	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6236	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6237	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6238	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6239	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6240	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6241	name: 'EntryField26'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6242	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6243	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6244	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6245	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6246	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6247	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6248	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6249	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6250	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6251	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6252	name: 'Label50'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6253	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6254	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6255	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6256	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6257	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6258	label: '(Start IGC whenever freespace drops below this)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6259	name: 'Label51'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6260	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6261	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6262	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6263	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6264	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6265	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6266	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6267	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6268	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6269
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6270	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6271	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6272	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6273	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6274	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6275	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6276	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6277	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6278	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6279	name: 'EntryField17'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6280	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6281	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6282	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6283	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6284	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6285	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6286	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6287	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6288	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6289	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6290	name: 'Label32'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6291	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6292	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6293	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6294	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6295	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6296	label: '(Try to keep this amount for peak requests)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6297	name: 'Label33'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6298	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6299	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6300	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6301	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6302	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6303	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6304	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6305	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6306	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6307
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6308	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6309	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6310	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6311	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6312	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6313	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6314	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6315	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6316	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6317	name: 'EntryField18'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6318	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6319	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6320	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6321	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6322	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6323	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6324	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6325	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6326	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6327	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6328	name: 'Label34'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6329	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6330	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6331	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6332	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6333	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6334	label: '(Increase oldSpace in chunks of this size)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6335	name: 'Label35'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6336	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6337	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6338	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6339	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6340	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6341	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6342	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6343	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6344	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6345
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6346	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6347	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6348	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6349	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6350	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6351	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6352	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6353	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6354	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6355	name: 'EntryField19'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6356	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6357	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6358	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6359	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6360	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6361	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6362	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6363	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6364	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6365	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6366	name: 'Label36'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6367	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6368	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6369	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6370	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6371	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6372	label: '(Use 2-pass compressing GC if > 0 and more memory is in use)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6373	name: 'Label37'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6374	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6375	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6376	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6377	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6378	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6379	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6380	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6381	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6382	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6383
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6384	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6385	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6386	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6387	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6388	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6389	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6390	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6391	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6392	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6393	name: 'EntryField20'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6394	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6395	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6396	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6397	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6398	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6399	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6400	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6401	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6402	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6403	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6404	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6405	name: 'Label38'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6406	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6407	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6408	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6409	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6410	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6411	label: '(Trigger recursionInterrupt if more stack is used by a process)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6412	name: 'Label39'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6413	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6414	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6415	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6416	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6417	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6418	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6419	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6420	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6421	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6422
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6423	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6424	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6425	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6426	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6427	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6428	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6429	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6430	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6431	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6432	name: 'EntryField21'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6433	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6434	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6435	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6436	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6437	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6438	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6439	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6440	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6441	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6442	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6443	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6444	name: 'Label40'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6445	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6446	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6447	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6448	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6449	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6450	label: '(Flush dynamic compiled code to stay within this limit)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6451	name: 'Label41'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6452	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6453	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6454	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6455	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6456	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6457	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6458	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6459	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6460	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6461
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6462	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6463	extent: (Point 705 30)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6464	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6465	(ViewSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6466	name: 'Box1'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6467	component:
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6468	(SpecCollection
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6469	collection: (
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6470	(InputFieldSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6471	name: 'EntryField27'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6472	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6473	enableChannel: supportsJustInTimeCompilation
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6474	model: methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6475	type: fileSize
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6476	acceptOnReturn: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6477	acceptOnTab: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6478	acceptOnLostFocus: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6479	acceptOnPointerLeave: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6480	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6481	(LabelSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6482	label: 'Method Code Size Limit:'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6483	name: 'Label52'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6484	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6485	translateLabel: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6486	adjust: right
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6487	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6488	(LabelSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6489	label: '(Do not JIT, if an individual method''s code size exceeds this)'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6490	name: 'Label53'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6491	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6492	translateLabel: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6493	adjust: left
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6494	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6495	(DividerSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6496	name: 'Separator28'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6497	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6498	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6499	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6500
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6501	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6502	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6503	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6504	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6505	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6506	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6507	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6508	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6509	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6510	name: 'EntryField22'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6511	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6512	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6513	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6514	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6515	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6516	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6517	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6518	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6519	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6520	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6521	name: 'Label42'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6522	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6523	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6524	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6525	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6526	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6527	label: '(Start incremental GC whenever this amount of code has been allocated)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6528	name: 'Label43'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6529	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6530	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6531	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6532	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6533	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6534	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6535	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6536	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6537	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6538
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6539	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6540	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6541	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6542	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6543
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6544	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6545	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6546	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6547
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6548	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6549	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6552	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6553
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6554	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6555	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6556	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6557	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6558	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6559	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6560	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6561	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6562
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6563	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6564	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6565	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6566	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6567	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6568	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6569	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6570	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6571	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6572
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6573	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6574
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6575	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6576	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6577
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6578	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6579	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6580	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6581	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6582	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6583	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6584	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6585	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6586
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6587	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6588	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6589	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6590	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6591	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6592	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6593	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6594	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6595	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6596
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6597	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6598
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6599	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6604	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6605
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6606	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6607	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6608	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6609	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6610	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6611	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6613	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6614
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6615	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6616	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6617	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6618	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6619	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6620	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6622	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6623
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6624	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6625	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6626	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6627	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6628	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6629	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6630
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6631	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6632
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6633	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6634	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6635	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6636	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6637	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6638	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6639
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6640	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6641
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6642	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6643	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6644	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6645	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6646	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6647	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6648
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6649	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6650
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6651	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6652	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6653	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6654	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6655	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6656	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6657
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6658	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6659
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6660	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6661	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6662	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6663	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6664	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6665	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6666
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6667	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6668
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6669	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6670	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6671	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6672	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6673	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6674	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6675
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6676	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6677
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6678	methodCodeSizeLimit isNil ifTrue:[
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6679	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6680	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6681	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6682	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6683
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6684	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6685	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6686
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6687	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6688
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6689	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6690	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6691	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6692	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6693	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6694	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6695
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6696	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6698	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6699	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6700	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6701	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6702	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6703	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6704
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6705	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6707	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6708	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6709	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6710	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6711	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6712	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6713
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6714	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6716	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6717	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6718
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6719	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6721	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6722	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6723	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6724	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6725	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6726
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6727	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6728
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6729	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6730	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6731	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6732
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6733	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6734
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6735	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6736	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	6737	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6738	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6739	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6740	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6741	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6742	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6744	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6745
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6746	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6747	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6748	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6749	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6750	newSpaceSize
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6751	maxOldSpace
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6752	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6753	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6754
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6755	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6756	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6757	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6758	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6759	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6760	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6761	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6762	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6763	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6764
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6765	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6766	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6767
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6768	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6769	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6770
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6771	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6772
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6773	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6774	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6775	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6776
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6777	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6778	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6779
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6780	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6781	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6782	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6783	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6784	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6785
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6786	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6787
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6788	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6789	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6790	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	6791	@@!!8@@@@@@BG @@@!!1]P@@@@AWE8@@!!1 '' @@@BGFB^@!!1 5Q8@@BGFBUG !!DWQPH@@B@Q]HD \QFA] @@A1DXE6X"DQ]VY&Y"HQE5I&@ ]QHD@FHBAED"TG
a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	6792	]QD$Q5IVI5ERQ5 !!TVPW]BUBEQIF$REXPT^FY1HV!!@$''HXPXIWU"]!!!!%@GI(BAFGUV\&!!FT@UGQ"PQEW^D]EYP@@PFHHETU5A@U%@@@@I@BGTRT@U%@@@@AH
a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	6793	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b') ; colorMapFromArray:#[0 0 0 224 224 224 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160 96 96 96]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(W<?8_<???<=:^<???<???<???<_??<O??<O??<B?=\@?<8@?=0@?? @O?@@W>@@K @@D@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6794	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6795
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6796	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6797
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6798	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6799	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6800	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6801
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6802	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6803	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6804
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6805	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6806	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6807	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6808	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6809	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6810
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6811	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6812
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6813	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6814	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6815	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6816	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6817	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6818	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6819	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6820	min: (Point 10 10)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6821	bounds: (Rectangle 0 0 732 558)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6822	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6823	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6824	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6825	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6826	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6827	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6828	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6829	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6830	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6831	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6832	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6833	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6834	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6835	collection: (
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6836	(FramedBoxSpec
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6837	label: 'SMTP Server'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6838	name: 'SMTPServerBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6839	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6840	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6841	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6842	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6843	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6844	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6845	name: 'Box5'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6846	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6847	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6848	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6849	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6850	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6851	label: 'SMTP Server:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6852	name: 'SMTPLabel'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6853	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6854	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6855	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6856	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6857	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6858	name: 'SMTPServer'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6859	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6860	model: smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6861	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6862	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6863	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6864	acceptOnPointerLeave: false
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6865	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6866	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6867
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6868	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6869	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6870	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6871
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6872	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6873	extent: (Point 732 58)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6874	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6875	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6876	label: 'Window migration'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6877	name: 'WindowMicrationSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6878	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6879	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6880	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6881	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6882	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6883	(VerticalPanelViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6884	name: 'VerticalPanel2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6885	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6886	horizontalLayout: left
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6887	verticalLayout: center
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6888	horizontalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6889	verticalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6890	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6891	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6892	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6893	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6894	name: 'Box2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6895	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6896	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6897	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6898	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6899	label: 'Window migration enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6900	name: 'CheckBox2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6901	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6902	enableChannel: hasWindowMigrationServer
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6903	model: windowMigrationEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6904	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6905	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6906	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6907
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6908	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6909	extent: (Point 696 23)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6910	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6911	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6912	name: 'Box3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6913	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6914	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6915	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6916	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6917	label: 'Password check'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6918	name: 'CheckBox3'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6919	layout: (LayoutFrame 5 0 -2 0 600 0 20 0)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6920	enableChannel: enablePasswordCheck
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6921	model: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6922	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6923	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6924	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6925
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6926	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6927	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6928	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6929	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6930	name: 'Box4'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6931	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6932	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6933	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6934	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6935	label: 'Password:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6936	name: 'Label3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6937	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6938	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6939	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6940	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6941	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6942	name: 'EntryField1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6943	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6944	enableChannel: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6945	model: windowMigrationPassword
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6946	type: password
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6947	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6948	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6949	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6950	acceptOnPointerLeave: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6951	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6952	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6953
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6954	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6955	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6956	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6957	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6958
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6959	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6960	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6961	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6962
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6963	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6964	extent: (Point 732 115)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6965	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6966	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6967	label: 'Remote Browsing'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6968	name: 'RemoteBrowsingSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6969	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6970	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6971	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6972	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6973	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6974	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6975	name: 'Box1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6976	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6977	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6978	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6979	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6980	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6981	label: 'Remote browsing enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6982	name: 'CheckBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6983	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6984	enableChannel: hasRemoteBrowsingSupport
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6985	model: remoteBrowsingEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6986	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6987	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6988	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6989
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6990	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6991	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6992	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6993
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6994	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6995	extent: (Point 732 59)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6996	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6997	(FramedBoxSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6998	label: 'SmallTeam Change Distribution'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6999	name: 'SmallTeamSetupBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7000	visibilityChannel: managerIsCVSSourceCodeManager
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7001	labelPosition: topLeft
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7002	translateLabel: true
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7003	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7004	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7005	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7006	(ViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7007	name: 'enableBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7008	layout: (LayoutFrame 0 0 8 0 0 1 31 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7009	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7010	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7011	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7012	(CheckBoxSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7013	label: 'SmallTeam Server enabled'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7014	name: 'CheckBox4'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7015	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	7016	enableChannel: smallTeamServerAvailable
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7017	model: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7018	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7019	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7020	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7021
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7022	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7023	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7024	(LabelSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7025	label: 'SmallTeam Hosts:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7026	name: 'smallTeamHostsLabel'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7027	layout: (LayoutFrame 0 0.0 37 0 60 0.25 59 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7028	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7029	adjust: right
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7030	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7031	(SequenceViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7032	name: 'smallTeamHostsList'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7033	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7034	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7035	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7036	model: selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7037	hasHorizontalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7038	hasVerticalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7039	miniScrollerHorizontal: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7040	useIndex: false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7041	sequenceList: listOfSmallTeamHosts
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7042	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7043	(LabelSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7044	label: 'Host:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7045	name: 'hostLabel'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7046	layout: (LayoutFrame 0 0.0 142 0 60 0.25 159 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7047	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7048	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7049	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7050	(InputFieldSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7051	name: 'smallTeamHostEntryField'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7052	layout: (LayoutFrame 64 0.25 138 0 0 1 160 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7053	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7054	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7055	model: smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7056	acceptChannel: acceptChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7057	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7058	)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7059	(HorizontalPanelViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7060	name: 'HorizontalPanel2'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7061	layout: (LayoutFrame 64 0.25 165 0 -1 1 190 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7062	horizontalLayout: fitSpace
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7063	verticalLayout: center
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7064	horizontalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7065	verticalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7066	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7067	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7068	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7069	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7070	label: 'Add'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7071	name: 'addButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7072	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7073	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7074	model: addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7075	enableChannel: addHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7076	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7077	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7078	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7079	label: 'Remove'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7080	name: 'removeButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7081	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7082	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7083	model: removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7084	enableChannel: removeHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7085	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7086	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7087	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7088
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7089	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7090	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7091	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7092
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7093	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7094	extent: (Point 732 222)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7095	)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7096	(FramedBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7097	label: '.NET Bridge'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7098	name: 'FramedBox1'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7099	labelPosition: topLeft
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7100	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7101	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7102	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7103	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7104	(VerticalPanelViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7105	name: 'VerticalPanel3'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7106	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7107	horizontalLayout: left
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7108	verticalLayout: center
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7109	horizontalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7110	verticalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7111	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7112	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7113	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7114	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7115	name: 'Box6'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7116	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7117	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7118	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7119	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7120	label: 'Verbose'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7121	name: 'CheckBox5'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7122	layout: (LayoutFrame 5 0 5 0 600 0 22 0)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7123	enableChannel: hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7124	model: dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7125	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7126	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7127	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7128
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7129	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7130	extent: (Point 696 23)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7131	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7132	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7133	name: 'Box7'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7134	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7135	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7136	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7137	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7138	label: 'Bridge Runs in IDE'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7139	name: 'CheckBox6'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7140	layout: (LayoutFrame 5 0 3 0 600 0 25 0)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7141	enableChannel: hasDotNetBridge
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7142	model: dotNetBridgeRunsInIDE
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7143	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7144	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7145	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7146
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7147	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7148	extent: (Point 696 22)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7149	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7150	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7151
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7152	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7153	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7154	(ActionButtonSpec
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7155	label: 'Close all Connections'
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7156	name: 'Button1'
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7157	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7158	translateLabel: true
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7159	tabable: true
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7160	model: closeAllDotNetConnections
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7161	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7162	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7163
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7164	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7165	extent: (Point 732 83)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7166	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7179	basicReadSettings
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7180	\|pw auth\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7181
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7182	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7183	readAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7184	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7185	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7186	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7187	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7188	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7189	from:currentUserPrefs.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7190
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7191	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7192	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7193	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7194	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7195
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7196	self remoteBrowsingEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7197	value:(self hasRemoteBrowsingSupport
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7198	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7199
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7200	self windowMigrationEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7201	value:(self hasWindowMigrationServer
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7202	and:[ WindowMigrationServer isLoaded
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7203	and:[ WindowMigrationServer serverRunning ]]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7204
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7205
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7206	pw := nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7207	auth := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7208	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7209	pw := WindowMigrationServer password.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7210	auth := self windowMigrationPassword value notNil
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7211	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7212
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7213	self windowMigrationPassword value:pw.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7214	self windowMigrationAuthenticate value:auth
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7215
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7216	"Modified: / 20-09-2007 / 16:04:59 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7217	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7218
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7219	basicSaveSettings
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7220	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7221	writeAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7222	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7223	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7224	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7225	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7226	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7227	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7228
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7229	(SmallTeam notNil) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7230	SmallTeam connectedHosts copy do:[:host \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7231	(self listOfSmallTeamHosts includes:host) ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7232	SmallTeam removeHost:host.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7233	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7234	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7235
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7236	self listOfSmallTeamHosts do:[:eachHost \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7237	SmallTeam addHost:eachHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7238	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7239	self smallTeamServerEnabled value ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7240	SmallTeam startServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7241	] ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7242	SmallTeam stopServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7243	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7244	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7245
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7246	self hasRemoteBrowsingSupport ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7247	self remoteBrowsingEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7248	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7249	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7250	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7251	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	7252	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7253	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7254	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7255	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7256	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7257	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7258	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7259	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7260	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7261	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7262	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7263
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7264	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7265	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7266	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7267	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7268	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7269	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7270	self windowMigrationEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7271	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7272	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7273	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7274	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	7275	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7276	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7277	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7278	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7279	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7280	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7281	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7282	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7283	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7284	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7285	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7286
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7287	"Modified: / 20-09-2007 / 16:05:01 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7288	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7289
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7290	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7291
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7292	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7293
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7294	acceptChannel isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7295	acceptChannel := TriggerValue new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7296	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7297	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7298
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7299	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7300	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7301
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7302	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7303
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7304	dotNetBridgeRunsInIDE isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7305	dotNetBridgeRunsInIDE := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7306	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7307	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7308	^ dotNetBridgeRunsInIDE.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7309	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7310
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7311	dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7312
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7313	dotNetBridgeVerbose isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7314	dotNetBridgeVerbose := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7315	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7316	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7317	^ dotNetBridgeVerbose.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7318	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7319
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7320	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7321
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7322	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	7323	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7324	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	7325	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7326	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7327	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7328	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7329	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7330	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7331
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7332	hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7333	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7334	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7335
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7336	listOfSmallTeamHosts
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7337
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7338	listOfSmallTeamHosts isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7339	listOfSmallTeamHosts := List new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7340	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7341	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7342	^ listOfSmallTeamHosts.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7343
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7344	"Created: / 12-11-2006 / 19:06:35 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7345	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7346
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7347	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7348
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7349	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7350	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7351	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7352	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7353	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7354	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7355
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7356	removeHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7357	^ BlockValue
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7358	forLogical:self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7359	and:(BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	7360	with:[:h \| h notEmptyOrNil]
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7361	argument:self selectedSmallTeamHost)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7362
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7363	"Created: / 12-11-2006 / 19:01:42 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	7364	"Modified: / 08-03-2007 / 23:02:36 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7365	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7366
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7367	selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7368
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7369	selectedSmallTeamHost isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7370	selectedSmallTeamHost := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7371	selectedSmallTeamHost addDependent:self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7372	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7373	^ selectedSmallTeamHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7374
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7375	"Created: / 12-11-2006 / 19:11:01 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7376	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7377
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7378	smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7379
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7380	smallTeamHostEntry isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7381	smallTeamHostEntry := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7382	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7383	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7384	^ smallTeamHostEntry.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7385
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7386	"Created: / 12-11-2006 / 19:07:06 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7387	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7388
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7389	smallTeamServerAvailable
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7390	^ SmallTeam notNil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7391
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7392	"Created: / 12-11-2006 / 18:56:20 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7393	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7394
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7395	smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7396
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7397	smallTeamServerEnabled isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7398	smallTeamServerEnabled := false asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7399	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7400	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7401	^ smallTeamServerEnabled.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7402
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7403	"Created: / 12-11-2006 / 18:56:11 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7404	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7405
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7406	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7407
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7408	smtpServerName isNil ifTrue:[
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7409	smtpServerName := '' asValue.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7410	smtpServerName onChangeSend:#updateModifiedChannel to:self.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7411	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7412	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7413
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7414	"Created: / 20-09-2007 / 16:04:39 / cg"
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7415	!
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7417	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7418
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7419	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7420	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7421	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7422	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7423	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7424	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7426	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7427
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7428	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7429	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7430	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7431	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7432	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7433	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7434
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7435	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7436
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7437	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7438	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7439	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7440	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7441	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7442	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7443
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7444	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7445
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7446	selectedSmallTeamHostChanged
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7447	self acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7448	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7449
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7450	"Created: / 12-11-2006 / 19:09:49 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7451	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7452
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7453	update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7454	changedObject == selectedSmallTeamHost ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7455	self selectedSmallTeamHostChanged.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7456	^ self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7457	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7458
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7459	super update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7460
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7461	"Created: / 12-11-2006 / 19:09:40 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7462	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7463
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7464	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7465
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7466	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7467	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7468	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7469
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7470	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7471
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7472	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7473	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7474	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7475	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7476
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7477	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7478
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7479	addHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7480	^ self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7481
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7482	"Created: / 12-11-2006 / 19:01:37 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7483	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7484
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7485	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7486
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7487	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7488	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7489
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7490	hasUnsavedChanges
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7491	(self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7492	hasChangedAspectIn:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7493	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7494	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7495	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7496	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7497	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7498	asComparedTo:currentUserPrefs) ifTrue:[^ true].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7499
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7500	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7501	self smallTeamServerEnabled value ~= (SmallTeam isLoaded and:[SmallTeam serverRunning]) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7502	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7503	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7504
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7505	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7506	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7507	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7508	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7509	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7510	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7511	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7512	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7513	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7514	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7515	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7516	(self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7517	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7518	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7519
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7520	"Modified: / 20-09-2007 / 16:04:56 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7521	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7522
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7523	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7524
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7525	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7526	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7527
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7528	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'user actions'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7529
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7530	addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7531	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7532
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7533	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7534
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7535	host := self smallTeamHostEntry value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7536
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7537	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7538	self listOfSmallTeamHosts add:host
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7539	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7540
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7541	"Modified: / 12-11-2006 / 19:06:22 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7542	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7543
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7544	closeAllDotNetConnections
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7545	DOTNET::DotNet notNil ifTrue:[
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7546	DOTNET::DotNet exitAllLiveInstances
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7547	].
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7548	!
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7549
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7550	removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7551	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7552
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7553	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7554
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7555	host := self selectedSmallTeamHost value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7556
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7557	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7558	self selectedSmallTeamHost value:nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7559	self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7560	self smallTeamHostEntry value:''.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7561	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7562
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7563	"Modified: / 12-11-2006 / 19:15:05 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7564	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7565
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7566	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7568	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7569	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7570	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7572	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7573	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7574
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7575	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7576	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7577	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7578	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7579	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7580
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7581	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7582
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7583	^Icon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7584	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7585	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7586	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A @F@@@@@@@@@@@@@@@@@@@@@@@@@@X@A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7587	@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP4MCP4MCP4MCP4MCP4M@@@@@@@@@04B@0<ODADRD!!LT@ LCCP@@@@@@@@LM@ LOC1@QD!!HSE@HC@04@@@@@@@@CCPLN
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7588	EQTUE!!XVE1\CC 8M@@@@@@@@@0TB@ HB@ HB@ HBB (JAP@@@@@@@@LE@ HB@ HB@ HB@ (JB T@@A(XF@@CAPHB@ HB@ HB@ (JB (E@ @@@@@@@0TB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7589	@ HB@ HJB (JAPH@@A @@@LE@ HB@ HB@ HBB (JB T@@@@X@@@CAPHB@ HB@ HB@ (JB (E@@@@F@@@@0TB@ HB@ HB@ (JB (JAP@@F!!(X@@LE@ HB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7590	@ HBB (JB T@@A(XF@@CAPHB@ HB@ HBB (JB (E@@@ZFA @@0TEAPTEAPTEAPTEAPTEAP@@F!! X@@LC@0LC@0LC@0LC@0LC@0@@@A(ZF@@@@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7591	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112 100 100 100 127 127 127 255 255 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@8@@@8@@@P@@@P_?<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@') ; yourself); yourself]
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7592	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7593
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7594	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7595
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7596	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7597	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7598	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7600	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7601	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7603	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7604	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7605	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7606	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7607	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7609	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7611	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7612	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7613	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7614	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7615	(WindowSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7616	label: 'Display settings 2'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7617	name: 'Display settings 2'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7618	min: (Point 10 10)
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7619	bounds: (Rectangle 0 0 671 591)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7620	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7621	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7622	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7623	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7624	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7625	name: 'VerticalPanel1'
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7626	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7627	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7628	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7629	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7630	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7631	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7632	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7633	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7634	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7635	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7636	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7637	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7638	model: nativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7639	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7640	extent: (Point 661 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7641	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7642	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7643	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7644	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7645	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7646	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7647	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7648	extent: (Point 661 22)
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7649	)
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7650	(CheckBoxSpec
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7651	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7652	name: 'CheckBox1'
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7653	enableChannel: displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7654	model: nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7655	translateLabel: true
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7656	extent: (Point 661 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7657	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7658	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7659	name: 'SeparatingSpace1'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7660	extent: (Point 661 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7661	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7662	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7663	name: 'Separator1'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7664	extent: (Point 661 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7665	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7666	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7667	name: 'SeparatingSpace2'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7668	extent: (Point 661 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7669	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7670	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7671	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7672	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7673	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7674	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7675	extent: (Point 661 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7676	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7677	(CheckBoxSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7678	label: 'Opaque Variable Panel Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7679	name: 'opaqueVariablePanelResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7680	model: opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7681	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7682	extent: (Point 661 22)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7683	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7684	(CheckBoxSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7685	label: 'Opaque Table Column Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7686	name: 'opaqueTableColumnResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7687	model: opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7688	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7689	extent: (Point 661 22)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7690	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7691	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7692	name: 'SeparatingSpace3'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7693	extent: (Point 661 4)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7694	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7695	(DividerSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7696	name: 'Separator3'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7697	extent: (Point 661 3)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7698	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7699	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7700	name: 'SeparatingSpace4'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7701	extent: (Point 661 3)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7702	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7703	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7704	label: 'Right-Click in Title brings Window to Back'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7705	name: 'lowerOnRightClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7706	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7707	model: lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7708	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7709	extent: (Point 661 21)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7710	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7711	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7712	label: 'Shift-Click in Title brings Window to Back'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7713	name: 'lowerOnShiftClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7714	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7715	model: lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7716	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7717	extent: (Point 661 21)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7718	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7719	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7720
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7721	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7722	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7723	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7724
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7725	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7726	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7727	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7728
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7729	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7730
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7731	aspectsFromUserPreferences
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7732	^ #(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7733	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7734	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7735	)
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7736
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7737	"Modified: / 24-08-2010 / 17:26:38 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7738	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7739
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7740	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7741	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7742
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7743	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7744
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7745	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7746	readAspects:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7747	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7748	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7749	nativeDialogs
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7750	nativeFileDialogs
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7751	)
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7752	from:currentScreen.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7753
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7754	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7755	readAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7756	from:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7757
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7758	self shadows value:PopUpView shadows.
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7759
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7760	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7761	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7762	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7763	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7764
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7765	"Modified: / 24-08-2010 / 16:43:39 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7766	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7767
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7768	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7769	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7770
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7771	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7772
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7773	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7774
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7775	self displaySupportsNativeWidgets ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7776	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7777	mustReopenTools := true.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7778	currentScreen nativeWidgets:self nativeWidgets value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7779	currentUserPrefs nativeWidgets:self nativeWidgets value.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7780	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7781	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7782	self displaySupportsNativeDialogs ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7783	currentScreen nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7784	currentUserPrefs nativeDialogs:self nativeDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7785	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7786	self displaySupportsNativeFileDialogs ifTrue:[
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7787	currentScreen nativeFileDialogs:self nativeFileDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7788	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7789	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7790
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7791	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7792
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7793	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7794	writeAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7795	to:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7796
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7797	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7798	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7799	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7800	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7801
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7802	mustReopenTools ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7803	self reopenToolsAfterChangedViewStyleSetting.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7804	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7805
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7806	"Modified: / 24-08-2010 / 17:27:25 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7807	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7808
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7809	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7810
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7811	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7812	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7813	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7814
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7815	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7816	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7817
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7818	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7819	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7820
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7821	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7822	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7823	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7824
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7825	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7826	lowerOnRightClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7827	lowerOnRightClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7828	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7829	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7830	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7831	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7832
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7833	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7834	lowerOnShiftClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7835	lowerOnShiftClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7836	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7837	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7838	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7839	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7840
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7841	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7842	nativeDialogs isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7843	nativeDialogs := Screen current nativeDialogs asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7844	nativeDialogs onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7845	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7846	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7847	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7848
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7849	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7850	nativeFileDialogs isNil ifTrue:[
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7851	nativeFileDialogs := Screen current nativeFileDialogs asValue.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7852	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7853	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7854	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7855
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7856	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7857	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7858
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7859	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7860	nativeWidgets isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7861	nativeWidgets := Screen current nativeWidgets asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7862	nativeWidgets onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7863	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7864	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7865	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7866
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7867	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7868	opaqueTableColumnResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7869	opaqueTableColumnResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7870	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7871	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7872	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7873	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7874
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7875	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7876	opaqueVariablePanelResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7877	opaqueVariablePanelResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7878	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7879	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7880	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7881	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7882
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7883	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7884	shadows isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7885	shadows := PopUpView shadows asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7886	shadows onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7887	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7888	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7889	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7890
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7891	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7892
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7893	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7894	^ 'Launcher/miscSettings.html'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7895	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7896
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7897	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7898
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7899	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7900	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7901
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7902	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7903
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7904	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7905	hasChangedAspectIn:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7906	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7907	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7908	nativeDialogs
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7909	nativeFileDialogs
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7910	)
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7911	asComparedTo:currentScreen) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7912
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7913	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7914	hasChangedAspectIn:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7915	asComparedTo:currentUserPrefs) ifTrue:[^ true].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7916
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7917	self shadows value ~= PopUpView shadows ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7918
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7919	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7920	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7921	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7922	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7923	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7924
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7925	"Modified: / 24-08-2010 / 16:44:43 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7926	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7927
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7928	isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7929	^ Screen current platformName = 'WIN32'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7930	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7931
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7932	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7933
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7934	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7935	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7936	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7937
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7938	"Do not manually edit this!! If it is corrupted,
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7939	the ImageEditor may not be able to read the specification."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7940
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7941	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7942	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7943	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7944	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7945	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7946
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7947	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7948
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7949	^Icon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7950	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7951	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7952	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7953	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7954	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7955	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7956	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7957	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7958	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7959
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7960	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7961
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7962	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7963	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7964	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7965
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7966	"Do not manually edit this!! If it is corrupted,
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7967	the UIPainter may not be able to read the specification."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7968
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7969	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7970	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7971	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7972	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7973	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7974
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7975	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7976
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7977	^
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7978	#(FullSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7979	name: windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7980	window:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7981	(WindowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7982	label: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7983	name: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7984	min: (Point 10 10)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7985	bounds: (Rectangle 0 0 445 497)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7986	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7987	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7988	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7989	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7990	(VerticalPanelViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7991	name: 'VerticalPanel1'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7992	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7993	horizontalLayout: fitSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7994	verticalLayout: topSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7995	horizontalSpace: 5
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	7996	verticalSpace: 1
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7997	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7998	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7999	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8000	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8001	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8002	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8003	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8004	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8005	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8006	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8007	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8008	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8009	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8010	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8011	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8012	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8013	)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8014	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8015	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8016	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8017	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8018	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8019	name: 'Separator1'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8020	extent: (Point 435 3)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8021	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8022	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8023	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8024	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8025	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8026	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8027	label: 'Keyboard Focus Follows Mouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8028	name: 'focusFollowsMouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8029	model: focusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8030	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8031	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8032	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8033	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8034	label: 'Views Catch Focus when Mapped'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8035	name: 'takeFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8036	model: takeFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8037	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8038	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8039	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8040	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8041	label: 'Boxes Return Focus to Previously Active View'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8042	name: 'returnFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8043	model: returnFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8044	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8045	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8046	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8047	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8048	label: 'Raise & Activate Windows on Click'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8049	name: 'activateOnClick'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8050	model: activateOnClick
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8051	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8052	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8053	)
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8054	(CheckBoxSpec
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8055	label: 'Force Windows into Monitor''s Bounds'
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8056	name: 'CheckBox2'
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8057	activeHelpKey: forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8058	model: forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8059	translateLabel: true
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8060	extent: (Point 435 22)
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8061	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8062	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8063	name: 'SeparatingSpace3'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8064	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8065	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8066	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8067	name: 'Separator2'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8068	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8069	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8070	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8071	name: 'SeparatingSpace4'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8072	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8073	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8074	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8075	label: 'MouseWheel Focus Follows Mouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8076	name: 'mouseWheelFocusFollowsMouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8077	enableChannel: mouseWheelFocusFollowsMouseEnabled
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8078	model: mouseWheelFocusFollowsMouse
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8079	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8080	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8081	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8082	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8083	label: 'CTRL-MouseWheel is Zoom'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8084	name: 'CheckBox1'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8085	model: allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8086	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8087	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8088	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8089	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8090	name: 'SeparatingSpace5'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8091	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8092	)
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8093	(DividerSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8094	name: 'Separator3'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8095	extent: (Point 435 4)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8096	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8097	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8098	name: 'SeparatingSpace6'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8099	extent: (Point 435 3)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8100	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8101	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8102	label: 'Select on Right-Button-Press'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8103	name: 'selectOnRightClick'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8104	model: selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8105	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8106	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8107	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8108	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8109	label: 'Menu on Right-Button-Release'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8110	name: 'showRightButtonMenuOnRelease'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8111	model: showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8112	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8113	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8114	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8115	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8116	name: 'SeparatingSpace7'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8117	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8118	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8119	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8120	name: 'Separator4'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8121	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8122	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8123	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8124	name: 'SeparatingSpace8'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8125	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8126	)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8127	(ViewSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8128	name: 'Box1'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8129	component:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8130	(SpecCollection
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8131	collection: (
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8132	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8133	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8134	name: 'Label1'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8135	layout: (LayoutFrame 0 0 0 0 167 0 17 0)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8136	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8137	labelChannel: formatHostNameWindowLabel
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8138	adjust: right
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8139	useDefaultExtent: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8140	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8141	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8142	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8143	name: 'Label2'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8144	layout: (LayoutFrame 0 0.3 30 0 0 0.6 0 1)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8145	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8146	labelChannel: formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8147	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8148	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8149	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8150	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8151	name: 'Label3'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8152	layout: (LayoutFrame 0 0.6 30 0 0 1 0 1)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8153	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8154	labelChannel: formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8155	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8156	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8157	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8158
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8159	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8160	extent: (Point 435 92)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8161	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8162	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	8163	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8164	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8165	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8166	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8167	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8168	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8169	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8170	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8171	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8172	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8173	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8174	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8175	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8176	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8177	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8178	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8179	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8180	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8181	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8182	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8183	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8184	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8185	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8186
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8187	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8188	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8189	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8190	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8192	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8193	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8194	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8196	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8197	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8201
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8202	aspectsFromUserPreferences
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8203	^ #(
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8204	beepEnabled
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8205	focusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8206	mouseWheelFocusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8207	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8208	selectOnRightClick
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8209	allowMouseWheelZoom
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8210	forceWindowsIntoMonitorBounds
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8211	)
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8212
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8213	"Modified: / 22-10-2010 / 14:25:54 / cg"
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8214	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8215
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8216	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8217	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8218	readAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8219	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8220
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8221	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8222	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8223	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8224	self takeFocus value:StandardSystemView takeFocusWhenMapped.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8225	self activateOnClick value:(Display activateOnClick:nil).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8226	self showAccelerators value:MenuView showAcceleratorKeys.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8227	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8229	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8230	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8231
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8232	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8233
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8234	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8235	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8236	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8237	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8238	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8239	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8240
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8241	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8242	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8243	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8244
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8245	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8246	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8247	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8248	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8249	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8250	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8251	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8252	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8253	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8254
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8255	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8256	writeAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8257	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8258
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8259	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8260	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8261	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8262
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8263	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8264
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8265	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8266	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8267
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8268	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8269	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	8270
c72e35116b13 instable state penk parents: 5040 diff changeset	8271	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	8272	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	8273	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	8274	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	8275	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	8276	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	8277	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	8278	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8279	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8280
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8281	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8282
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8283	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8284	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8285	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8286	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8287	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8288	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8289	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8290
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8291	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8292	allowMouseWheelZoom isNil ifTrue:[
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8293	allowMouseWheelZoom := true asValue.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8294	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8295	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8296	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8297	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8298
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8299	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8300	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8301	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8302	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8303	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8304	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8305	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8306
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8307	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8308	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8309	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8310
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8311	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8312	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8313	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8314
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8315	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8316	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8317	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8318	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8319	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8320	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8321	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8322
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8323	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8324	forceWindowsIntoMonitorBounds isNil ifTrue:[
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8325	forceWindowsIntoMonitorBounds := true asValue.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8326	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8327	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8328	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8329
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8330	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8331	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8332
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8333	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8334	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8335	formatHostNameWindowLabel :=
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8336	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8337	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8338	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8339
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	8340	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	8341	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8342	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8343
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8344	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8345	formatHostNameWindowLabel1 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8346	formatHostNameWindowLabel1 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8347	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8348	'%1 - Label
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8349	%2 - Hostname
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8350	%3 - Username')
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8351	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8352	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8353
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8354	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8355	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8356	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8357
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8358	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8359	formatHostNameWindowLabel2 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8360	formatHostNameWindowLabel2 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8361	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8362	'%4 - ProcessId
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8363	%5 - TOP-Directory
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8364	%6 - TOP-Path').
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8365	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8366	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8367
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8368	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8369	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8370	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8371
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8372	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8373	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8374	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8375	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8376	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8377	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8378	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8379
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8380	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8381	mouseWheelFocusFollowsMouse isNil ifTrue:[
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8382	mouseWheelFocusFollowsMouse := true asValue.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8383	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8384	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8385	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8386	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8387
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8388	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8389	^ BlockValue
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8390	forLogicalNot:(self focusFollowsMouse).
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8391	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8393	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8394	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8395	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8396	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8397	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8398	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8399
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8400	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8401	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8402
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8403	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8404	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8405	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8406	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8407	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8408	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8409	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8410
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8411	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8412	selectOnRightClick isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8413	selectOnRightClick := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8414	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8415	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8416	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8417	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8418
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8419	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8420	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8421	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8422	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8423	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8424	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8426
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8427	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8428	showRightButtonMenuOnRelease isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8429	showRightButtonMenuOnRelease := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8430	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8431	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8432	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8433	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8434
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8435	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8436	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8437	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8438	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8439	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8440	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8441	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8442
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8443	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8444
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8445	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8446	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8447	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8448
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8450
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8451	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8452	(self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8453	hasChangedAspectIn:(self aspectsFromUserPreferences)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8454	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8455
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8456	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8457	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8458	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8459	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8460	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8461	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8462	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8463	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8464
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8465	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8466
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8467	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8468	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8469
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8470	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8471	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8472
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8473	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8474
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8475	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8476	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8477	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8478
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8479	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8480	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8481
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8482	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8483	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8484	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8485	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8486	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8487
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8488	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8489
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8490	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8491	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8492	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8493	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8494	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8495	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8496	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8497	min: (Point 10 10)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8498	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8499	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8500	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8501	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8502	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8503	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8504	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8505	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8506	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8507	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8508	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8509	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8510	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8511	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8512	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8513	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8514	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8515	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8516	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8517	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8518	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8519	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8520	name: 'Box1a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8521	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8522	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8523	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8524	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8525	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8526	name: 'CheckBox1'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8527	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8528	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8529	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8530	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8531	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8532	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8533
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8534	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8535	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8536	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8537	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8538	name: 'Box1b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8539	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8540	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8541	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8542	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8543	label: 'Log Connections'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8544	name: 'CheckBox10'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8545	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8546	enableChannel: osiACSEPresent
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8547	model: osiACSEConnectionLogging
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8548	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8549	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8550	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8551
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8552	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8553	extent: (Point 600 26)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8554	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8555	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8556	name: 'Box1c'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8557	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8558	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8559	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8560	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8561	label: 'Log Data Transfer'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8562	name: 'CheckBox14'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8563	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8564	enableChannel: osiACSEPresent
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8565	model: osiACSEDataLogging
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8566	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8567	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8568	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8569
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8570	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8571	extent: (Point 600 26)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8572	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8573	(DividerSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8574	name: 'Separator1'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8575	extent: (Point 600 4)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8576	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8577	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8578	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8579	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8580	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8581	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8582	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8583	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8584	name: 'Box4a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8585	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8586	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8587	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8588	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8589	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8590	name: 'CheckBox4'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8591	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8592	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8593	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8594	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8595	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8596	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8597
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8598	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8599	extent: (Point 600 25)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8600	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8601	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8602	name: 'Box4b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8603	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8604	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8605	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8606	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8607	label: 'Log Invoactions'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8608	name: 'CheckBox16'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8609	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8610	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8611	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8612	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8613	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8614	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8615
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8616	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8617	extent: (Point 600 25)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8618	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8619	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8620	name: 'Box4c'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8621	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8622	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8623	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8624	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8625	label: 'Log Responses'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8626	name: 'CheckBox20'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8627	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8628	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8629	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8630	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8631	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8632	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8633
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8634	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8635	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8636	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8637	(DividerSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8638	name: 'Separator2'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8639	extent: (Point 600 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8640	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8641	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8642	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8643	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8644	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8645	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8646	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8647	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8648	name: 'Box7a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8649	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8650	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8651	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8652	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8653	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8654	name: 'CheckBox7'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8655	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8656	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8657	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8658	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8659	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8660	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8661
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8662	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8663	extent: (Point 600 22)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8664	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8665	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8666	name: 'Box7b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8667	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8668	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8669	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8670	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8671	label: 'Log Messages'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8672	name: 'CheckBox22'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8673	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8674	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8675	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8676	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8677	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8678	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8679
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8680	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8681	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8682	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8683	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8684
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8685	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8686	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8687	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8688
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8689	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8690	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8691	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8692
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8693	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8694
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8695	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8696	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8697	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8698	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8699	self osiACSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8700	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8701	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8702	self osiACSEDataLogging value:OSI::ACSE dataLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8703	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8704	self osiROSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8705	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8706	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8707	self osiROSEResponseLogging value:OSI::ROSE responseLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8708	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8709	self osiCMISEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8710	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8711	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8712	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8713	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8714
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8715	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8716
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8717	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8718	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8719	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8720	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8721	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8722	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8723	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8724	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8725	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8726	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8727	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8728	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8729	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8730	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8731	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8732
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8733	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8734
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8735	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8736	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8737	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8738	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8739	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8740	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8741
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8742	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8743
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8744	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8745	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8746	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8747	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8748	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8749
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8750	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8751	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8752	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8753	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8754	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8755	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8757	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8758	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8759	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8760	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8761	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8762	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8763
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8764	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8765	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8766	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8767	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8768	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8769	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8770
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8771	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8772	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8773	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8774	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8775	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8776	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8778	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8779	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8780	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8781	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8782	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8783	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8784
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8785	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8786	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8787	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8788	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8789	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8790	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8791
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8792	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8793	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8794	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8795	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8796	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8797	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8799	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8800
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8801	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8802	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8803	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8804	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8805	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8807	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8808
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8809	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8810	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8811	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8812	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8813	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8814
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8815	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8816
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8817	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8818	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8819	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8820
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8821	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8823	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8824
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8825	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8826	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8827	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8828	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8829	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8830	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8831	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8832	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8833	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8834	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8835	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8836	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8837	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8838
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8839	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8840
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8841	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8842	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8843
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8844	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8845	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8846
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8847	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8848
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8849	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8850	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8851	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8853	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8854	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8856	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8857	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8858	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8859	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8860	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8862	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8864	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8865	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8866	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8867	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8868	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8869	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8870	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8871	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8872	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8873	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8874	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8875	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8876	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8877	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8878	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8879	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8880	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8881	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8882	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8883	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8884	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8885	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8886	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8887	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8888	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8889	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8890	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8891	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8892	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8893	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8894	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8895	layout: (LayoutFrame 0 0 5 0 181 0 27 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8896	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8897	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8898	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8899	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8900	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8901	layout: (LayoutFrame 183 0 5 0 -5 1 27 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8902	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8903	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8904	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8905	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8906	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8907	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8908	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8909	layout: (LayoutFrame 0 0 31 0 181 0 53 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8910	visibilityChannel: printerIsDrivenByCommand
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8911	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8912	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8913	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8914	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8915	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8916	layout: (LayoutFrame 183 0 31 0 -5 1 53 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8917	visibilityChannel: printerIsDrivenByCommand
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8918	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8919	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8920	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8921	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8922	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8923	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8924	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8925	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8926	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8927	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8928	layout: (LayoutFrame 0 0 57 0 181 0 79 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8929	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8930	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8931	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8932	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8933	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8934	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8935	layout: (LayoutFrame 183 0 57 0 -5 1 79 0)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8936	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8937	model: printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8938	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8939	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8940	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8941	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8942	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8943	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8944
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8945	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8946	extent: (Point 616 84)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8947	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8948	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8949	name: 'FormatBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8950	visibilityChannel: supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8951	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8952	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8953	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8954	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8955	name: 'Separator1'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8956	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8957	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8958	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8959	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8960	name: 'PageFormatLabel'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8961	layout: (LayoutFrame 0 0 7 0 181 0 29 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8962	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8963	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8964	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8965	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8966	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8967	name: 'PageFormatPopUpList'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8968	layout: (LayoutFrame 183 0 7 0 333 0 29 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8969	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8970	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8971	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8972	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8973	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8974	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8975	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8976	name: 'LandscapeCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8977	layout: (LayoutFrame 380 0 7 0 -5 1 29 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8978	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8979	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8980	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8981	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8982	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8983
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8984	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8985	extent: (Point 616 30)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8986	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8987	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8988	name: 'MarginBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8989	visibilityChannel: supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8990	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8991	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8992	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8993	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8994	name: 'Separator5'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8995	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8996	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8997	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8998	name: 'VerticalPanel2'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8999	layout: (LayoutFrame 0 0.0 4 0.0 0 1.0 4 1.0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9000	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9001	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9002	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9003	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9004	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9005	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9006	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9007	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9008	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9009	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9010	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9011	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9012	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9013	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9014	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9015	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9016	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9017	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9018	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9019	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9020	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9021	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9022	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9023	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9024	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9025	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9026	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9027	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9028	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9029	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9030	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9031	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9032	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9033	layout: (LayoutFrame -155 1 0 0 -5 1 21 0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9034	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9035	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9036	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9037	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9038	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9039	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9040
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9041	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9042	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9043	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9044	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9045	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9046	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9047	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9048	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9049	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9050	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9051	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9052	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9053	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9054	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9055	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9056	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9057	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9058	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9059	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9060	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9061	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9062	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9063	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9064	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9065	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9066	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9067	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9068
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9069	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9070	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9071	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9072	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9073	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9074	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9075	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9076	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9077	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9078	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9079	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9080	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9081	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9082	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9083	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9084	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9085	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9086	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9087	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9088	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9089	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9090	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9091	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9092	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9093	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9094	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9095	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9096
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9097	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9098	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9099	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9100	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9101	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9102	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9103	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9104	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9105	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9106	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9107	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9108	layout: (LayoutFrame 0 0 0 0 181 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9109	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9110	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9111	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9112	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9113	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9114	layout: (LayoutFrame 183 0 0 0 283 0 21 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9115	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9116	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9117	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9118	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9119	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9120	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9121	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9122	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9123	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9124
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9125	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9126	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9127	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9128	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9129
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9130	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9131	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9132	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9133
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9134	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9135	extent: (Point 616 100)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9136	)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9137	(ViewSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9138	name: 'ColorBox'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9139	visibilityChannel: supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9140	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9141	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9142	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9143	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9144	name: 'Separator6'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9145	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9146	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9147	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9148	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9149	name: 'ColorPrinterCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9150	layout: (LayoutFrame 183 0 4 0 782 0 25 0)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9151	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9152	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9153	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9154	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9155	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9156
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9157	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9158	extent: (Point 616 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9160	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9162	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9163	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9164	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9166	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9167	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9168	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9169
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9170	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9171
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9172	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9173	Printer notNil ifTrue:[
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9174	self
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9175	readAspects:
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9176	#(
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9177	topMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9178	bottomMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9179	leftMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9180	rightMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9181	landscape
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9182	printCommand
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9183	printFilename
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9184	supportsColor
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9185	)
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9186	from:Printer.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9187	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9188
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9189	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9190	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9191	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9192
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9193	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9194	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9195
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9196	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9197
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9198	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9199
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9200	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9201	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9202
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9203	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9204	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9205	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9206	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9207	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9208	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9209	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9210	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9211	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9212	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9213	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9214	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9215	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9216	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9217	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9218	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9219	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9220	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9221	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9222	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9223
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9224	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9225
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9226	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9228	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9230	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9232	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9233	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9235	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9236
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9237	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9238	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9239	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9240	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9241	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9242
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9243	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9244
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9245	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9246	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9247	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9248	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9249	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9250
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9251	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9252
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9253	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9254	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9255	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9256	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9257	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9258
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9259	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9260
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9261	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9262	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9263	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9264	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9265	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9266
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9267	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9269	landscape isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9270	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9271	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9274
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9275	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9277
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9278	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9279
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9280	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9281	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9282	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9283	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9284	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9285	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9286
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9287	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9295	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9297	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9298	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9299	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9300	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9301	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9303	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9305	pageFormatList isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9306	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9309
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9310	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9312
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9313	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9316	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9317	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9319	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9321
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9322	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9323	^ BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9324	with:[:m \| m isEmptyOrNil]
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9325	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9326
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9327	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9328	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9330	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9333	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9336	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9338	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9339	printFilename isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9340	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9341	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9342	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9343	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9344
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9345	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9346	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9347
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9348	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9349	printerIsDrivenByCommand isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9350	printerIsDrivenByCommand := BlockValue
9656 39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9351	with:[:m \|
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9352	\|printer\|
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9353
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9354	printer := self possiblePrinters at:m value ifAbsent:nil.
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9355	printer notNil ifTrue:[
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9356	printer isDrivenByCommand
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9357	] ifFalse:[
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9358	self breakPoint:#expecco.
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9359	false
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9360	]
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9361	]
9655 19541d63506a fix if printer is no more in list sr parents: 9629 diff changeset	9362	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9363	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9364	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9365
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9366	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9367	"Modified: / 08-03-2007 / 23:02:44 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9368	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9369
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9370	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9371	printerSupportsPrintingToFile isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9372	printerSupportsPrintingToFile := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9373	with:[:m \| (self possiblePrinters at:m) supportsPrintingToFile ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9374	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9375	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9376	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9377
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9378	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9379	"Modified: / 08-03-2007 / 23:02:47 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9380	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9381
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9382	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9384	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9385	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9388
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9389	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9392	printerTypeSelection
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9393	\|printerIndex\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395	printerTypeSelection isNil ifTrue:[
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9396	printerIndex := self possiblePrinters identityIndexOf:Printer.
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9397	printerIndex == 0 ifTrue:[
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9398	self possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9399	printerIndex := 1.
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9400	].
6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	9401	printerTypeSelection := printerIndex asValue.
9657 32a86c300786 set an initial printer..... sr parents: 9656 diff changeset	9402
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9405	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9408
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9409	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9411
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9412	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9414	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9415	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9416	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9420
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9421	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9427	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9432	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9434	supportsColor isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9435	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9436	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9437	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9439
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9440	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9441	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9443	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9444	supportsColorSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9445	supportsColorSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9446	with:[:m \| (self possiblePrinters at:m) supportsColor ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9447	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9448	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9449	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9450
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9451	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9452	"Modified: / 08-03-2007 / 23:02:50 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9453	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9454
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9455	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9456	supportsMarginSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9457	supportsMarginSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9458	with:[:m \| (self possiblePrinters at:m) supportsMargins ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9459	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9460	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9461	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9462
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9463	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9464	"Modified: / 08-03-2007 / 23:02:54 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9465	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9466
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9467	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9468	supportsPageFormatSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9469	supportsPageFormatSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9470	with:[:m \| (self possiblePrinters at:m) supportsPageSizes ]
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9471	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9472	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9473	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9474
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9475	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9476	"Modified: / 08-03-2007 / 23:02:56 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9477	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9478
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9479	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481	topMargin isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9482	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9483	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9486
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9487	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9490	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9500	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9502
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9503	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9504	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9513	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9514	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9517	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9522	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9539	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9540	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9541	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9542	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9556	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9558	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9559	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9560	printerSupportsPostscript ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9565
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9566	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9569	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9570	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9571
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9572	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9581	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9582
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9583	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9584	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9585	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9586
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9589	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9590	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	9591	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9592	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9593	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9594	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9595	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9596	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9597	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9598	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9599	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9600	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9601	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9602	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9603	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9604
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9605	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9607
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9608	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9609
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9615	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9616
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9617	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9618
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9619	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9620	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9621
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9622	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9623	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9624	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9625	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9626	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9627	Printer topMargin ~= ((UnitConverter convert:(self topMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9628	Printer leftMargin ~= ((UnitConverter convert:(self leftMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9629	Printer rightMargin ~= ((UnitConverter convert:(self rightMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9630	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9631	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9632	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9633	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9634	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9635	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9636
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9637	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9638	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9639
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9640	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9641	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9642	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9643	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9644	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9646
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9649	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9651	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9652
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9653	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9654	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9666	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9667	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9668	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9669	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @@?<@A?>@C??@G?? O??0O??0O??0_??8_??8_??8_??8O??0O??0O??0G?? C??@A?>@@?<@@G @@@@@') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9674	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9690	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9691	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9692	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9693	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9694	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9695	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9696	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9697	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9698	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9699	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9700	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9701	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9702	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9703	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9704	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9705	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9706	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9707	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9708	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9709	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9710	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9711	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9712	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9713	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9714	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9715	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9716	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9717	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9718	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9719	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9720	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9721	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9722	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9723	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9724	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9725	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9726	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9727	layout: (LayoutFrame 30 0.0 0 0 0 1.0 22 0)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9728	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9729	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9730	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9735	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9749	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9750	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9751	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9752	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9753
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9754	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9755
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9756	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9757	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9758	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9759	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9760	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9761	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9762	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9763	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9764	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9765	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9770	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9773	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9778	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9781	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9786	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9787
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9788	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9789	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9790	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9791
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9794	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9795	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9796	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9797	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9800	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9801
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9802	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9803	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9804	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9805
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9806	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9807	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9809	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9810	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9811	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9812	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9813	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9814
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9815	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9816
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9817	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9818	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9819	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9820	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&Y&Y&Y&Y&Y3@@@BY&Y&Y&Y&Y''L@@@I$[]7_]7]6,1P@@&QL3L>:1GZ3E@@BY83L3L>D]+LT@@I
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9821	''#L3L38Q6,1P@@&[L3L8 @]7''E@@BYE3NH (@@_LT@@I$WNBBDAH L1P@@&Q]8P$IB"@3E@@BY4W $ B$@CLT@@L3L $!!H@$"@1P@@3L2DJB DJHCE@@@@UV
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9822	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 240 240 0 80 112 112 240 240 240 64 64 64 48 64 80 64 96 96 128 128 0 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@O?@@O?@@G>@@A0@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9823	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9824
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9825	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9826
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9827	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9828	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9829	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9831	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9832	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9833
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9834	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9835	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9836	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9837	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9838	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9839
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9840	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9841
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9842	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9843	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9844	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9845	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9846	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9847	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9848	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9849	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9850	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9851	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9852	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9853	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9854	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9855	(FramedBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9856	label: 'RDoIt'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9857	name: 'RDoItFramedBox'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9858	layout: (LayoutFrame 0 0 0 0 0 1 219 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9859	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9860	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9861	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9862	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9863	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9864	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9865	name: 'VerticalPanel2'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9866	layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9867	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9868	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9869	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9870	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9871	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9872	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9873	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9874	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9875	name: 'Box1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9876	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9877	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9878	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9879	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9880	label: 'Remote doits enabled'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9881	name: 'CheckBox1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9882	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9883	enableChannel: hasRDoitServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9884	model: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9885	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9886	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9887	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9888
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9889	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9890	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9891	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9892	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9893	name: 'Box2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9894	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9895	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9896	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9897	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9898	label: 'Port/Path:'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9899	name: 'Label2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9900	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9901	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9902	adjust: right
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9903	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9904	(InputFieldSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9905	name: 'EntryField1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9906	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9907	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9908	model: rDoitServerPortOrPath
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9909	acceptOnReturn: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9910	acceptOnTab: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9911	acceptOnLostFocus: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9912	acceptOnPointerLeave: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9913	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9914	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9915	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9916	name: 'Label3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9917	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9918	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9919	adjust: left
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9920	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9921	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9922
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9923	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9924	extent: (Point 566 60)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9925	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9926	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9927	name: 'Box13'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9928	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9929	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9930	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9931	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9932	label: 'Local Connections Only'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9933	name: 'CheckBox10'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9934	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9935	enableChannel: rDoitsEnabled
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9936	model: rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9937	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9938	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9939	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9940
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9941	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9942	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9943	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9944	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9945	name: 'Box3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9946	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9947	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9948	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9949	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9950	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9951	name: 'CheckBox2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9952	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9953	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9954	model: rDoitErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9955	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9956	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9957	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9958
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9959	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9960	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9961	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9962	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9963	name: 'Box4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9964	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9965	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9966	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9967	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9968	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9969	name: 'CheckBox3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9970	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9971	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9972	model: rDoitLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9973	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9974	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9975	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9976
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9977	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9978	extent: (Point 566 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9979	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9980	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9981	name: 'Box5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9982	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9983	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9984	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9985	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9986	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9987	name: 'CheckBox4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9988	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9989	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9990	model: rDoitErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9991	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9992	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9993	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9994
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9995	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9996	extent: (Point 566 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9997	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9998	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9999
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10000	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10001	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10002	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10003
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10004	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10005	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10006	(FramedBoxSpec
9174 841e5c387e0b * empty log message * Claus Gittinger <cg@exept.de> parents: 9167 diff changeset	10007	label: 'JavaScript-Scripting via Telnet'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10008	name: 'ScriptingFramedBox'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10009	layout: (LayoutFrame 0 0 218 0 0 1 433 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10010	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10011	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10012	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10013	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10014	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10015	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10016	name: 'VerticalPanel3'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10017	layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10018	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10019	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10020	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10021	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10022	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10023	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10024	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10025	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10026	name: 'Box6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10027	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10028	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10029	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10030	(CheckBoxSpec
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10031	label: 'JavaScript-Scripting enabled'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10032	name: 'CheckBox5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10033	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10034	enableChannel: hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10035	model: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10036	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10037	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10038	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10039
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10040	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10041	extent: (Point 566 25)
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10042	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10043	(ViewSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10044	name: 'Box12'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10045	component:
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10046	(SpecCollection
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10047	collection: (
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10048	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10049	label: 'Port:'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10050	name: 'Label4'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10051	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10052	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10053	adjust: right
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10054	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10055	(InputFieldSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10056	name: 'EntryField2'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10057	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10058	enableChannel: rDoitsEnabled
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10059	model: scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10060	isReadOnly: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10061	acceptOnReturn: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10062	acceptOnTab: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10063	acceptOnLostFocus: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10064	acceptOnPointerLeave: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10065	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10066	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10067	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10068	name: 'Label5'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10069	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10070	initiallyInvisible: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10071	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10072	adjust: left
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10073	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10074	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10075
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10076	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10077	extent: (Point 566 60)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10078	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10079	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10080	name: 'Box11'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10081	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10082	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10083	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10084	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10085	label: 'Local Connections Only'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10086	name: 'CheckBox9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10087	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10088	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10089	model: scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10090	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10091	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10092	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10093
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10094	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10095	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10096	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10097	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10098	name: 'Box8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10099	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10100	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10101	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10102	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10103	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10104	name: 'CheckBox6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10105	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10106	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10107	model: scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10108	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10109	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10110	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10111
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10112	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10113	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10114	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10115	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10116	name: 'Box9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10117	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10118	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10119	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10120	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10121	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10122	name: 'CheckBox7'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10123	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10124	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10125	model: scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10126	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10127	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10128	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10129
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10130	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10131	extent: (Point 566 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10132	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10133	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10134	name: 'Box10'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10135	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10136	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10137	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10138	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10139	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10140	name: 'CheckBox8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10141	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10142	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10143	model: scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10144	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10145	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10146	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10147
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10148	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10149	extent: (Point 566 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10150	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10151	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10152
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10153	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10154	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10155	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10156
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10157	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10158	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10159	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10160
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10161	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10162	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10163
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10164	"Modified: / 20-05-2010 / 12:15:22 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10165	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10166
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10167	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10168
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10169	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10170	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10171	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10172	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10173	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10174
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10175	rDoitsEnabled := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10176	rDoitLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10177	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10178	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10179	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10180	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10181
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10182	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10183	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10184
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10185	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10186	rDoitsEnabled := RDoItServer serverRunning.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10187	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10188	rDoitLogging := RDoItServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10189	rDoitErrorLogging := RDoItServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10190	rDoitErrorDebugging := RDoItServer isErrorCatching not.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10191	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10192	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10193
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10194	(STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10195	and:[ STXScriptingServer isLoaded ]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10196	scriptingEnabled := STXScriptingServer serverRunning.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10197	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10198	scriptingLogging := STXScriptingServer isLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10199	scriptingErrorLogging := STXScriptingServer isErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10200	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10201	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10202
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10203	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10204	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10205	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10206	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10207	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10208
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10209	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10210	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10211	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10212	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10213	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10214
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10215	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10216	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10217
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10218	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10219	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10220
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10221	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10222
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10223	self hasRDoitServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10224	RDoItServer defaultPortNumberOrPath:portOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10225	RDoItServer logging:self rDoitLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10226	RDoItServer errorLogging:self rDoitErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10227	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10228	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10229	shouldRun := self rDoitsEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10230	shouldRun ~~ RDoItServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10231	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10232	RDoItServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10233	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10234	RDoItServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10235	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10236	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10237	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10238	RDoItServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10239	self warn:'RDoit startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10240	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10241	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10242	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10243	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10244
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10245	self hasScriptingServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10246	STXScriptingServer logging:self scriptingLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10247	STXScriptingServer errorLogging:self scriptingErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10248	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10249	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10250	shouldRun := self scriptingEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10251	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10252	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10253	STXScriptingServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10254	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10255	STXScriptingServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10256	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10257	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10258	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10259	STXScriptingServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10260	self warn:'STXScripting startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10261	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10262	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10263	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10264	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10265
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10266	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10267	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10268
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10269	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10270	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10271
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10272	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10273	portOrPath isNumber ifFalse:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10274	"a numeric string means it is a TCP port number"
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10275	nrOrNil := Integer readFrom:portOrPath onError:nil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10276	nrOrNil notNil ifTrue:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10277	portOrPath := nrOrNil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10278	]
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10279	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10280	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10281	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10282
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10283	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10284
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10285	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10286	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10287	rDoitEnabledOnlyViaLocalConnection := true asValue.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10288	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10289	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10290	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10291
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10292	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10293	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10294
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10295	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10296	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10297	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10298	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10299	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10300	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10301	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10302
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10303	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10304	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10305	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10306	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10307	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10308	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10309	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10310
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10311	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10312	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10313	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10314	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10315	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10316	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10317	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10318
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10319	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10320	rDoitOnlyViaLocalConnection isNil ifTrue:[
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10321	rDoitOnlyViaLocalConnection := true asValue.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10322	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10323	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10324	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10325
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10326	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10327	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10328
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10329	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10330	rDoitServerPortOrPath isNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10331	rDoitServerPortOrPath := nil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10332	rDoitServerPortOrPath onChangeSend:#updateModifiedChannel to:self
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10333	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10334	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10335	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10336
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10337	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10338	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10339	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10340	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10341	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10342	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10343	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10344
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10345	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10346	scriptingEnabled isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10347	scriptingEnabled := false asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10348	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10349	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10350	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10351	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10352
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10353	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10354	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10355	scriptingEnabledOnlyViaLocalConnection := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10356	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10357	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10358	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10359	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10360
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10361	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10362	scriptingErrorDebugging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10363	scriptingErrorDebugging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10364	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10365	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10366	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10367	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10368
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10369	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10370	scriptingErrorLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10371	scriptingErrorLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10372	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10373	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10374	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10375	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10376
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10377	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10378	scriptingLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10379	scriptingLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10380	scriptingLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10381	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10382	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10383	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10384
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10385	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10386	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10387
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10388	"automatically generated by UIPainter ..."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10389
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10390	"*** the code below creates a default model when invoked."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10391	"*** (which may not be the one you wanted)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10392	"*** Please change as required and accept it in the browser."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10393	"*** (and replace this comment by something more useful ;-)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10394
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10395	scriptingServerPortOrPath isNil ifTrue:[
9397 8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10396	STXScriptingServer notNil ifTrue:[
8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10397	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10398	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10399	"/ if your app needs to be notified of changes, uncomment one of the lines below:
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10400	"/ scriptingServerPortOrPath addDependent:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10401	"/ scriptingServerPortOrPath onChangeSend:#scriptingServerPortOrPathChanged to:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10402	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10403	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10404	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10405
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10406	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10408	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10409	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10410	self rDoitsEnabled value ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10411	RDoItServer autoload.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10412	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10413	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10414	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10415	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10416	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10417
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10418	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10419
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10420	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10421	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10422	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10423
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10424	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10426	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10427	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10428	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10429
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10430	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10431	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10432	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10433
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10434	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10435	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10436	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10437
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10438	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10439	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10440	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10441
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10442	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10443	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10444	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10445	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10446	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10447	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10448	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10449	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10450	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10451	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10452	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10453	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10454	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10455	STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10456	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10457	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10458	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10459	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10460	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10461	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10462	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10463
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10464	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10465	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10466
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10467	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10468
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10469	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10470	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10471	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10472
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10473	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10474	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10475
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10476	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10477	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10478	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10479	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10480	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10481
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10482	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10483
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10484	^Icon
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10485	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10486	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10487	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10488	@@@@@BH"@@@@@@@@J"(@@@@@@@@J"(@@@@H"H"@@@@@B(@@@@@@@@@@@@@@@@J"("H"H"@@@@J @@@@@@@@@@@@@@@@@@@@@H"H"@BH@H"(*@@@@@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10489	@@@@@@@@J"("H"H"@BH(H" $J"(J @@@@@J"(H"H"H"H"@BH(H" $ABTJIB(J"("H"H"H"H"H"H"@BH(H" $ABT%IBP(JBH"H"H"H"H"H"H"@@@(J" $
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10490	A@PDIBP(JBH"H"H"H"HH"H"@BH@H"(IBP$IBP(JBH"H"H"J"("H"H"@BH(H" $J"(J"P(JBHJ"(H"H"H"H"@BH(H" $ABTJIB(J"("H"H"H"H"H"H"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10491	@BH(H" $ABT%IBP(JBH"H"H"H"H"H"H"@@@(J" $A@PDIBP(JBH"H"H"H"HH"H"@@@@@B(IBP$IBP(JBH"H"H"J"(@H"H"H"H"H"H"J"(IBP(JBH"J"(
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10492	H"H"H"H"H"H"H"H"@@@@J"(J"(@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10493	@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"') ; colorMapFromArray:#[224 189 75 255 253 212 114 169 125 244 219 172 224 180 55 105 195 48 255 253 194 253 210 112 27 163 14 139 188 141 254 253 153 67 140 42 245 230 190 245 250 242 238 222 158 240 212 96 254 253 228 249 239 209 254 233 132 135 224 88 62 138 68 241 209 144 254 198 97 148 180 81 255 227 154 39 125 38 61 166 37 216 172 46 46 153 24 113 206 71 25 131 15 240 198 86 79 187 37 254 243 141 102 77 2 69 123 9 205 154 5 249 235 113 225 193 100 218 179 65 130 98 3 10 113 5 0 0 0]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G8@@??@C??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8C??0@??@@G8@@@@@@@@@@@@@@@@@') ; yourself); yourself]
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10494	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10495
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10496	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10497	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10498	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10499
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10500	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10501	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10502
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10503	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10504	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10505	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10506	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10507	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10508
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10509	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10510
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10511	^Icon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10512	constantNamed:'Object class dbIcon2'
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10513	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10514	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10515	@@@@@@@@@@@@@@@@@@@@!!!!"O_@T>@@@@@@@@@@@@@@@@@@@@@E8=X(!!#T!!0-X@D@@@@@@@@@@@@@@@@@NVTLL@.HK%MTZQEH@@@@@@@@@@@@@@@@V2<LCC@K
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10516	"GTIT15UV @@@@@@@@@@@@@@R"$<F&P0B8]ONGECQ @@@@@@@@@@@@@@I!!,_]"2ARPH%J&!!8V@@@@@@@@@@@@@@@_1-EI61''PFFC!!F!!&V@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10517	Z7QEI61''PFFC!!H.IV@@@@@@@@@@@@@@@\#Q3CRI''PB-.ICD:Q @@@@@@@@@@@@@@@EDH!!T4P^'',3EBA9# @@@@@@@@@@@@@@[Q-EI61''PFFC!!F!!VZ @@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10518	@@@@@@@@M1-EI61''PFFC!!F ^V@@@@@@@@@@@@@@@_S=EI61''PFFC!!DQBV@@@@@@@@@@@@@@@B <GL%%''PA%]D 9P# @@@@@@@@@@@@@@@D\FM#VJ]84#S$EW
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10519	W@@@@@@@@@@@@@@@@@B@_$X!!#H0!!Q'':@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10520	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[219 185 65 198 168 74 219 190 79 243 243 243 247 247 247 212 188 103 224 198 109 222 200 122 234 215 144 254 223 141 240 223 165 253 234 173 253 237 183 241 231 193 188 151 42 211 174 48 191 161 59 254 242 210 208 176 66 242 239 229 220 189 76 242 242 242 245 245 245 255 255 255 222 198 111 244 220 117 237 216 141 255 233 149 254 227 155 250 228 170 196 152 26 252 239 190 253 238 192 212 212 212 249 242 210 207 171 55 211 178 65 225 194 72 230 197 74 255 251 236 250 248 244 231 203 98 246 219 105 245 221 117 227 210 143 241 216 146 253 228 154 249 232 171 253 237 182 174 139 37 239 228 192 202 168 50 209 174 52 210 173 51 214 179 60 222 188 68 210 174 70 224 193 81 208 180 89 254 254 254 225 200 105 232 208 118 220 202 138 252 229 143 252 235 160 205 200 181 186 147 30 202 156 27 251 235 189 255 244 201 216 216 216 233 228 211 193 161 65 207 177 72 230 197 73 252 249 237 252 251 244 208 183 100 213 188 101 231 202 112 206 189 131 252 230 145 254 225 148 254 228 160 254 233 176 187 149 35 198 153 27 211 211 211 215 215 215 248 241 209 225 225 225 223 192 70 231 231 231 231 201 81 225 195 86 253 253 253 219 192 114 251 228 125 243 221 145 253 226 149 247 229 168 252 236 180 201 155 26 253 243 195 255 240 196 255 239 199 217 217 217 220 185 61 254 249 224 223 188 69 232 203 81 244 244 244 252 252 252 211 183 100 236 208 111 227 205 125 252 230 144 253 226 148 236 222 171 197 156 25 202 156 26 190 149 32 187 154 48 197 165 54 203 172 59 215 179 59 224 224 224 228 196 72 236 236 236 210 184 89 249 249 249 250 223 100 251 225 111 217 194 122 233 215 148 246 222 149 253 230 161 186 145 25 200 158 27 251 236 189 209 209 209 205 168 48 218 218 218 208 177 64]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@_>@@??@@?? @?? @?? @?? @?? @?? @?? @?? @?? @?? @?? @_? @O?@@@@@@@@@@@@@@@@@') ; yourself); yourself]
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10521	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10522
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10523	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10524	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10525
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10526	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10527	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10528	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10529
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10530	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10531
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10532	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10533	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10534	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10535
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10536	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10537	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10538
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10539	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10540	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10541	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10542	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10543	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10544
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10545	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10546
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10547	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10548	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10549	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10550	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10551	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	10552	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	10553	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10554	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10555	bounds: (Rectangle 0 0 600 550)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10556	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10557	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10558	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10559	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10560	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10561	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10562	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10563	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10564	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10565	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10566	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10567	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10568	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10569	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10570	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10571	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10572	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10573	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10574	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10575	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10576	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10577	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10578	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10579	enableChannel: hasSQLServerClass
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10580	model: sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10581	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10582	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10583	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10584
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10585	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10586	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10587	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10588	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10589	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10590	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10591	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10592	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10593	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10594	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10595	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10596	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10597	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10598	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10599	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10600	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10601	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10602	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10603	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10604	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10605	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10606	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10607	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10608	acceptOnPointerLeave: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10609	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10610	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10611	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10612	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10613	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10614	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10615	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10616	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10617	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10618
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10619	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10620	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10621	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10622	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10623	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10624	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10625	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10626	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10627	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10628	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10629	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10630	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10631	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10632	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10633	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10634	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10635	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10636
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10637	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10638	extent: (Point 600 25)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10639	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10640	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10641	name: 'LogDataBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10642	component:
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10643	(SpecCollection
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10644	collection: (
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10645	(CheckBoxSpec
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10646	label: 'Log Data'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10647	name: 'LogDataCheckBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10648	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10649	enableChannel: sqlServerEnabled
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10650	model: sqlDataLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10651	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10652	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10653	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10654
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10655	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10656	extent: (Point 600 23)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10657	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10658	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10659	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10660	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10661	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10662	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10663	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10664	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10665	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10666	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10667	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10668	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10669	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10670	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10671	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10672
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10673	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10674	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10675	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10676	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10677	name: 'LogSQLBox'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10678	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10679	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10680	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10681	(CheckBoxSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10682	label: 'Log SQL'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10683	name: 'CheckBox1'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10684	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10685	enableChannel: sqlServerEnabled
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10686	model: sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10687	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10688	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10689	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10690
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10691	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10692	extent: (Point 600 24)
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10693	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10694	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10695	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10696	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10697	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10698	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10699	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10700	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10701	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10702	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10703	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10704	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10705	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10706	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10707	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10708
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10709	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10710	extent: (Point 600 23)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10711	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10712	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10713	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10714	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10715	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10716	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10717	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10718	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10719	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10720	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10721	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10722	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10723	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10724	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10725	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10726	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10727	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10728	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10729	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10730
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10731	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10732	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10733	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10734	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10735
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10736	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10737	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10738	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10739
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10740	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10741	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10742	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10743
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10744	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10745
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10746	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10747	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10748
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10749	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10750	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10751	self sqlServerEnabled value:sqlServerClass serverRunning.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10752	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10753	self sqlLogging value:sqlServerClass isLogging.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10754	self sqlStatementLogging value:sqlServerClass isSQLLogging.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10755	self sqlErrorLogging value:sqlServerClass isErrorLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10756	self sqlDataLogging value:sqlServerClass isDataLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10757	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10758	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10759	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10760	self sqlServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10761	self sqlSmalltalkServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10762	self sqlLogging value:false.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10763	self sqlStatementLogging value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10764	self sqlErrorLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10765	self sqlDataLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10766	self sqlErrorDebugging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10767	self sqlServerPort value:nil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10768	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10769
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10770	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10771	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10772
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10773	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10774	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10775
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10776	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10777
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10778	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10779	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10780	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10781	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10782
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10783	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10784	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10785	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10786	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10787	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10788	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10789	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10790
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10791	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10792	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10793	shouldRun ifFalse:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10794	sqlServerClass stop
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10795	] ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10796	sqlServerClass start.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10797	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10798	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10799	Delay waitForSeconds:1.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10800	sqlServerClass serverRunning ifFalse:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10801	self warn:'SQLServer startup failed (see stderr).'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10802	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10803	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10804	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10805
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10806	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10807	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10808
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10809	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10810
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10811	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10812	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10813	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10814	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10815	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10816	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10817	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10818
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10819	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10820	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10821	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10822	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10823	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10824	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10825	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10826
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10827	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10828	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10829	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10830	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10831	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10832	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10833	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10834
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10835	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10836	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10837	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10838	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10839	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10840	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10841	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10842
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10843	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10844	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10845	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10846	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10847	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10848	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10849	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10850
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10851	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10852	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10853	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10854	sqlServerPort onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10855	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10856	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10857	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10858
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10859	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10860	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10861	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10862	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10863	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10864	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10865	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10866
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10867	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10868	sqlStatementLogging isNil ifTrue:[
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10869	sqlStatementLogging := true asValue.
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10870	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10871	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10872	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10873	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10874
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10875	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10876
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10877	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10878	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10879	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10880	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10881	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10882	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10883	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10884
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10885	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10886	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10887
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10888	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10889	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10890	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10891	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10892	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10893	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10894	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10895
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10896	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10897	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10898
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10899	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10900
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10901	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10902	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10903	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10904
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10905	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10906
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10907	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10908	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10909
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10910	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10911	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10912
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10913	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10914	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10915
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10916	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10917	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10918
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10919	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10920	sqlServerClass serverRunning ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10921	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10922	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10923	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10924	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10925	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10926	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10927	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10928	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10929	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10930
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10931	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10932	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10933
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10934	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10935	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10936
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10937	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10938	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10939
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10940	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10941
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10942	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10943	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10944	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10945
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10946	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10947
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10948	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10949	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10950
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10951	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10952
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10953	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10954	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10955
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10956	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10957
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10958	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10959	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10960
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10961	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10962	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10963	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10964
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10965	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10966	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10967
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10968	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10969	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10970	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10971	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10972	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10973
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10974	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10975
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10976	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10977	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	10978	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	10979	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUV(JUW@CUV""UWDCUU")UWI
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	10980	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B') ; colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]; 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??8O??8O??8O??8O??8@@@@') ; yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10981	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10982
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10983	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10984	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10985	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10986
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10987	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10988	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10989
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10990	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10991	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10992	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10993	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10994	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10995
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10996	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10997
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10998	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10999	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11000	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11001	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@0LDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11002	A@PDA@LCA PCA@P@@@@@@@@@@@@@@@@@@@@D@0PFA PCA@PC@0@@@@@@@@@@@@@C@0@D@0PFAPTD@0LDA L@@@@@@@@@@@LFA@LCA@TEAPTEA@PE@PL@@@@@
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11003	@@@@@@LAAPPDAPTEAPTEAPTF@0@@@@@@@@@@@@@CA TEAPTEA DFAPTD@0@@@@@@@@@@@@@CA@TEA DF@0LAA TEA@LC@@@@@@@@@0LDAPTF@PLC@ HC@PTE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11004	APPD@0@@@@@CA@PEAPTA@0HB@ HCA TEAPDA@0@@@@@C@PDEAPTF@0HB@0LDAPTFA LC@@@@@@@@@0LFA TEA@LCA@PEAPTF@0PD@@@@@@@@@@PCA TEAPPD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11005	APTEAPTD@0PDA@@@@@@@A@PCA@TEAPTEAPTEA DEA@LDA@@@@@@@A@LDAPDFAPTEAPTD@0LAA LDA@P@@@@DA@LF@PLCA@TE@PPCA@PC@0PDA@P@@@@DA@PC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11006	@0PD@0PA@PPCA@PDA@PDA@PD@@PDA@PDA@PD@0PA@0LDA@PDA@PDA@PDA@PDA@PDA@PDA@LCA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11007	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; yourself]
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11008	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11009
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11010	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11011	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11012	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11013
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11014	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11015	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11016
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11017	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11018	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11019	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11020	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11021	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11022
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11023	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11024
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11025	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11026	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11027	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11028	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11029	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11030	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11031	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11032	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11033	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11034	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11035	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11036
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11037	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11038	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11039	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11040
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11041	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11042	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11043
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11044	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11045	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11046	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11047	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11048	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11049
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11050	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11051
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11052	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11053	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11054	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11055	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11056	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11057	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11058	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11059	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PD@@PD@0LDA@LD@PLDA@LC
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11060	A@PDA@PDA@PC@0PDA@PDA@LD@PLDA@PDA@PC@0PDA@PCA@PDA@PDA@PC@0PDA@PDA@PD@0PDA@LDA@PDA@PDA@PDA@PDA@PDA@PDA@LDA@PCA@PD@0LD@0LD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11061	@@LC@@LCA@PD@0PDA@PC@0PDA@PDA@PDA@PDA@PDA@PC@0PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@LC0LHA DP@@BH6[DL@@L') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11062	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11063
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11064	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11065
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11066	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11067	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11068	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11069
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11070	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11071	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11072
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11073	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11074	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11075	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11076	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11077	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11078
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11079	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11080
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11081	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11082	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11083	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11084	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11085	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11086	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11087	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11088	min: (Point 10 10)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11089	bounds: (Rectangle 0 0 600 478)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11090	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11091	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11092	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11093	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11094	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11095	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11096	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11097	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11098	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11099	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11100	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11101	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11102	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11103	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11104	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11105	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11106	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11107	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11108	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11109	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11110	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11111	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11112	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11113	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11114	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11115	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11116	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11117	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11118	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11119	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11120	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11121	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11122	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11123	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11124	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11125	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11126	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11127	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11128	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11129	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11130	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11131
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11132	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11133	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11134	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11135	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11136	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11137	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11138	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11139	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11140	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11141	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11142	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11143	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11144	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11145	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11146	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11147	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11148	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11149	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11150	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11151	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11152	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11153	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11154	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11155	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11156	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11157	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11158	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11159
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11160	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11161	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11162	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11163	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11164	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11165	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11166	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11167	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11168	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11169	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11170	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11171	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11172	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11173	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11174	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11175	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11176	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11177	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11178	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11179	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11180	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11181	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11182	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11183	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11184	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11185	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11186	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11187
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11188	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11189	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11190	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11191	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11192	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11193	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11194	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11195	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11196	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11197	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11198	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11199	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11200	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11201	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11202	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11203	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11204	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11205	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11206	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11207	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11208	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11209	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11210	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11211	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11212	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11213	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11214	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11215
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11216	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11217	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11218	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11219	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11220	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11221	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11222	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11223	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11224	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11225	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11226	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11227	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11228	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11229	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11230	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11231	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11232	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11233	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11234	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11235	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11236	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11237	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11238	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11239	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11240	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11241	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11242	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11243
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11244	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11245	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11246	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11247	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11248	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11249	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11250	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11251	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11252	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11253	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11254	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11255	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11256	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11257	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11258	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11259	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11260	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11261	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11262	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11263	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11264	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11265	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11266	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11267	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11268	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11269	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11270	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11271
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11272	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11273	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11274	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11275	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11276	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11277	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11278	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11279	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11280	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11281	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11282	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11283	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11284	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11285	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11286	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11287	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11288	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11289	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11290	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11291	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11292	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11293	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11294	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11295	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11296	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11297	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11298	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11299
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11300	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11301	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11302	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11303	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11304	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11305	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11306	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11307	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11308	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11309	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11310	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11311	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11312	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11313	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11314	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11315	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11316	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11317	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11318	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11319	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11320	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11321	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11322	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11323	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11324	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11325	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11326	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11327
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11328	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11329	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11330	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11331	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11332	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11333	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11334	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11335	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11336	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11337	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11338	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11339	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11340	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11341	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11342	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11343	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11344	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11345	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11346	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11347	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11348	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11349	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11350	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11351	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11352	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11353	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11354	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11355
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11356	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11357	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11358	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11359	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11360	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11361	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11362	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11363	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11364	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11365	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11366	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11367	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11368	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11369	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11370	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11371	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11372	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11373	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11374	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11375	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11376	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11377	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11378	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11379	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11380	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11381	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11382	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11383
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11384	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11385	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11386	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11387	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11388	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11389	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11390	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11391	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11392	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11393	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11394	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11395	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11396	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11397	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11398	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11399	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11400	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11401	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11402	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11403	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11404	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11405	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11406	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11407	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11408	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11409	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11410	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11411
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11412	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11413	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11414	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11415	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11416	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11417	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11418	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11419	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11420	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11421	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11422	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11423	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11424	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11425	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11426	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11427	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11428	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11429	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11430	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11431	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11432	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11433	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11434	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11435	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11436	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11437	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11438	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11439
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11440	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11441	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11442	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11443	(ViewSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11444	name: 'MakeCommandBox'
ec908ed4b944 make command fm parents: 6860 diff changeset	11445	component:
ec908ed4b944 make command fm parents: 6860 diff changeset	11446	(SpecCollection
ec908ed4b944 make command fm parents: 6860 diff changeset	11447	collection: (
ec908ed4b944 make command fm parents: 6860 diff changeset	11448	(LabelSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11449	label: 'Make Command:'
ec908ed4b944 make command fm parents: 6860 diff changeset	11450	name: 'Label13'
ec908ed4b944 make command fm parents: 6860 diff changeset	11451	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
ec908ed4b944 make command fm parents: 6860 diff changeset	11452	translateLabel: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11453	adjust: right
ec908ed4b944 make command fm parents: 6860 diff changeset	11454	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11455	(InputFieldSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11456	name: 'EntryField12'
ec908ed4b944 make command fm parents: 6860 diff changeset	11457	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	11458	model: makeCommand
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11459	acceptOnLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11460	acceptOnReturn: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11461	acceptOnTab: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11462	acceptOnLostFocus: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11463	acceptOnPointerLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11464	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11465	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11466
ec908ed4b944 make command fm parents: 6860 diff changeset	11467	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11468	extent: (Point 600 29)
ec908ed4b944 make command fm parents: 6860 diff changeset	11469	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11470	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11471
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11472	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11473	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11474	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11475
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11476	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11477	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11478
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	11479	"Modified: / 09-08-2006 / 19:31:38 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11480	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11481
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11482	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11483
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11484	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11485	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11486
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11487	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11488	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11489
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11490	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11491	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11492	self stcOptions value:ParserFlags stcCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11493	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11494	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11495	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11496	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11497
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11498	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11499	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11500	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11501
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11502	(t := ParserFlags searchedLibraries) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11503	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11504	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11505	(t := ParserFlags libPath) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11506	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11507	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11508
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11509	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11510	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11511	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11512
ec908ed4b944 make command fm parents: 6860 diff changeset	11513	"Modified: / 09-08-2006 / 18:49:38 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11514	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11515
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11516	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11517
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11518	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11519	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11520	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11521	ParserFlags stcCompilationOptions:self stcOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11522	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11523	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	11524	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11525
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11526	self stc value ~= ParserFlags stcPath ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11527	ParserFlags stcPath:self stc value
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11528	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11529	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11530	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11531	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11532	self stcLibraries value notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11533	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11534	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11535	stcLibraryPath notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11536	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11537	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11538
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	11539	"Modified: / 09-08-2006 / 19:33:10 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11540	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11541
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11542	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11543
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11544	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11545
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11546	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11547	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11548	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11549	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11550	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11551
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11552	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11553
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11554	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11555	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11556	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11557	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11558	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11559	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11560
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11561	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11562
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11563	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11564	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11565	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11566	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11567	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11568	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11569
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11570	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11571
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11572	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11573	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11574
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11575	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11576
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11577	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11578	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11579	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11580	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11581	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11582	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11583
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11584	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11585
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11586	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11587	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11588	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11589	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11590	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11591	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11592
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11593	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11594
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11595	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11596	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11597	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11598	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11599	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11600	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11601
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11602	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	11603
ec908ed4b944 make command fm parents: 6860 diff changeset	11604	makeCommand isNil ifTrue:[
ec908ed4b944 make command fm parents: 6860 diff changeset	11605	makeCommand := ValueHolder new.
ec908ed4b944 make command fm parents: 6860 diff changeset	11606	makeCommand onChangeSend:#updateModifiedChannel to:self.
ec908ed4b944 make command fm parents: 6860 diff changeset	11607	].
ec908ed4b944 make command fm parents: 6860 diff changeset	11608	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	11609
ec908ed4b944 make command fm parents: 6860 diff changeset	11610	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	11611	!
ec908ed4b944 make command fm parents: 6860 diff changeset	11612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11613	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11614
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11615	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11616	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11617	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11618	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11619	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11620	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11622	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11623
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11624	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11625	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11626	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11627	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11628	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11629
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11630	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11631
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11632	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11633	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11634	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11635	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11636	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11637	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11638
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11639	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11640
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11641	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11642	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11643	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11644	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11645	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11646	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11648	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11649
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11650	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11651	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11652	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11653	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11654	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11655	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11656
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11657	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11658
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11659	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11660	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11661	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11662	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11663	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11664	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11665
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11666	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11667
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11668	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11669	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11670	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11671	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11672	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11673	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11674
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11675	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11676
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11677	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11678	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11679	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11680	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11681	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11682	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11683
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11684	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11685
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11686	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11687	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11688	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11689
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11690	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11691
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11692	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11693	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11694
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11695	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11696	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11697	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11698	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11699	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11700	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11701	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11702	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11703	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11704	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11705	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11706	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11707	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11708
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11709	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11710	searchedLibs notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11711	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11712	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11713	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11714
ec908ed4b944 make command fm parents: 6860 diff changeset	11715	"Modified: / 09-08-2006 / 18:50:36 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11716	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11717
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11718	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11720	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11722	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11723	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11724	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11725
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11726	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11727
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11728	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11729	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11730	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11731	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11732	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11733	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11734	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11735	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11736	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11737	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11738	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11739	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11740	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11741	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11742	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11743	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11744	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11745	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11746	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11747	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11748	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11749	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11750	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11751	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11752	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11753	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11754	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11755	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11756	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11757	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11758	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11759	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11760	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11761	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11762	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11763
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11764	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11765
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11766	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11767	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11768	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11769
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11770	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11771	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11772
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11773	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11774	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11775	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11776	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11777	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11778
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11779	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11780
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11781	^Icon
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11782	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11783	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11784	*************("H"H"H"H"H"Z"EUUUUUUUUUY @HV)UUUUUUU&@B(!!ZUUUUUUUUVX@J"E)UUUUUUUUY @HV)UUUUUUU&@B(!!UUUV****%VX@J"E
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11785	UUUUUUUUUY @HUUUU**)U&@B(!!UUUUUUUUUVXB"EUUUZ***UY JHUUUUUUUUUURJ(!!UUUV*%UH"EUUUUUUUUUT"*HV)UUUUUUURJ*(!!UV%
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11786	UUUUUUUH"EUZUUUUUUUT"HV)UUUUUUURJ(!!UUUUUUUUUUH"TQDQDQDQDQD"("H"H"H"H"H"J(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11787	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11788
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11789	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11790
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11791	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11792	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11793	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11794
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11795	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11796	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11797
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11798	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11799	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11800	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11801	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11802	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11803
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11804	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11805
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11806	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11807	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11808	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11809	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11810	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11811	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11812	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11813	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11814	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11815	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11816	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11817	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11818	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11819	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11820	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11821	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11822	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11823	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11824	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11825	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11826	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11827	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11828	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11829	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11830	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11831	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11832	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11833	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11834	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11835	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11836	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11837	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11838	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11839	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11840	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11841	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11842	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11843	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11844	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11845	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11846	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11847	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11848	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11849	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11850	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11851	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11852	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11853	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11854	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11855	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11856	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11857	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11858
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11859	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11860	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11861	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11862	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11863	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11864	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11865	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11866	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11867	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11868	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11869	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11870	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11871	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11872	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11873	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11874	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11875	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11876	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11877	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11878	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11879	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11880	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11881	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11882
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11883	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11884	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11885	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11886	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11887	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11888	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11889	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11890	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11891	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11892	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11893	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11894	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11895	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11896	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11897	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11898	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11899	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11900	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11901	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11902	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11903	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11904	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11905	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11906
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11907	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11908	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11909	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11910	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11911	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11912	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11913	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11914	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11915	(CheckBoxSpec
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11916	label: 'C-Style Blocks'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11917	name: 'CheckBox8'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11918	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11919	model: cStyleBlocks
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11920	translateLabel: true
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11921	)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11922	(CheckBoxSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11923	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11924	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11925	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11926	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11927	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11928	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11929	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11930
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11931	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11932	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11933	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11934	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11935	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11936	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11937	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11938	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11939	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11940	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11941	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11942	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11943	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11944	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11945	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11946	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11947	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11948	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11949	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11950	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11951	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11952	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11953	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11954	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11955	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11956	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11957
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11958	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11959	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11960	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11961	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11962	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11963	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11964	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11965	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11966	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11967	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11968	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11969	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11970	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11971	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11972	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11973	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11974	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11975	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11976	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11977	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11978	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11979	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11980	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11981	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11982	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11983	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11984
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11985	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11986	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11987	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11988	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11989	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11990	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11991	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11992	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11993	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11994	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11995	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11996	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11997	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11998	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11999	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12000	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12001	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12002	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12003	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12004	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12005	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12006	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12007	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12008	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12009	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12010	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12011	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12012	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12013	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12014
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12015	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12016	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12017	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12018	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12019
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12020	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12021	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12022	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12023	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12024	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12025	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12026	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12027	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12028	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12029	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12030	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12031	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12032	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12033	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12034	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12035	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12036	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12037	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12038	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12039	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12040	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12041	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12042	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12043	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12044	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12045	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12046	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12047	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12048	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12049
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12050	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12051	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12052	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12053	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12054	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12055	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12056	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12057	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12058	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12059	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12060	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12061	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12062	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12063	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12064	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12065
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12066	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12067	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12068	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12070	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12071	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12072	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12073
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12074	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12075
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12076	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12077	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12078
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12079	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12080	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12081	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12082	tabIndent
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12083	spaceAroundTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12084	emptyLineAfterTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12085	spaceAfterReturnToken
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12086	spaceAfterKeywordSelector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12087	spaceAfterBlockStart
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12088	spaceBeforeBlockEnd
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12089	cStyleBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12090	blockArgumentsOnNewLine
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12091	maxLengthForSingleLineBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12092	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12093	from:RBFormatter.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12094
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12095	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12096	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12097	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12098	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12099	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12101	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12102
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12103	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12104	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12105	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12106	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12107	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12108	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12109	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12110	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12111	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12112	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12113	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12114	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12115	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12116	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12117	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12118	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12119	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12120	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12121	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12122	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12123	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	12124	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12125	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12126
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12127	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12128
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12129	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12130	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12131	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12132	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12133
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12134	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12135	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12136	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12137	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12138	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12139	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12140	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12141	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12142	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12143	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12144	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12145	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12146	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12147	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12148
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12149	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12150	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12151	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12152	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12153	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12154	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12155	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12156	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12157	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12158	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12159	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12160
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12161	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12162	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12163	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12164	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12165	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12166	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12167	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12168	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12169	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12170	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12172	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12173	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12174	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12175	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12176	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12177	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12178	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12179	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12180	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12181	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12182	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12183	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12184	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12186	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12187
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12188	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12189	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12190	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12191	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12192	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12193	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12194	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12195	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12196	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12197	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12198	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12199	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12200	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12201	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12202
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12203	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12204
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12205	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12206	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12207	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12208	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12209	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12210	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12211	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12212	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12213	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12214	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12215	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12216	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12217	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12218	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12219
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12220	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12222	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12223
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12224	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12225	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12226	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12227	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12228	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12229	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12230
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12231	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12232
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12233	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12234	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12235	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12236	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12237	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12238	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12239
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12240	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12241
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12242	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12243	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12244	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12245	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12246	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12247	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12248
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12249	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12250
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12251	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12252	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12253	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12254	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12255	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12256
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12257	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12258
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12259	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12260	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12261	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12262	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12263	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12264	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12265
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12266	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12267
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12268	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12269	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12270	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12271	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12272	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12273	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12274
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12275	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12276
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12277	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12278	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12279	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12280	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12281	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12282	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12283
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12284	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12285
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12286	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12287	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12288	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12289	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12290	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12291	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12293	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12294
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12295	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12296	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12297	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12298	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12299	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12300	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12301
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12302	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12303
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12304	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12305	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12306	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12307	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12308	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12309	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12310
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12311	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12312
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12313	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12314	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12315	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12316	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12317	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12318	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12319
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12320	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12321
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12322	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12323	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12324	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12325	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12326	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12327	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12328
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12329	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12330
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12331	update:something with:aParameter from:changedObject
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12332	(changedObject == self blockArgumentsOnNewLine
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12333	or:[ changedObject == self cStyleBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12334	or:[ changedObject == self emptyLineAfterTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12335	or:[ changedObject == self maxLengthForSingleLineBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12336	or:[ changedObject == self spaceAfterKeywordSelector
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12337	or:[ changedObject == self spaceAfterReturnToken
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12338	or:[ changedObject == self spaceAfterBlockStart
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12339	or:[ changedObject == self spaceBeforeBlockEnd
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12340	or:[ changedObject == self spaceAroundTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12341	or:[ changedObject == self tabIndent]]]]]]]]])
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12342	ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12343	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12344	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12345	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	12346	].
c72e35116b13 instable state penk parents: 5040 diff changeset	12347	super
c72e35116b13 instable state penk parents: 5040 diff changeset	12348	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	12349	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	12350	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12351	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12352
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12353	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12354
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12355	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12356	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12357	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12358
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12359	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12361	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12362	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12363	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12364	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12365	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12366	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12367	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12368	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12369	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12370	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12371
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12372	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12373
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12374	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12375	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12376	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12378	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12380	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12381	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12382
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12383	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12384	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12385	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12386	tabIndent
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12387	spaceAroundTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12388	emptyLineAfterTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12389	spaceAfterReturnToken
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12390	spaceAfterKeywordSelector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12391	spaceAfterBlockStart
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12392	spaceBeforeBlockEnd
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12393	cStyleBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12394	blockArgumentsOnNewLine
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12395	maxLengthForSingleLineBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12396	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12397	asComparedTo:RBFormatter) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12398
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12399	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12400	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12401
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12402	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12403
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12404	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12405	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12406	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12407
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12408	"Do not manually edit this!! If it is corrupted,
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12409	the UIHelpTool may not be able to read the specification."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12410
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12411	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12412	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12413	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12414
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12415	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12416
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12417	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12418
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12419	#perPackageConfiguration
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12420	'Define per-package repository types here.\For any non-matching package-id, the default repository type is used.'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12421
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12422	#moveManagerUp
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12423	'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used.)'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12424
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12425	#moveManagerDown
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12426	'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12427
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12428	#sourceCache
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12429	'After checkout, keep the sourcefile in a local file (to avoid repreated checkout of the same file)'
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12430
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12431	#clearSourceCache
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12432	'Remove all files from the source cache. Will lead to some temporary slowdown, when sources are refetched from the repository.file)'
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12433
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12434	#condenseSourceCache
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12435	'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.'
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12436
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12437	#useLocalSources
9836 ae825d999ef9 helps Claus Gittinger <cg@exept.de> parents: 9835 diff changeset	12438	'If present, use the local source files (from the development system''s tree).\If checkout fails, these will always be tried as second chance.'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12439
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12440	#keepMethodSourceInImage
9928 c743ca3cc359 x Claus Gittinger <cg@exept.de> parents: 9836 diff changeset	12441	'After first file access, keep the method sources in the image itself.\All following text search operations will be much faster.\Grows the image over time (but who cares, these days)'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12442	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12443
9928 c743ca3cc359 x Claus Gittinger <cg@exept.de> parents: 9836 diff changeset	12444	"Modified: / 10-05-2011 / 14:52:23 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12445	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12446
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12447	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12448
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12449	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12450	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12451	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12452
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12453	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12454	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12455
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12456	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12457	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12458	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12459	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12460	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12461
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12462	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12463
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12464	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12465	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12466	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12467	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12468	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12469	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12470	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12471	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12472	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12473	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12474
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12475	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12476
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12477	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12478	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12479	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12481	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12482	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12484	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12485	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12486	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12487	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12488	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12490	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12492	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12493	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12494	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12495	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12496	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12497	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12498	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12499	min: (Point 10 10)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12500	bounds: (Rectangle 0 0 659 554)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12501	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12502	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12503	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12504	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12505	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12506	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12507	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12508	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12509	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12510	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12511	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12512	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12513	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12514	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12515	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12516	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12517	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12518	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12519	horizontalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12520	verticalSpace: 4
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12521	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12522	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12523	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12524	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12525	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12526	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12527	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12528	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12529	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12530	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12531	name: 'SourcecodeManagementCheckBox'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12532	layout: (LayoutFrame 5 0 5 0.0 256 0 27 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12533	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12534	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12535	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12536	(ComboListSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12537	name: 'ComboList1'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12538	layout: (LayoutFrame -151 1 5 0 -5 1 27 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12539	visibilityChannel: moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12540	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12541	model: selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12542	comboList: availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12543	useIndex: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12544	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12545	(LabelSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12546	label: 'Default Repository Type:'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12547	name: 'Label14'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12548	layout: (LayoutFrame -347 1 5 0 -154 1 27 0)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12549	translateLabel: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12550	adjust: right
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12551	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12552	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12553
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12554	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12555	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12556	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12557	(FramedBoxSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12558	label: 'Per Package Settings'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12559	name: 'PerPackageConfiguration'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12560	activeHelpKey: perPackageConfiguration
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12561	labelPosition: topLeft
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12562	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12563	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12564	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12565	collection: (
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12566	(VerticalPanelViewSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12567	name: 'RepositoryConfigurations'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12568	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12569	activeHelpKey: perPackageConfiguration
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12570	horizontalLayout: fit
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12571	verticalLayout: bottomFit
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12572	horizontalSpace: 3
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12573	verticalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12574	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12575	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12576	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12577	(ViewSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12578	name: 'RepositoryConfigurationListBox'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12579	activeHelpKey: perPackageConfiguration
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12580	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12581	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12582	collection: (
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12583	(DataSetSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12584	name: 'RepositoryConfigurationList'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12585	layout: (LayoutFrame 0 0 0 0 -25 1 0 1)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12586	enableChannel: useManager
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12587	model: selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12588	hasHorizontalScrollBar: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12589	hasVerticalScrollBar: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12590	dataList: managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12591	columnHolder: managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12592	beDependentOfRows: true
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12593	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12594	(ArrowButtonSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12595	name: 'MoveUp'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12596	layout: (LayoutFrame -25 1 -25 0.5 0 1 0 0.5)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12597	activeHelpKey: moveManagerUp
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12598	model: moveUpAction
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12599	enableChannel: useManager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12600	isTriggerOnDown: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12601	direction: up
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12602	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12603	(ArrowButtonSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12604	name: 'MoveDown'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12605	layout: (LayoutFrame -25 1 0 0.5 0 1 25 0.5)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12606	activeHelpKey: moveManagerDown
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12607	model: moveDownAction
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12608	enableChannel: useManager
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12609	isTriggerOnDown: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12610	direction: down
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12611	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12612	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12613
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12614	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12615	extent: (Point 625 168)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12616	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12617	(ViewSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12618	name: 'Box4'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12619	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12620	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12621	collection: (
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12622	(LabelSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12623	label: 'Package ID:'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12624	name: 'Label15'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12625	layout: (LayoutFrame 9 0 9 0 100 0 31 0)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12626	translateLabel: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12627	adjust: right
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12628	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12629	(LabelSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12630	label: 'Manager:'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12631	name: 'Label16'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12632	layout: (LayoutFrame 9 0 37 0 100 0 59 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12633	translateLabel: true
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12634	adjust: right
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12635	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12636	(InputFieldSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12637	name: 'EntryField1'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12638	layout: (LayoutFrame 108 0 9 0 313 0 31 0)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12639	enableChannel: useManager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12640	model: packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12641	acceptOnReturn: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12642	acceptOnTab: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12643	acceptOnPointerLeave: true
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12644	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12645	(ComboListSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12646	name: 'ComboList2'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12647	layout: (LayoutFrame 108 0 39 0 313 0 59 0)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12648	enableChannel: useManager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12649	model: managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12650	comboList: availableManagerTypeNames
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12651	useIndex: false
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12652	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12653	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12654
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12655	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12656	extent: (Point 625 63)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12657	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12658	(HorizontalPanelViewSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12659	name: 'AddRemovePanel'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12660	horizontalLayout: fit
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12661	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12662	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12663	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12664	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12665	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12666	collection: (
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12667	(ActionButtonSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12668	label: 'Add Entry'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12669	name: 'AddConfigurationAction'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12670	translateLabel: true
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12671	model: addManagerAction
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12672	enableChannel: useManager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12673	extent: (Point 311 25)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12674	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12675	(ActionButtonSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12676	label: 'Remove Entry'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12677	name: 'RemoveConfigurationAction'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12678	translateLabel: true
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12679	model: removeManagerAction
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12680	enableChannel: canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12681	extent: (Point 311 25)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12682	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12683	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12684
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12685	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12686	extent: (Point 625 30)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12687	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12688	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12689
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12690	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12691	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12692	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12693
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12694	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12695	extent: (Point 659 300)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12696	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12697	(FramedBoxSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12698	label: 'Source Cache'
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12699	name: 'SourceCacheBox'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12700	activeHelpKey: sourceCache
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12701	labelPosition: topLeft
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12702	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12703	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12704	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12705	collection: (
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12706	(ViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12707	name: 'SourceCacheDirBox'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12708	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12709	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12710	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12711	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12712	(LabelSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12713	label: 'Source Cache Dir:'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12714	name: 'SourceCacheDirLabel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12715	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12716	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12717	adjust: right
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12718	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12719	(InputFieldSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12720	name: 'SourceCacheDirEntryField'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12721	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12722	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12723	model: sourceCacheDir
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12724	immediateAccept: false
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12725	acceptOnReturn: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12726	acceptOnTab: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12727	acceptOnLostFocus: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12728	acceptOnPointerLeave: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12729	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12730	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12731
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12732	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12733	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12734	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12735	name: 'CacheActionsHorizontalPanel'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12736	layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12737	horizontalLayout: fitSpace
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12738	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12739	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12740	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12741	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12742	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12743	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12744	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12745	label: 'Flush Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12746	name: 'FlushCacheNowButton'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12747	activeHelpKey: clearSourceCache
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12748	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12749	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12750	model: flushSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12751	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12752	extent: (Point 208 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12753	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12754	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12755	label: 'Condense Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12756	name: 'CondenseCacheNowButton'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12757	activeHelpKey: condenseSourceCache
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12758	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12759	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12760	model: condenseSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12761	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12762	extent: (Point 208 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12763	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12764	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12765
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12766	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12767	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12768	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12770	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12771	extent: (Point 659 95)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12772	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12773	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12774	name: 'UseLocalSourceBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12775	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12776	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12777	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12778	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12779	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12780	name: 'CheckBox4'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12781	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12782	activeHelpKey: useLocalSources
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12783	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12784	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12785	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12786	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12787	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12788
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12789	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12790	extent: (Point 659 22)
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12791	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12792	(ViewSpec
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12793	name: 'KeepMethodSourceBox'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12794	component:
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12795	(SpecCollection
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12796	collection: (
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12797	(CheckBoxSpec
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12798	label: 'Keep Method Source (In Image)'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12799	name: 'CheckBox7'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12800	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	12801	activeHelpKey: keepMethodSourceInImage
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12802	enableChannel: useManager
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12803	model: keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12804	translateLabel: true
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12805	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12806	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12807
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12808	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12809	extent: (Point 659 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12810	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12811	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12812	name: 'CheckForHaltSendsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12813	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12814	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12815	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12816	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12817	label: 'Check for halt/error-Sends when Checking in'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12818	name: 'CheckBox5'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12819	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12820	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12821	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12822	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12823	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12824	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12825
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12826	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12827	extent: (Point 659 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12828	)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12829	(ViewSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12830	name: 'VerboseBox'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12831	component:
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12832	(SpecCollection
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12833	collection: (
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12834	(CheckBoxSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12835	label: 'Verbose (Trace Access on Transcript)'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12836	name: 'CheckBox6'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12837	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12838	enableChannel: useManager
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12839	model: verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12840	translateLabel: true
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12841	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12842	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12843
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12844	)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12845	extent: (Point 659 22)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12846	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12847	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12848
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12849	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12850	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12851	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12852	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12853
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12854	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12855	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12856	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12858	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12859	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12860	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12861
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12862	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12863
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12864	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12865	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12866	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12867
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12868	"Do not manually edit this!! If it is corrupted,
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12869	the DataSetBuilder may not be able to read the specification."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12870
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12871	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12872	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12873	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12874
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12875	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12876
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12877	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12878	(DataSetColumnSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12879	label: 'Module (PackageID Match)'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12880	labelButtonType: Button
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12881	width: 0.5
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12882	model: packageMatchString
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12883	menuFromApplication: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12884	canSelect: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12885	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12886	(DataSetColumnSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12887	label: 'Repository Type'
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12888	labelButtonType: Button
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12889	width: 0.5
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12890	model: managerTypeString
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12891	menuFromApplication: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12892	writeSelector: manager:
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12893	canSelect: false
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12894	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12895	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12896
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12897	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12898
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12899	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12901	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12903	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12904	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12905
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12906	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12907
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12908	addManagerAction
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12909	\|package typeName manager oldEntry idx\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12910
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12911	package := self packageToAddHolder value.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12912	typeName := self managerTypeToAddHolder value.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12913	manager := self availableManagers detect:[:mgr \| mgr managerTypeName = typeName] ifNone:nil.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12914	oldEntry := managerPerMatchingModule detect:[:entry \| entry packageMatchString = package] ifNone:nil.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12915	oldEntry notNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12916	oldEntry manager:manager.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12917	managerPerMatchingModule changed.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12918	idx := managerPerMatchingModule indexOf:oldEntry.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12919	] ifFalse:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12920	managerPerMatchingModule add:(ManagerTypeTableEntry new packageMatchString:package manager:manager).
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12921	idx := managerPerMatchingModule size.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12922	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12923	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12924
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12925	"Created: / 18-04-2011 / 19:30:46 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12926	"Modified: / 18-04-2011 / 21:24:52 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12927	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12928
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12929	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12930	(self listOfModules includes:module) ifFalse:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12931	self listOfModules add:module; sort.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12932	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12933	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12934
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12935	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12936
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12937	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12938	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12939
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12940	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12941	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12942
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12943	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12944
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12945	self hasManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12946	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12947	self localSourceFirst value:Class tryLocalSourceFirst.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12948	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12949
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12950	manager notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12951	manager forgetDisabledModules.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12952	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12953	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12954	self useManager value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12955	self localSourceFirst value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12956	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12957
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12958	self managerPerMatchingModule removeAll.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12959	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:eachKeyValuePair \|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12960	self managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12961	add:(ManagerTypeTableEntry new
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12962	packageMatchString:(eachKeyValuePair key)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12963	manager:(eachKeyValuePair value)).
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12964	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12965
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12966	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12967	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12968
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12969	infoPerModule := eachManager repositoryInfoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12970	infoPerModule keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12971	rootsPerModule at:module put:(Array with:eachManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12972	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12973	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12974
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	12975	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	12976
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12977	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12978
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12979	rootsPerModule notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12980	self listOfModules removeAll.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12981	listOfModules addAll:rootsPerModule keys asList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12982	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12983	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12984
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	12985	"Modified: / 18-04-2011 / 21:17:01 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12986	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12987
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12988	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12989	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12990
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12991	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12992	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12993	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12994
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12995	(self hasManager and:[self useManager value]) ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12996	manager ~~ self selectedManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12997	manager := nil.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12998	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12999
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13000	manager isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13001	manager := self selectedManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13002	manager isNil ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13003	manager := self availableManagers first.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13004	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13005	].
7513 bd3461e85387 * empty log message * Michael Beyl <mb@exept.de> parents: 7506 diff changeset	13006	Smalltalk at:#SourceCodeManager put:manager.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13007
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13008	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13009	\| nm fn\|
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13010
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13011	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	13012	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13013	(fn := nm asFilename) exists ifFalse:[
4874 688a33043459 Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 4873 diff changeset	13014	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
8659 66979cd4db3b recursive dir-make Claus Gittinger <cg@exept.de> parents: 8623 diff changeset	13015	fn recursiveMakeDirectory;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13016	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13017	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13018	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13019	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13020	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13021	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13022	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13023	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	13024	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13025	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13026	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13027	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13028	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13029	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13030
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13031	AbstractSourceCodeManager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13032	managerPerMatchingModuleDefinitions:(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13033	managerPerMatchingModule collect:[:entry \| entry packageMatchString -> entry manager]) asOrderedCollection.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13034
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13035	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13036	\|infoPerModule\|
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13037
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13038	modules := rootsPerModule select:[:entry \| entry first == eachManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13039	infoPerModule := Dictionary new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13040	modules keysAndValuesDo:[:module :entry \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13041	entry first == eachManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13042	infoPerModule at:module put:(entry second).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13043	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13044	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13045	eachManager repositoryInfoPerModule:infoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13046	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13047
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	13048	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13049
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13050	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13051	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13052	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13053	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13054
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13055	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13056
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13057	"Modified: / 18-04-2011 / 21:22:14 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13058	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13059
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13060	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13061	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13062	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13063
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13064	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13065	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13066
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13067	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13068	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13069	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13070
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13071	"Modified: / 28-11-2006 / 12:21:21 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13072	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13073
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13074	removeManagerAction
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13075	\|idx\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13076
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13077	idx := self selectedManagerPerMatchingModuleHolder value.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13078	managerPerMatchingModule removeIndex:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13079
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13080	managerPerMatchingModule size >= idx ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13081	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13082	] ifFalse:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13083	managerPerMatchingModule size >= (idx-1) ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13084	selectedManagerPerMatchingModuleHolder value:idx-1.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13085	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13086	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13087
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13088	"Created: / 18-04-2011 / 20:56:46 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13089	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13090
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13091	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13092
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13093	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13094
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13095	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13096	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13097	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13098	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13099	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13100	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13101	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13103
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13104	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13106	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13107	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13108	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13109	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13110	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13111	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13112
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13113	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13114	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13115
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13116	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13117
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13118	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13119
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13120	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13121	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13122	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13123	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13124	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13125
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13126	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13127	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13128
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13129	"Created: / 16-08-2006 / 11:16:25 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13130	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13131
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13132	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13133	availableManagers isNil ifTrue:[
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13134	availableManagers := AbstractSourceCodeManager availableManagers copy.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13135	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13136	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13137	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13138
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13139	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13140	self basicNew availableManagers
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13141	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13142
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13143	"Created: / 16-08-2006 / 11:01:10 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13144	"Modified: / 18-04-2011 / 19:05:47 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13145	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13146
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13147	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13148	^ BlockValue
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13149	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13150	argument:(self selectedManagerPerMatchingModuleHolder)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13151	argument:(self useManager)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13152
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13153	"Created: / 18-04-2011 / 20:52:48 / cg"
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13154	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13155
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13156	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13157
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13158	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13159	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13160	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13161	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13162	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13163	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13164
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13165	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13166
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13167	keepMethodSource isNil ifTrue:[
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13168	keepMethodSource := ValueHolder new.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13169	keepMethodSource onChangeSend:#updateModifiedChannel to:self
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13170	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13171	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13172	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13173
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13174	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13175
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13176	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13177	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13178	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13179	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13180	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13181	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13182	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13183	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13184	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13186	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13187
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13188	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13189	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13190	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13191	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13192	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13193	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13194
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13195	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13196	managerIsCVSSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13197	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13198	[SourceCodeManager isCVS]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13199	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13200	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13201
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13202	"Created: / 16-08-2006 / 10:56:38 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13203	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13204
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13205	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13206	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13207	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
7492 5b2f0c07896e * empty log message * Claus Gittinger <cg@exept.de> parents: 7490 diff changeset	13208	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13209	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13210	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13211
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13212	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13213	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13214
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13215	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13216	managerIsStoreSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13217	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13218	[SourceCodeManager isStore]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13219	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13220	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13221
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13222	"Created: / 16-08-2006 / 10:57:13 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13223	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13224
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13225	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13226	managerPerMatchingModule isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13227	managerPerMatchingModule := List new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13228	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13229	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13230	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13231
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13232	"Created: / 18-04-2011 / 20:44:54 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13233	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13234
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13235	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13236	managerTypeIndexToAddHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13237	managerTypeIndexToAddHolder := ValueHolder new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13238	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13239	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13240
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13241	"Created: / 18-04-2011 / 19:32:30 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13242	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13243
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13244	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13245	managerTypeToAddHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13246	managerTypeToAddHolder := ValueHolder new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13247	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13248	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13249
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13250	"Created: / 18-04-2011 / 19:34:11 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13251	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13252
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13253	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13254	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13255
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13256	"Created: / 16-08-2006 / 11:22:03 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13257	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13258
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13259	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13260	packageToAddHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13261	packageToAddHolder := ValueHolder new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13262	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13263	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13264
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13265	"Created: / 18-04-2011 / 19:32:39 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13266	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13267
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13268	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13269
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13270	perModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13271	perModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13272	perModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13273	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13274	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13275	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13276
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13277	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13278	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13279	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13280	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13281	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13282	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13283	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13285	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13286	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13287	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13288	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13289	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13290	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13291
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13292	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13293
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13294	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13295	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13296	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13297	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13298	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13299
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13300	selectedManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13301	\|idx\|
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13302
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13303	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13304	^ self availableManagers first
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13305	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13306
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13307	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13308	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13309	^ self availableManagers at:idx
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13310
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13311	"Modified: / 16-08-2006 / 11:18:50 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13312	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13313
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13314	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13315	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13316	selectedManagerPerMatchingModuleHolder := nil asValue.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13317	selectedManagerPerMatchingModuleHolder addDependent:self.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13318	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13319	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13320
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13321	"Created: / 18-04-2011 / 20:49:17 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13322	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13323
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13324	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13325	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13326
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13327	selectedManagerTypeIndexHolder isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13328	selectedManagerTypeIndexHolder := nil asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13329	selectedManagerTypeIndexHolder onChangeEvaluate:[
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13330	selectedManager := self selectedManager.
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13331	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	13332	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13333	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13334	self updateModifiedChannel
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13335	].
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13336
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13337	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13338	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13339	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13340
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13341	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13342	"Modified: / 09-11-2006 / 14:34:54 / cg"
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13343	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13344
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13345	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13346	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13347	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13348	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13349	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13350	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13351	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13352
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13353	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13354	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13355	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13356	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13357	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13358	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13359	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13361	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13362	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13363	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13364	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	13365	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13366	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13367	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13368
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13369	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13370	verboseSourceCodeAccess isNil ifTrue:[
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13371	verboseSourceCodeAccess := false asValue.
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13372	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13373	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13374	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13375	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13376
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13377	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13378
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13379	selectedPerModuleRootChanged
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13380	\|module entry\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13381
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13382	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13383	module := self selectedPerModuleRoot value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13384	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13385	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13386	self perModuleRootModule value:' '.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13387	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13388	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13389	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13390
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13391	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13392	(entry first = CVSSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13393	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13394	self perModuleRootModule value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13395	self perModuleRoot value:(entry at:2).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13396	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13397	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13398	self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13399	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13400	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13401	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13402
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13403	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13404	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13405
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13406	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13407
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13408	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13409
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13410	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13411	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13412
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13413	(fn := nm asFilename) exists ifFalse:[
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13414	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13415	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13416	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13417	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13418	self sourceCacheDir value:previousDir.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13419	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13420	].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13421	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13422	recursiveMakeDirectory;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13423	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13424	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13425	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13426	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13427	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13428
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13429	(fn isDirectory) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13430	self warn:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13431	stringWithCRs:'Not a directory: "%1"'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13432	with:nm).
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13433	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13434	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13435	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13436
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13437	(fn isReadable and:[fn isWritable]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13438	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13439	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13440	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13441	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13442	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13443	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13444	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13445	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13446	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13447	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13448	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13449	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13450	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13451	"/ (self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13452	"/ stringWithCRs:'SourceCache directory "%1" is not both readable and writable for other users.\Change ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13453	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13454	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13455	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13456	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13457	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13458	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13459	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13460	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13461	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13462
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13463	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13464	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13465
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13466	changedObject == sourceCacheDir ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13467	self sourceDirChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13468	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13469	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13470	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13471
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13472	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13473	idx := changedObject value.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13474	(idx notNil and:[idx ~~ 0]) ifTrue:[
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13475	entry := self managerPerMatchingModule at:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13476	self packageToAddHolder value:(entry packageMatchString).
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13477	self managerTypeToAddHolder value:(entry manager managerTypeName).
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13478	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13479	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13480	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13481
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13482	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13483
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13484	"Modified: / 18-04-2011 / 21:23:08 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13485	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13486
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13487	updateSelectedManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13488	\|selectedManagerTypeIndex\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13489
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13490	selectedManagerTypeIndex := self availableManagers indexOf:SourceCodeManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13491	selectedManagerTypeIndex == 0 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13492	self availableManagers size == 1 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13493	selectedManagerTypeIndex := 1.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13494	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13495	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	13496	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13497	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13498
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13499	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13500
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13501	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	13502	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	13503
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	13504	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13505	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13506
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13507	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13508
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13509	initialize
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13510	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13511
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13512	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13513
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13514	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13515	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13516
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13517	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13518	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13519
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13520	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13521	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13522
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13523	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13524	eachManager repositoryInfoPerModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13525	keysAndValuesDo:[:module :info \|
8356 e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13526	module withoutSeparators ~= module ifTrue:[
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13527	self halt:'should not happen any longer'
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	13528	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13529	rootsPerModule at:module put:(Array with:eachManager with:info)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13530	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13531	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13532
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13533	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13534
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13535	"Modified: / 18-04-2011 / 19:37:38 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13536	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13537
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13538	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13539
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13540	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13541	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13542
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13543	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13544	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13545	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13546	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13547	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13548	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13549	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13550	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13551	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13552
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13553	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13554	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13555
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13556	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13557	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13559	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13560	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13561	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13562	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	13563
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13564	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	13565	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13566
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	13567	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13568	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13569
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13570	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13571	ifTrue:[^ true].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13572
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13573	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13574	~= (self managerPerMatchingModule collect:[:entry \| entry packageMatchString -> entry manager]) asOrderedCollection) ifTrue:[^ true].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13575
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13576	self availableManagers do:[:mgr \|
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13577	\|modules\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13578
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13579	modules := rootsPerModule select:[:entry \| entry first == mgr].
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13580
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13581	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
7348 ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13582	((modules includesKey:module) and:[info = (modules at:module) second])
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13583	ifFalse:[^ true].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13584	].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13585	modules keysAndValuesDo:[:module :info\|
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13586	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	13587	ifFalse:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13588	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13589	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13590
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	13591	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13592
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13593	"Modified: / 18-04-2011 / 21:22:18 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13594	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13595
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13596	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::ManagerTypeTableEntry methodsFor:'accessing'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13597
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13598	manager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13599	^ manager
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13600	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13601
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13602	manager:something
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13603	manager := something.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13604	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13605
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13606	managerTypeString
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13607	^ manager managerTypeName
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13608
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13609	"Created: / 18-04-2011 / 21:18:20 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13610	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13611
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13612	packageMatchString
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13613	^ packageMatchString
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13614	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13615
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13616	packageMatchString:something
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13617	packageMatchString := something.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13618	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13619
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13620	packageMatchString:packageMatchStringArg manager:managerArg
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13621	packageMatchString := packageMatchStringArg.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	13622	manager := managerArg.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13623	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13625	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13627	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13629	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13630	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13631	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13632	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13633	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	13634	'mswindowsxp'
9071 c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	13635	'mswindowsvista'
c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	13636	"/ 'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	13637	"/ 'normal'
9070 7deb618d44ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9069 diff changeset	13638	"/ 'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	13639	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	13640	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13641	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13642	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13643
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13644	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13645
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13646	closePreviewButtonImage
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13647	^ ToolbarIconLibrary removeTabIcon
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13648	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13649
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13650	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13651	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13652	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13653
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13654	"Do not manually edit this!! If it is corrupted,
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13655	the ImageEditor may not be able to read the specification."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13656
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13657	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13658	self defaultIcon2 inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13659	ImageEditor openOnClass:self andSelector:#defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13660	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13661	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13662
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13663	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13664
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13665	^Icon
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	13666	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13667	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13668	@@@@@@@@@@@@@@0L@@@@@@@@@@@@@@@@@@@@@@@@@@0_GQT@@@@@@@@@@@@@@@@@@@@@@@0\GQ4ZEP@@@@@@@@@@@@@@@@@@@@0[GQ4ZF!!TU@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13669	@@@@@AL[G!!8ZF!!\WEQT@@@@@@@@@@@@@@AL[G!!8^G!! WE1TUEP@@@@@@@@@@@AL[G!!8^G!!8^EQ\XEQTU@@@@@@@@@AL[G!!8^G!!8^G!!8TEQTTE@0@@@@@@AL[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13670	G!!8^G!!8^G!!8^G!!PTEAPTC@@@@@@@D18^G!!8^G!!8^G!!8^EAPTEAPQ@@HB@ HB@ HB@ HB@ HB@ HTEAPS@@@B@!!0YB (IB@XFAPP\FQ$BG!!PS@@@@@ H\FP(J
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13671	BP FA TDGA$Y@!!8S@@@@@@HBFQXGA0\C@0LA@Q$VE HS@@@@@@@SD10\GA0\GA0\GA0[F1,S@@@@@@@@D1L\GA0\GA0\GA0\F1,[D0@@@@@@@ALSGA0\GA0\
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13672	GA0\F1,[F1L@@@@@@@@SD10\GA0\GA0\GA,[F1,S@@@@@@@@D1L\GA0\GA0\GA0[F1,[D0@@@@@@@ALSGA0\GA0\GA0\F1,[F1L@@@@@@@@SD10\GA0\GA0\
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	13673	F1,[F1,S@@@@@@@@D1LSD1LSD1LSD1LSD1LSD0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 80 112 0 80 128 0 96 128 0 96 144 0 112 144 0 112 160 16 112 144 16 128 160 16 128 176 16 144 192 32 80 80 32 96 80 32 96 96 48 112 112 48 128 112 48 128 128 64 96 96 64 144 128 80 80 80 112 112 0 128 128 0 128 128 128 160 160 0 176 176 0 192 192 192 208 208 0 224 224 224 240 240 240 255 255 129 255 255 193 255 255 225]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G?? O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13674	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13675
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13676	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13678	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13679	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13680	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13682	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13683	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13685	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13686	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13687	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13688	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13689	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13691	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13693	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13694	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13695	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13696	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13697	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13698	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13699	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13700	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	13701	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13702	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13703	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13704	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13705	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13706	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13707	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13708	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13709	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13710	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13711	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13712	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13713	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13714	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13715	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13716	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13717	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13718	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13719	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	13720	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13721	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13722	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13723	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13724	isReadOnly: true
9067 3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	13725	hasKeyboardFocusInitially: false
3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	13726	viewClassName: 'TextView'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13727	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13728	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13729	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13730
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13731	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13732	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13733	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13734	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13735	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13736	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13737	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13738	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13739	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13740	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13741	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13742	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13743	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13744	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13745	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13746	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13747	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13748	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13749	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13750	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13751	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13752	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	13753	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13754	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13755	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13756	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13757	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13758	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13759	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13760	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13761	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13762	sequenceList: styleList
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13763	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13764	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13765	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13766
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13767	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13768	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13769	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13770
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13771	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13772	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13773	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13774
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13775	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13776	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13777	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13778	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13779	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13780	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13781	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13782	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13783	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13784	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13785	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13786	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13787	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13788	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13789	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13790	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13791	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13792	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13793	(CheckBoxSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13794	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13795	name: 'CheckBox2'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13796	layout: (LayoutFrame 417 0 9 0 553 0 31 0)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13797	model: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13798	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13799	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13800	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13801
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	13802	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	13803	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13804	(LabelSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13805	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13806	name: 'PreviewLabel'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13807	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13808	level: 0
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13809	borderWidth: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13810	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13811	backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13812	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13813	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13814	(NonScrollableArbitraryComponentSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13815	name: 'Preview'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13816	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13817	level: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13818	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13819	hasBorder: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13820	component: ImageView
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13821	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13822	(ActionButtonSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13823	label: 'closePreviewButtonImage'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13824	name: 'ClosePreviewButton'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13825	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13826	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13827	hasCharacterOrientedLabel: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13828	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13829	model: closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13830	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13831	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13833	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13834	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13835	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13837	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13838
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13839	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13840	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13841	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13843	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	13844	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13845
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13846	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	13847
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13848	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	13849	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13850	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13851	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	13852	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13853	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13854
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13855	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13856	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13857	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13859	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13860
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13861	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13862	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13864	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13865
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13866	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13867
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13868	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13869	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13870	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13871	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13872	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13873
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13874	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13875
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13876	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13877	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13878	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13879	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13880	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13881
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13882	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13883
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13884	previewVisibleHolder isNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13885	previewVisibleHolder := ValueHolder new.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13886	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13887	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13888	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13889	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13890
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13891	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13893	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13894	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13895	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13897	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13898	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13899
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13900	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13901
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13902	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13903	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13904	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13905	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13906	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13907	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13908
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13909	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13910
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13911	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13912	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13913	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13914	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13915	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13916	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13918	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13919
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13920	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13921	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13923	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13924	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13925	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13926	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13927	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13928	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13929	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13930	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13931	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13932	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13933	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13934	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13935
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13936	self previewVisibleHolder value ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13937	self builder notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13938	labelView := self componentAt:#PreviewLabel.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13939	labelView label:'Sorry - no preview available'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13940
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13941	imgView := (self componentAt:#Preview).
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13942	imgView image:nil.
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	13943
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13944	previewFile notEmptyOrNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13945	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13946	previewImage notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13947	labelView label:'Preview'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13948	imgView adjust:#fitBig; image:previewImage.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13949	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13950	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13951	labelView forceResizeHorizontally.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13952	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	13953	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13954	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13955
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13956	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13957	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13958	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13959	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13960	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13961	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13962	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13963	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	13964	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	13965	].
c72e35116b13 instable state penk parents: 5040 diff changeset	13966	super
c72e35116b13 instable state penk parents: 5040 diff changeset	13967	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	13968	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	13969	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13970	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13971
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13972	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13974	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13976	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13977	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	13978	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13979	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13980	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13981	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13982	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13983	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	13984	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13985	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13987	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13988	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13989	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	13990
041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	13991	"Modified: / 07-11-2006 / 13:58:09 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13992	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13993
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13994	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13995
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13996	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13997	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13998	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13999
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14000	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14001
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14002	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14003	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14004	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14005	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14006
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14007	commonPostBuildWith:aBuilder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14008	super commonPostBuildWith:aBuilder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14009	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14010
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14011	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14013	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14014
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14015	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14016
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14017	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14018	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14019	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14020	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14021	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14022	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14023	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14024	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14025	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14026	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14027	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14028	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14029	self warn:'no styles found (missing ''resources'' directory)'.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14030	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14031	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14032	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14033
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14034	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14035	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14036	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14037	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14038	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14039	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	14040
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14041	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	14042	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14043	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14044	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14045	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14046	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14047	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14048
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14049	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14050	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14051	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14052	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14054	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14055
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14056	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14058	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14059	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14060
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14061	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14062
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14063	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14064
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14065	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14066	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14067	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14068	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14069	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14070	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14071	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14072	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14073	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14074	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14075	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14076	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14077	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14078	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14079	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14080	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14081	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14082	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14083	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14084
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14085	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14087	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14088	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14089	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14091	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14093	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14094	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14095	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14096	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14097	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14098	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14099	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14100	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14101	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14102	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14103	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14104	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14105
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14106	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14107
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14108	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14109	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14110	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14111	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14112	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14113	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14114	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14115	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14116	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14117	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14118	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14119	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14120	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14121	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14122	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14123	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14124	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14125	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14126	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14128	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14129
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14130	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14131	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14132	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14133
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14134	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14135	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14137	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14138	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14139	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14140	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14141	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14143	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14144
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14145	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14146	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14147	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14148	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14149	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14150	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14151	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14153	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14154
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14155	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14156	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14157	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14158
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14159	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14160	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14162	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14163	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14164	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14165	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14166	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14168	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14170	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14171	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14172	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14173	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14174	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14175	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14176	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14177	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14178	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14179	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14180	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14181	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14182	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14183	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14184	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14185	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14186	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14187	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14188	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14189	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14190	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14191	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14192	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14193	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14194	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14195	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14196	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14197	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14198	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14199	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14200	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14201	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14202	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14203	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14204	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14205	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14206	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14207	layout: (LayoutFrame 100 0 0 0 0 1 22 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14208	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14209	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14210	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14211	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14212	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14213	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14214	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14215
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14216	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14217	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14218	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14219	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14220	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14221	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14222	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14223	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14224	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14225	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14226	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14227	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14228	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14229	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14230	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14231	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14232	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14233	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14234	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14235	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14236	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14237	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14238	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14239
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14240	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14241	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14242	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14243	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14244	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14245	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14246	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14247	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14248	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14249	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14250	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14251	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14252	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14253	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14254	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14255	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14256	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14257	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14258	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14259	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14260	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14261	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14262	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14263	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14265
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14266	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14267	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14268	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14269	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14270	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14271	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14272	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14273	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14274	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14275	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14276	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14277	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14278	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14279	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14280	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14281	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14282	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14283	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14284	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14285	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14286	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14287	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14288	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14289	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14290	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14291	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14292
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14293	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14294	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14295	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14296	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14297	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14298	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14299	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14300	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14301	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14302	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14303	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14304	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14305	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14306	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14307	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14308	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14309	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14310	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14311	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14312	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14313	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14314	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14315	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14316	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14317	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	14318	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14319	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14320	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14321	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14322	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14323	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14324	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14325	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14326	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14327	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14328	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14329	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14330	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14331	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14332	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14333	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14334	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14335	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14337	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14338	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14339	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14340
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14341	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14342	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14343	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14345	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14346
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14347	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14348	\|colorList resetListLoc\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14349
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14350	oldUserPreferences notNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	14351	(UserPreferences reset; current) addAll:oldUserPreferences
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14352	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14353
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14354	self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14355	readAspects:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14356	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14357	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14358	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14359	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14360	from:currentUserPrefs.
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14361
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14362	oldUserPreferences := currentUserPrefs copy.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14363	colorList := UserPreferences syntaxColorNames.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14364	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14365	collect:[:entry \| entry second].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14366	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14367	self resetListSelection value:resetListLoc first.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14368	self syntaxEmphasisList value:self class emphasisList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14369	self syntaxElementList value:colorList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14370	self syntaxElementSelection value:(colorList at:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14371	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14372
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14373	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14374
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14375	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14376	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14377	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14378	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14380	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14381	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14382
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14383	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14384	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14385	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14386	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14387	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14388	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14389	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14390	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14391	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14392	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14393
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14394	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14395	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14396
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14397	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	14398	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	14399	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14400	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14401	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14402	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14403
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14404	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14405
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14406	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14407
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14408	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14409	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14410	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14411	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14412	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14413
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14414	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14415
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14416	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14417	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14418	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14419	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14420	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14421	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14422
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14423	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14424
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14425	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14426	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14427	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14428	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14429
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14430	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14431	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14432
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14433	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14434
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14435	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14436	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14437	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14438	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14439	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14440
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14441	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14442
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14443	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14444	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14445	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14446	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14447	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14448	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14449
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14450	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14451
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14452	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14453	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14454	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14455	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14456	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14457	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14458	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14459
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14460	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14461	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14462	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14463	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14464	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14465
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14466	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14467	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14468
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14469	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14470
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14471	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14472	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14473	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14474	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14475	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14476
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14477	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14478	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14479
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14480	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14481	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14482	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14483	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14484	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14485
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	14486	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14487	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14488
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14489	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14490
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14491	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14492	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14493	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14494	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14495	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14496	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14497
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14498	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14500	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14501	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14502
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14503	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14504	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14505
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14506	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14507	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14508	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14509	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14510	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14512	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14513
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14514	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14515
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14516	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14517	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14518	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14519	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14520	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14521
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14522	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14523	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14524
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14525	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14526	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14527	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14528	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14529	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14530
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14531	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14532	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14533	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14534	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14535	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14536	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14537	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14538	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14539	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14540	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14541	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14542	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14543	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14544	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14545	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14546	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14547	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14548
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14549	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14550	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14551
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14552	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14553
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14554	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14555	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14556	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14557
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14558	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14559
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14560	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14561	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14562	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14563
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14564	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14565	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14566	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14567	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14568	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14569
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14570	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14572	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14573	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14574	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14575	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14576	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14577	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14578	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14579	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14580	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14581	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14582	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14583	emphasisDictionary at:entry put:(Array with:#bold with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14584	emphasisDictionary at:(Array with:#bold with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14585	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14586	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14587	emphasisDictionary at:entry put:(Array with:#bold with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14588	emphasisDictionary at:(Array with:#bold with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14589	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14590	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14591	emphasisDictionary at:entry put:(Array with:#italic with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14592	emphasisDictionary at:(Array with:#italic with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14593	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14594	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14595	emphasisDictionary at:entry put:(Array with:#italic with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14596	emphasisDictionary at:(Array with:#italic with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14597	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14598	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14599	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14600	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14601	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14602	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14603	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14604	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14605	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14606	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14607
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14608	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14609
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14610	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	14611	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14612	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14613	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14614	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14615
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14616	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14617
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14618	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14619	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14620
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14621	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14622	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14623	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14624	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14625	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14626	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14627	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14628	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14629	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14630	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14631	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14632	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14633
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14634	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14635	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14636	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14637	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14638	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14639	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14640	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	14641
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14642	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14643	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14644
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14645	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14646	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14647	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14648
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14649	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14650	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14651	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14653	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14654
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14655	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14656	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14657
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14658	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14659	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	14660	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14661	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14662
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14663	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14664
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14665	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14666	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14667
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14668	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14669
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14670	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14671	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14672
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14673	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14674
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14675	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14676	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14677	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14678
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14679	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14680	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14681
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14682	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14683	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14684	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14685	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14686	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14687
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14688	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14689
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14690	^
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14691	#(FullSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14692	name: windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14693	window:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14694	(WindowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14695	label: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14696	name: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14697	min: (Point 10 10)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14698	bounds: (Rectangle 0 0 607 786)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14699	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14700	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14701	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14702	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14703	(VerticalPanelViewSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14704	name: 'VerticalPanel2'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14705	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14706	horizontalLayout: fit
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14707	verticalLayout: top
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14708	horizontalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14709	verticalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14710	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14711	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14712	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14713	(CheckBoxSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14714	label: 'Show Accept/Cancel Bar in Editor'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14715	name: 'ShowAcceptCancelBarInBrowser'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14716	model: showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14717	translateLabel: true
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14718	extent: (Point 607 25)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14719	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14720	(CheckBoxSpec
8922 7caf746db664 * empty log message * Claus Gittinger <cg@exept.de> parents: 8916 diff changeset	14721	label: 'Show Search Bar in Browser'
7caf746db664 * empty log message * Claus Gittinger <cg@exept.de> parents: 8916 diff changeset	14722	name: 'ShowSearchBarInBrowser'
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14723	model: useSearchBarInBrowser
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14724	translateLabel: true
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14725	extent: (Point 607 25)
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14726	)
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14727	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	14728	label: 'Show Method Template'
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14729	name: 'MethodTemplate'
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14730	model: showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14731	translateLabel: true
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14732	extent: (Point 607 25)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14733	)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14734	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	14735	label: 'Use the new CodeView2 (EXPERIMENTAL)'
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14736	name: 'UserCodeView2'
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14737	model: useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14738	translateLabel: true
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14739	extent: (Point 607 25)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14740	)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14741	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	14742	label: 'Use the Embedded Test Runner (EXPERIMENTAL)'
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14743	name: 'UseEmbeddedTestRunner'
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14744	model: showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14745	translateLabel: true
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14746	extent: (Point 607 25)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14747	)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14748	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	14749	label: 'Show Bookmarks Bar (EXPERIMENTAL)'
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14750	name: 'ShowBookmarksBar'
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14751	model: showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14752	translateLabel: true
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14753	extent: (Point 607 25)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14754	)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14755	(CheckBoxSpec
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14756	label: 'Sort and Indent Classes by Inheritance'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14757	name: 'SortAndIndentClassesByInheritance'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14758	model: sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14759	translateLabel: true
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14760	extent: (Point 607 25)
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14761	)
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14762	(CheckBoxSpec
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	14763	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - EXPERIMENTAL)'
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14764	name: 'CheckBox1'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14765	initiallyInvisible: true
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14766	model: webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14767	translateLabel: true
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14768	extent: (Point 607 25)
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14769	)
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14770	(CheckBoxSpec
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14771	label: 'Show Local Navigation History (Separate History per Browser Tab)'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14772	name: 'CheckBox2'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14773	model: showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14774	translateLabel: true
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14775	extent: (Point 607 25)
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14776	)
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14777	(CheckBoxSpec
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14778	label: 'Show Global Navigation History (One Global History Among All Browser Windows)'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14779	name: 'CheckBox3'
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14780	model: showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14781	translateLabel: true
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14782	extent: (Point 607 25)
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14783	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14784	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14785
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14786	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14787	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14788	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14789
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14790	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14791	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14792	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14793
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14794	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14795
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14796	basicReadSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14797	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14798	readAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14799	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14800	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14801	useSearchBarInBrowser
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14802	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14803	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14804	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14805	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14806	webBrowserLikeLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14807	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14808	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14809	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14810
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14811	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14812	from:currentUserPrefs.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14813
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14814	"Modified: / 07-07-2011 / 00:03:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14815	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14816
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14817	basicSaveSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14818	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14819	writeAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14820	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14821	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14822	useSearchBarInBrowser
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14823	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14824	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14825	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14826	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14827	webBrowserLikeLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14828	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14829	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14830	showLocalHistory
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14831	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14832	to:currentUserPrefs.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14833
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14834	"Modified: / 07-07-2011 / 00:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14835	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14836
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14837	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14838
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14839	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14840	showAcceptCancelBarInBrowser isNil ifTrue:[
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14841	showAcceptCancelBarInBrowser := false asValue.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14842	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14843	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14844	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14845	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	14846
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14847	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14848	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14849
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14850	showBookmarkBar isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14851	showBookmarkBar := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14852	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14853
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14854	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14855	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14856
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14857	"Created: / 18-05-2011 / 16:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14858	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14859
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14860	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14861	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14862
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14863	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14864	showEmbeddedTestRunnerInBrowser := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14865	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14866	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14867	^ showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14868
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14869	"Modified: / 11-03-2010 / 10:12:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14870	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14871
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14872	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14873
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14874	showGlobalHistory isNil ifTrue:[
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14875	showGlobalHistory := false asValue.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14876	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14877	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14878	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14879
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14880	"Created: / 07-07-2011 / 00:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14881	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14882
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14883	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14884
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14885	showLocalHistory isNil ifTrue:[
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14886	showLocalHistory := false asValue.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14887	showLocalHistory onChangeSend:#updateModifiedChannel to:self
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14888	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14889	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14890
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14891	"Created: / 07-07-2011 / 00:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14892	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14893
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14894	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14895	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14896
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14897	showMethodTemplate isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14898	showMethodTemplate := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14899	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14900
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14901	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14902	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14903
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14904	"Modified: / 11-03-2010 / 10:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14905	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14906
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14907	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14908
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14909	sortAndIndentClassesByInheritance isNil ifTrue:[
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14910	sortAndIndentClassesByInheritance := false asValue.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14911	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14912	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14913	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14914
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14915	"Created: / 06-07-2011 / 23:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14916	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14917
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14918	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14919	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14920
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14921	useCodeView2InTools isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14922	useCodeView2InTools := ValueHolder new.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14923	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14924
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14925	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14926	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14927
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14928	"Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14929	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14930
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14931	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	14932	"true, if the search-entry fields are shown in the browser itself
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	14933	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	14934
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14935	useSearchBarInBrowser isNil ifTrue:[
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14936	useSearchBarInBrowser := true asValue.
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14937	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14938	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14939	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14940	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14941
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14942	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14943	"true, if the search-entry fields are shown in the browser itself
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14944	(like in firefox). False if a dialog is to be opened."
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14945
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14946	webBrowserLikeLayout isNil ifTrue:[
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14947	webBrowserLikeLayout := false asValue.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14948	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14949	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14950	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14951
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14952	"Created: / 07-06-2011 / 14:34:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14953	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14954
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14955	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14956
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14957	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14958	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14959	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14960
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14961	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'queries'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14962
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14963	hasUnsavedChanges
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14964	(self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14965	hasChangedAspectIn:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14966	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14967	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	14968	useSearchBarInBrowser
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14969	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14970	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14971	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14972	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14973	webBrowserLikeLayout
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14974	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14975	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14976	showLocalHistory
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14977	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14978	asComparedTo:currentUserPrefs) ifTrue:[^ true].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14979	^ false.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	14980
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	14981	"Modified: / 07-07-2011 / 00:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14982	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	14983
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14984	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14985
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14986	helpSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14987	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14988	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14989
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14990	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14991	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14992
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14993	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14994	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14995	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14996
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14997	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14998
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	14999	^ super helpSpec addPairsFrom:#(
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15000
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15001	#showToolTips
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15002	''
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15003
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15004	#toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15005	''
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15006
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15007	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15008	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15009
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15010	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15011
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15012	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15013	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15014	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15015
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15016	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15017	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15018
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15019	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15020	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15021	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15022	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15023	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15024
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15025	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15026
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15027	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15028	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15029	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15030	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15031	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15032	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15033	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15034	GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@C0<^D1LSG2@UER@ HBD"@@@@@@@@@@<OG!!LSD1< EQT HB@!!H @@@@@@@@@OC2DSD1L_
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15035	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 64 32 16 128 96 48 112 48 0 176 112 48 176 96 32 208 160 128 160 96 16 48 32 0 192 128 80 160 80 16 112 80 32 176 112 32 96 48 16 160 112 32 80 80 16 128 64 16 64 64 16 208 208 176 224 224 208 160 160 128 144 144 80 112 112 64 128 128 64 80 80 32 192 192 160 160 160 112 96 96 48 48 48 16 240 240 224 176 176 128 176 176 144 144 144 96 112 112 48 32 32 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@_0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@G??@G??@G??@A?>@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15036	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15037
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15038	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15039
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15040	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15041	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15042	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15043
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15044	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15045	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15047	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15048	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15049	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15050	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15051	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15053	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15054
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15055	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15056	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15057	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15058	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15059	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15060	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15061	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15062	min: (Point 10 10)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15063	bounds: (Rectangle 0 0 561 478)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15064	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15065	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15066	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15067	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15068	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15069	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15070	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15071	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15072	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15073	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15074	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15075	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15076	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15077	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15078	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15079	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15080	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15081	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15082	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15083	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15084	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15085	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15086	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15087	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15088	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15089	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15090	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15091	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15092	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15093	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15094	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15095	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15096	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15097	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15098	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15099	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15100	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15101	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15102	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15103	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15104	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15105	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15106	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15107	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15108	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15109	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15110	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15111	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15112	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15113	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15114	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15115
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15116	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15117	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15118	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15119	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15120	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15121	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15122	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15123	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15124	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15125	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15126	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15127	(CheckBoxSpec
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15128	label: 'Beep Generally Enabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15129	name: 'beepEnabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15130	layout: (LayoutFrame 5 0 5 0 226 0 27 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15131	model: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15132	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15133	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15134	(CheckBoxSpec
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15135	label: 'Beep in Editor'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15136	name: 'CheckBox7'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15137	layout: (LayoutFrame 40 0 30 0 300 0 52 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15138	enableChannel: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15139	model: beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15140	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15141	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15142	(CheckBoxSpec
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15143	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15144	name: 'CheckBox3'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15145	layout: (LayoutFrame 40 0 55 0 300 0 77 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15146	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15147	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15148	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15149	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15150	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15151	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15152	name: 'CheckBox4'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15153	layout: (LayoutFrame 40 0 80 0 300 0 102 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15154	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15155	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15156	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15157	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15158	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15159	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15160	name: 'CheckBox5'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15161	layout: (LayoutFrame 40 0 105 0 300 0 127 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15162	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15163	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15164	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15165	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15166	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15167
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15168	)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15169	extent: (Point 551 164)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15170	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15171	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15172	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15173	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15174	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15175	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15176	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15177	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15178	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15179	(CheckBoxSpec
7941 c8d90d772c3c * empty log message * Claus Gittinger <cg@exept.de> parents: 7925 diff changeset	15180	label: 'Tooltips (FlyBy Help)'
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15181	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15182	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15183	activeHelpKey: showToolTips
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15184	model: flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15185	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15186	)
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15187	(InputFieldSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15188	name: 'EntryField1'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15189	layout: (LayoutFrame -72 1 5 0 -16 1 27 0)
9628 a429f12b2c55 x Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	15190	enableChannel: flyByHelpActive
a429f12b2c55 x Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	15191	model: toolTipAutoHideDelay
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15192	type: timeDurationOrNil
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15193	acceptOnReturn: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15194	acceptOnTab: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15195	acceptOnPointerLeave: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15196	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15197	(LabelSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15198	label: 'Autohide after:'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15199	name: 'Label1'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15200	layout: (LayoutFrame -260 1 6 0 -76 1 28 0)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15201	activeHelpKey: toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15202	translateLabel: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15203	adjust: right
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15204	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15205	(LabelSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15206	label: '(s)'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15207	name: 'Label2'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15208	layout: (LayoutFrame -13 1 6 0 7 1 28 0)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15209	translateLabel: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15210	adjust: left
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15211	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15212	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15213
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15214	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15215	extent: (Point 551 62)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15216	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15217	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15219	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15220	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15221	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15223	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15224	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15225	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15227	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15228
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15229	aspects
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15230	^ #(
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15231	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15232	beepInEditor
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15233	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15234	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15235	beepForErrorDialog
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15236	flyByHelpActive
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15237	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15238	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15239
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15240	"Created: / 10-11-2010 / 12:07:42 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15241	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15242
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15243	basicReadSettings
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15244	self readAspects:(self aspects) from:currentUserPrefs.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15245
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15246	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15247	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15248	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15249	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	15250
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15251	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15252	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15254	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15255
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15256	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15257	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15258	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15259	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15260
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15261	self writeAspects:(self aspects) to:currentUserPrefs.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15262
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15263	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15264	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15266	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15267
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15268	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15269	beepEnabled isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15270	beepEnabled := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15271	beepEnabled onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15272	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15273	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15274	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15275
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15276	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15277	beepForErrorDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15278	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15279	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15280	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15281	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15282	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15283
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15284	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15285	beepForInfoDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15286	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15287	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15288	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15289	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15290	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15291
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15292	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15293	beepForWarningDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15294	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15295	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15296	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15297	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15298	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	15299
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15300	beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15301	beepInEditor isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15302	beepInEditor := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15303	beepInEditor onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15304	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15305	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15306	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15307
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15308	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15309
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15310	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15311	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15312	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15313	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15314	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15315	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15316
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15317	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15319	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15320	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15321	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15322	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15323	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15324	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15325
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15326	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15328	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15329	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15330	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15331	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15332	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15333	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15334
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15335	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15336	flyByHelp isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15337	flyByHelp := currentUserPrefs flyByHelpActive asValue.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15338	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15339	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15340	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15341	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15343	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15345	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15346	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15347	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15348	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15349	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15350	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15351
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15352	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15353	toolTipAutoHideDelay isNil ifTrue:[
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15354	toolTipAutoHideDelay := 10 seconds asValue.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15355	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15356	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15357	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15358
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15359	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15360	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15361
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15362	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15363
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15364	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15365	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15366	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15367	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15368	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15369	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15370
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15371	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15372
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15373	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15374	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15375	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15376	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15377	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15378	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15380	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15382	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15383	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15384	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15385	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15386	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15387	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15388
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15389	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15390
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15391	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15392	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15393	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15394
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15395	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15396
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15397	hasUnsavedChanges
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15398	(self hasChangedAspectIn:(self aspects) asComparedTo:currentUserPrefs) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15399
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15400	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15401	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15402	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15403	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15404	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	15405
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15406	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15407	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15408
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15409	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15410
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15411	flyByHelpSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15412	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15413	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15414
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15415	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15416	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15417
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15418	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15419	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15420	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15421
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15422	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15423
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15424	^ super flyByHelpSpec addPairsFrom:#(
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15425
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15426	#autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15427	'Autoraise the Transcript window when messages are added.'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15428
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15429	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15430	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15431
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15432	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15433	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15434
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15435	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15436	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15437
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15438	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15439	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15440
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15441	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15442	'Use the builtIn HTML-Viewer, as opposed to the systems webBrowser (firefox, internet-explorer, etc.)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15443	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15444	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15445
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15446	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15447
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15448	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15449	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15450	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15451
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15452	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15453	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15454
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15455	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15456	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15457	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15458	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15459	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15460
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15461	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15462
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15463	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15464	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15465	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15466	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15467	IC$JSPP@@@J(@BH@4MCQADP@@ AR"HACQAFQD@B@@H""H"HEG$Q@J(@@@H"H("HP9$@ @@@@@"H""HI@B@@@@@@@@H""H@J(@@@@@@@@@H" @ @@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15468	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b') ; colorMapFromArray:#[0 0 0 160 160 160 240 240 240 224 224 224 48 48 48 128 128 128 208 208 208 112 112 112 192 192 192 96 96 96 176 176 176]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15469	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15470
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15471	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15473	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15474	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15475	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15477	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15478	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15480	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15481	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15482	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15483	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15484	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15486	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15488	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15489	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15490	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15491	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15492	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15493	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15494	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15495	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15496	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15497	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15498	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15499	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15500	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15501	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15502	name: 'VerticalPanel2'
9272 da1181809311 * empty log message * Claus Gittinger <cg@exept.de> parents: 9233 diff changeset	15503	layout: (LayoutFrame 0 0.0 0 0 0 1.0 437 0)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15504	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15505	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15506	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15507	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15508	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15509	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15510	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15511	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15512	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15513	name: 'NewSystemBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15514	activeHelpKey: useNewSystemBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15515	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15516	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15517	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15518	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15519	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15520	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15521	name: 'NewFileBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15522	activeHelpKey: useNewFileBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15523	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15524	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15525	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15526	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15527	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15528	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15529	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15530	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15531	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15532	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15533	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15534	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15535	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15536	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15537	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15538	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15539	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15540	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15541	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15542	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15543	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15544	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15545	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15546	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15547	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15548	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15549	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15550	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15551	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15552	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15553	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15554	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15555	(CheckBoxSpec
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15556	label: 'Use the New TestRunner2'
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15557	name: 'CheckBox3'
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15558	model: useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15559	translateLabel: true
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15560	extent: (Point 607 25)
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15561	)
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15562	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15563	label: 'Use the New Changes Browser (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15564	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15565	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15566	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15567	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15568	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15569	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15570	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15571	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15572	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15573	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15574	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15575	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15576	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15577	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15578	name: 'UseSmalltalkDocumentViewer'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15579	activeHelpKey: useSmalltalkDocumentView
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15580	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15581	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15582	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15583	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15584	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15585	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15586	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15587	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15588	(CheckBoxSpec
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15589	label: 'Show "Tip Of The Day" at Startup'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15590	name: 'CheckBox1'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15591	model: showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15592	translateLabel: true
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15593	extent: (Point 607 25)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15594	)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15595	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15596	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15597	name: 'Clock'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15598	activeHelpKey: showClockInLauncher
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15599	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15600	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15601	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15602	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15603	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15604	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15605	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15606	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15607	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15608	name: 'HorizontalPanel1'
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	15609	horizontalLayout: left
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15610	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15611	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15612	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15613	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15614	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15615	collection: (
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15616	(ViewSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15617	name: 'Box4'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15618	extent: (Point 20 10)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15619	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15620	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15621	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15622	name: 'Label1'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15623	activeHelpKey: transcriptBufferSize
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15624	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	15625	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15626	adjust: right
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15627	useDefaultExtent: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15628	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15629	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15630	name: 'Transcripts Buffer Size'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15631	activeHelpKey: transcriptBufferSize
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15632	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15633	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15634	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15635	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15636	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15637	acceptOnLostFocus: true
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	15638	numChars: 8
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15639	acceptOnPointerLeave: true
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15640	extent: (Point 78 22)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15641	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15642	(LabelSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15643	label: '(Lines)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15644	name: 'Label2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15645	activeHelpKey: transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15646	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15647	resizeForLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15648	adjust: right
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15649	useDefaultExtent: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15650	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15651	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15652
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15653	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	15654	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15655	)
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15656	(CheckBoxSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15657	label: 'Autoraise Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15658	name: 'CheckBox2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15659	activeHelpKey: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15660	model: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15661	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15662	extent: (Point 607 24)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15663	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15664	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15666	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15667	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15668	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15670	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15671	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15672	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15674	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15675
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15676	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15677	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15678	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15679	#(
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15680	useTestRunner2
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15681	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15682	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15683	useNewSystemBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15684	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15685	useNewFileBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15686	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15687	useNewSettingsApplication
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15688	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15689	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15690	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15691	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15692	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15693	from:currentUserPrefs.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15694
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15695	Transcript current isExternalStream ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15696	self transcriptBufferSize value:Transcript current lineLimit.
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15697	self autoRaiseTranscript value:Transcript current autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15698	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15699
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15700	"Modified: / 06-07-2011 / 13:41:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15701	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15702
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15703	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15704	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15705
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15706	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15707
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15708	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15709
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15710	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15711	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15712	#(
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15713	useTestRunner2
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15714	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15715	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15716	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15717	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15718	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15719	useSmalltalkDocumentViewer
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15720	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15721	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15722	to:currentUserPrefs.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15723
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15724	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15725	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15726	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15727
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15728	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15729	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15730	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15731	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15732	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	15733	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15734	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15735	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15736	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	15737
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15738	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15739	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15740	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15741	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15742	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15743	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15744	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15745	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15746	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15747	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15748	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15749
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15750	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15751	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15752	transcript lineLimit:self transcriptBufferSize value.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15753	transcript autoRaise:self autoRaiseTranscript value.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15754	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15755	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15756
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15757	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15758	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15759	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15760	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15761	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15762	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15763	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15764	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15765	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15766	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15767	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15768	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15769
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15770	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15771	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15772	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15773	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15774	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15775
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15776	"Modified: / 06-07-2011 / 13:41:07 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15777	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15779	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15780
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15781	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15782	autoRaiseTranscript isNil ifTrue:[
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15783	autoRaiseTranscript := false asValue.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15784	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15785	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15786	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15787
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15788	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15789	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15790
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15791	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15792	showClockInLauncher isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15793	showClockInLauncher := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15794	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15795	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15796	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15797
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15798	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15799	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15800
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15801	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15802	showTipOfTheDayAtStartup isNil ifTrue:[
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15803	showTipOfTheDayAtStartup := false asValue.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15804	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15805	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15806	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15807
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15808	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15809	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15810
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15811	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15812	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15813	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15814	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15815	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15816	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15817	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15818
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15819	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15820	useNewChangesBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15821	useNewChangesBrowser := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15822	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15823	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15824	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15825
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15826	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15827	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15828
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15829	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15830	useNewFileBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15831	useNewFileBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15832	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15833	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15834	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15835
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15836	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15837	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15838
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15839	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15840	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15841	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15842	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15843	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15844	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15845	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15846
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15847	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15848	useNewInspector isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15849	useNewInspector := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15850	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15851	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15852	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15853
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15854	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15855	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15856
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15857	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15858	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15859	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15860	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15861	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15862	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15863	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15864
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15865	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15866	useNewSystemBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15867	useNewSystemBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15868	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15869	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15870	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15871
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15872	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15873	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15875	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15876	useNewVersionDiffBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15877	useNewVersionDiffBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15878	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15879	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15880	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15881
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15882	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15883	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15884
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15885	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15886	useProcessMonitorV2 isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15887	useProcessMonitorV2 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15888	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15889	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15890	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15891
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15892	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15893	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15894
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15895	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15896	useSmalltalkDocumentViewer isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15897	useSmalltalkDocumentViewer := nil asValue.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15898	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15899	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15900	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15901
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	15902	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15903	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15904
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15905	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15906	useTestRunner2 isNil ifTrue:[
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15907	useTestRunner2 := true asValue.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15908	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15909	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15910	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15911
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15912	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15913	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15914	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15915
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15916	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15917
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15918	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15919	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15920	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15921
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15922	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15923
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15924	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15925	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15926	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15927	#(
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15928	useTestRunner2
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15929	useNewInspector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15930	useNewChangesBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15931	useNewSystemBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15932	useNewVersionDiffBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15933	useNewFileBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15934	useNewFileDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15935	useNewSettingsApplication
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15936	useProcessMonitorV2
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15937	useSmalltalkDocumentViewer
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15938	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	15939	showTipOfTheDayAtStartup
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15940	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15941	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	15942
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15943	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15944	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	15945	(self autoRaiseTranscript value ~= Transcript current autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15946	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	15947	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15948
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	15949	"Modified: / 06-07-2011 / 13:52:23 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15950	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15951
4226 44e2f83cc526 initial checkin penk parents: diff changeset	15952	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	15953
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	15954	version_CVS
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	15955	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.395 2011-07-08 09:32:37 vrany Exp $'
a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	15956	! !

author	vrany
	Fri, 08 Jul 2011 11:32:37 +0200
changeset 10279	a6c7441cb4ed
parent 10241	0fc51cf9b272
child 10294	123b913079b4
permissions	-rw-r--r--