hg/stx-libtool: AbstractSettingsApplication.st@5a1787bbf85e (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
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	274	cvsRootPrototypeList addPerModuleRoot removeEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	275	perModuleRootModule acceptChannel removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	276	perModuleRoot cvsRootHolder selectedPerModuleRoot
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	277	cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	278	cvsLoginInModuleEnabled cvsLoginEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	279	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	280	managerIsStoreSourceCodeManager storeLoginEnabled
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	281	storeHostPrototypeList storeHostnameHolder storeUsernameHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	282	storePasswordHolder perStoreModuleHostnameHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	283	perStoreModuleUsernameHolder perStoreModulePasswordHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	284	perStoreModuleRoot perStoreModuleRootModule
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	285	selectedPerStoreModuleRoot storeConnectEnabled
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	286	storeConnectInModuleEnabled perModuleFieldsEnableHolder
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	287	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	288	selectedPerSmallTeamModuleRoot
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	289	perSmallTeamModuleFieldsEnableHolder perSmallTeamModuleRoot
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	290	perSmallTeamModuleRootModule perSmallTeamModuleHostnameHolder
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	291	smallTeamHostnameHolder verboseSourceCodeAccess keepMethodSource'
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	292	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	293	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	294	LastStorePassword'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	295	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	296	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	297	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	298
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	299	AbstractSettingsApplication subclass:#StyleSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	300	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	301	styleDirectoryContents infoLabelHolder noticeLabelHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	302	previewVisibleHolder'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	303	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	304	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	305	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	306	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	307
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	308	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	309	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	310	fullSelectorCheck syntaxColoring oldUserPreferences
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	311	syntaxFontSelector syntaxFonts syntaxElementList
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	312	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	313	emphasisDictionary resetListDictionary'
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	314	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	315	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	316	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	317	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	318
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	319	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	320	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser'
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	321	classVariableNames:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	322	poolDictionaries:''
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	323	privateIn:AbstractSettingsApplication
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	324	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	325
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	326	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	327	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	328	changeFileName beepForInfoDialog beepForWarningDialog
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	329	beepForErrorDialog flyByHelp beepEnabled beepInEditor
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	330	toolTipAutoHideDelay'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	331	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	332	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	333	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	334	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	336	AbstractSettingsApplication subclass:#ToolsSettingsAppl
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	337	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	338	showClockInLauncher useNewChangesBrowser useNewFileBrowser
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	339	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	340	useProcessMonitorV2 useSmalltalkDocumentViewer
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	341	showTipOfTheDayAtStartup autoRaiseTranscript'
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	342	classVariableNames:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	343	poolDictionaries:''
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	344	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	345	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	346
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	347	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	348
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	349	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	350	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	351	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	352	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	353
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	354	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	355	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	356	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	357	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	358	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	359	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	360	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	361	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	362
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	363	documentation
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	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	366	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	367	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	368	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	369	(as an example, see NewLauncher class>>defaultSettingsApplicationList)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	370
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	371	typical use:
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	\|settingsList settingsApp\|
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 := NewLauncher settingsList.
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	settingsApp := SettingsDialog new.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	378	'settingsApp requestor:requestingApplication'.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	379	settingsApp installSettingsEntries:settingsList.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	380	settingsApp allButOpen.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	381	settingsApp window label:('ST/X Settings').
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	382	settingsApp openWindow.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	383
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	384	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	385	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	386
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	387	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	388
68504047f229 * empty log message * penk parents: 4286 diff changeset	389	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	390
68504047f229 * empty log message * penk parents: 4286 diff changeset	391	^ AbstractLauncherApplication classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	392	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	393
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	394	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	395	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	396	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	397
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	398	^ AbstractLauncherApplication resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	399	!
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	400
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	401	subEntryRawSettingsList
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
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	404	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	405	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	406
5283 9264c15059e7 category change penk parents: 5280 diff changeset	407	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	408
9264c15059e7 category change penk parents: 5280 diff changeset	409	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	410	self subclassResponsibility
9264c15059e7 category change penk parents: 5280 diff changeset	411	! !
9264c15059e7 category change penk parents: 5280 diff changeset	412
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	413	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	414
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	415	isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	416	"return true, if this application can be started via #open.
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	417	(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	418
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	419	(self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	420	^ super isVisualStartable
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	421	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	422
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	423	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	424
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	425	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	426	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	427
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	428	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	429	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	430
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	431	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	432	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	433	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	434
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	435	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	436	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	437
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	438	"Modified: / 12-05-2010 / 18:44:09 / cg"
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	439	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	440
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	441	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	442
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	443	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	444	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	445	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	446	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	447	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	448
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	449	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	450	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	451
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	452	self modifiedChannel value:false.
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
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	455	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	456	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	457
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	458	DebugView newDebugger.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	459	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	460	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	461	app := transcript topView application.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	462	(app respondsTo:#reopenLauncher) ifTrue:[
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	463	app reopenLauncher.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	464	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	465	].
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	466	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	467
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	468	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	469	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	470	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	471
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	472	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	473	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	474
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	475	self hasUnsavedChanges ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	476	askForChangeOnRelease ifTrue:[
8036 0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	477	result := self confirmWithCancel:(self resources
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	478	string:'Apply changes made in %1 ?'
0c53d7d1d2cf * empty log message * Claus Gittinger <cg@exept.de> parents: 8031 diff changeset	479	with:(resources string:settingsString) allBold).
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	480	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	481	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	482	].
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	483
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	484	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	485	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	486	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	487	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	488	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	489	] ifFalse:[
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	490	"/ reload current settings to show the right thing when re-entering.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	491	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	492	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	493	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	494	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	495
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	496	"Modified: / 20-09-2006 / 23:56:25 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	497	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	498
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	499	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	500	self basicSaveSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	501
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	502	self modifiedChannel value:false.
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	505	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	506	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	507	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	508	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	509	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	510	!
c72e35116b13 instable state penk parents: 5040 diff changeset	511
c72e35116b13 instable state penk parents: 5040 diff changeset	512	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	513	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	514	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	515
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	516	!AbstractSettingsApplication methodsFor:'aspects'!
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	modifiedChannel
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 isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	521	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	522	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	523	^ modifiedChannel
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
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	526	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	527
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	528	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	529	"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	530	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	531	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	532	Using this, and a list of aspect selectors replaces code like:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	533	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	534	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	535	...
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	536	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	537	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	538	Prerequisite:
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	539	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	540	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	541
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	542	aListOfAspects do:[:eachAspectSymbol \|
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	543	(self perform:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[^ true].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	544	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	545	^ false
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	546	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	547
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	548	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	549	"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	550	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	551	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	552	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	553	self aspect1 value:(someone aspect1).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	554	self aspect2 value:(someone aspect2).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	555	...
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	556	self aspectN value:(someone aspectN).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	557	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	558	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	559	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	560
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	561	aListOfAspects do:[:eachAspectSymbol \|
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	562	(self perform:eachAspectSymbol)
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	563	value:(anAspectProvider perform:eachAspectSymbol)
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	564	withoutNotifying:self
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	565	].
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	566
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	567	"Modified: / 08-02-2011 / 09:11:03 / cg"
6780 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	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	571	"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	572	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	573	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	574	Using this, and a list of aspect selectors replaces code like:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	575	someone aspect1:(self aspect1 value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	576	someone aspect2:(self aspect2 value).
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	someone aspectN:(self aspectN value).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	579	Prerequisite:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	580	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	581	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	582
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	583	aListOfAspects do:[:eachAspectSymbol \|
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	584	anAspectProvider perform:(eachAspectSymbol,':')asSymbol with:(self perform:eachAspectSymbol) value
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	585	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	586
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	587	"Modified: / 24-08-2010 / 16:52:42 / sr"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	588	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	589
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	590	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	591
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	592	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	593	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	594	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	595	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	596	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	597	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	598
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	599	"Modified: / 12-05-2010 / 17:27:44 / cg"
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	600	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	601
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	602	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	603	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	604	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	605
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	606	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	607
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	608	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	609	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	610	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	611
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	612	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	613
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	614	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	615	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	616	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	617
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	618	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	619	self subclassResponsibility
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	620	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	621
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	622	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	623
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	624	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	625	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	626
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	627	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	628	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	629
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	630	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	631	filename isNil ifTrue:[
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	632	self warn:(self resources string:'Sorry - no Help available here.').
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	633	^ self.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	634	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	635	self withWaitCursorDo:[
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	636	HTMLDocumentView openFullOnHelpFile:filename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	637	].
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
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	640	helpFilename
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	641	"subclasses must return the relative name of a helpFile
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	642	in the doc/online/<language>/help directory.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	643	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	644
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	645	Smalltalk isStandAloneApp ifFalse:[
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	646	self subclassResponsibility.
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	647	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	648	^ nil.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	649	! !
44e2f83cc526 initial checkin penk parents: diff changeset	650
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	651	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	652
6358 582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	653	hasUnsavedChanges
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	654
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	655	^ self subclassResponsibility
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	656	!
582d839d5b93 * empty log message * Claus Gittinger <cg@exept.de> parents: 6346 diff changeset	657
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	658	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	659	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	660
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	661	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	662	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	663
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	664	itemPathName
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	665	^ settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	666	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	667
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	668	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	669
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	670	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	671	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	672
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	673	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	674
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	675	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	676	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	677
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	678	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	679
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	680	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	681	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	682	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	683
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	684	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	685	the UIPainter may not be able to read the specification."
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	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	688	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	689	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	690	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	691	"
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	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	694
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	#(FullSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	697	name: windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	698	window:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	699	(WindowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	700	label: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	701	name: 'Build Settings'
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	702	min: (Point 10 10)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	703	bounds: (Rectangle 0 0 659 551)
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	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	706	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	707	collection: (
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	708	(VerticalPanelViewSpec
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	709	name: 'VerticalPanel3'
8947 d70205e7b1cc * empty log message * Claus Gittinger <cg@exept.de> parents: 8922 diff changeset	710	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	711	horizontalLayout: fit
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	712	verticalLayout: top
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	713	horizontalSpace: 3
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	714	verticalSpace: 4
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	715	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	716	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	717	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	718	(FramedBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	719	label: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	720	name: 'FramedBox1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	721	labelPosition: topLeft
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	722	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	723	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	724	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	725	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	726	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	727	name: 'Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	728	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	729	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	730	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	731	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	732	(LabelSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	733	label: 'Build Directory:'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	734	name: 'BuildDirDirLabel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	735	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	736	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	737	adjust: right
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	738	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	739	(FilenameInputFieldSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	740	name: 'FilenameEntryField1'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	741	layout: (LayoutFrame 221 0 0 0 0 1 22 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	742	enableChannel: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	743	model: buildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	744	acceptOnReturn: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	745	acceptOnTab: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	746	acceptOnLostFocus: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	747	acceptOnPointerLeave: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	748	viewClassName: FilenameWidgetWithHistory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	749	postBuildCallback: postBuildDirectoryField:
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	750	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	751	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	752
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	753	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	754	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	755	(HorizontalPanelViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	756	name: 'ActionsHorizontalPanel'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	757	layout: (LayoutFrame 62 0.25 27 0 0 1 56 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	758	horizontalLayout: fitSpace
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	759	verticalLayout: center
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	760	horizontalSpace: 3
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	761	verticalSpace: 3
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	762	component:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	763	(SpecCollection
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	764	collection: (
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	765	(ActionButtonSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	766	label: 'Cleanup Build Directory'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	767	name: 'CleanupBuildDirectoryButton'
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	768	translateLabel: true
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	769	tabable: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	770	model: cleanupBuildDirectory
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	771	extent: (Point 401 22)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	772	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	773	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	774
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	775	)
8296 34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	776	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	777	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	778
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	779	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	780	extent: (Point 659 91)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	781	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	782	(ViewSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	783	name: 'LocalBuild'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	784	component:
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	785	(SpecCollection
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	786	collection: (
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	787	(CheckBoxSpec
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	788	label: 'Local Build (Do not use Repository)'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	789	name: 'CheckBox4'
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	790	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	791	enableChannel: hasSourceCodeManager
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	792	model: localBuild
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	793	translateLabel: true
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	794	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	795	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	796
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	797	)
34bfd020dcb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 8279 diff changeset	798	extent: (Point 659 25)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	799	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	800	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	801
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	802	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	803	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	804	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	805
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	806	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	807	)
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	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
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	basicReadSettings
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	813	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	814	readAspects:
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	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	817	localBuild
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	from:currentUserPrefs.
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
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	822	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	823	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	824
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	825	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	826	buildDir notEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	827	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	828	buildDir isDirectory ifFalse:[
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	829	(Dialog confirm:(resources
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	830	stringWithCRs:'Build directory %1 does not exist.\\Create?'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	831	with:buildDir pathName allBold))
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	832	ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	833	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	834	]
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	835	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	836	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	837
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	838	self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	839	writeAspects:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	840	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	841	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	842	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	843	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	844	to:currentUserPrefs.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	845	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	846
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	847	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	848	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	849
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	850	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	851	buildDir isEmptyOrNil ifTrue:[
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	852	^ self.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	853	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	854	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	855	(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	856	buildDir recursiveRemove.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	857	buildDir makeDirectory.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	858	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	859	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	860
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	861	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	862
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	863	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	864	buildDirectory isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	865	buildDirectory := ValueHolder new.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	866	buildDirectory onChangeSend:#updateModifiedChannel to:self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	867	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	868	^ buildDirectory.
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
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	871	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	872	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	873	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	874
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	875	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	876	localBuild isNil ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	877	localBuild := UserPreferences current localBuild asValue.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	878	localBuild onChangeSend:#updateModifiedChannel to:self
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	^ localBuild.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	881	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	882
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	883	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	884
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	885	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	886	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	887	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	888
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	889	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	890
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	891	postBuildDirectoryField:aField
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	892	aField historyList value:(Array
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	893	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	894	with:(Filename currentDirectory construct:'stx_build') pathName)
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	895	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	896
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	897	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	898
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	899	hasUnsavedChanges
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	900	(self
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	901	hasChangedAspectIn:
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	902	#(
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	903	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	904	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	905	)
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	906	asComparedTo:currentUserPrefs) ifTrue:[^ true].
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	^ false
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	909	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	910
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	911	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	921	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	922
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	923	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	924
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	925	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	926	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	927
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	928	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	929
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	930	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	931	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	932
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	933	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	934	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	935	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	936
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	937	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	938	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	939
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	940	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	941	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	942	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	943	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	944	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	945
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	946	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	947
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	948	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	949	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	950	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	951	@@@@@@@@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	952	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	953	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	954
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	955	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	956	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	957	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	958
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	959	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	960	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	961
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	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	964	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	965	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	966	"
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	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	969
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	970	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	971	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	972	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	973	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	974	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	975	@@@@@@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	976	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	977	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	978	@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	979	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	980	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	981
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	982	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	983	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	984	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	985
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	986	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	987	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	988
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	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	991	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	992	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	993	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	994
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	995	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	996
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	997	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	998	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	999	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	1000	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	1001	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	1002	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	1003	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	1004	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	1005	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	1006	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]
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1007	!
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1008
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1009	defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1010	"This resource specification was automatically generated
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1011	by the ImageEditor of ST/X."
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1012
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1013	"Do not manually edit this!! If it is corrupted,
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1014	the ImageEditor may not be able to read the specification."
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1015
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1016	"
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1017	self defaultIcon4 inspect
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1018	ImageEditor openOnClass:self andSelector:#defaultIcon4
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1019	Icon flushCachedIcons
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1020	"
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1021
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1022	<resource: #image>
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1023
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1024	^Icon
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1025	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon4'
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1026	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1027	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1028	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1029	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1030	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1031	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
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1032	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PD@0PD@0PD@0PC@0PD@0PD@0PCA@PDA@PCA@LD@0PD@0PD@PPCA@LD@0PCA@PDA@PCA@LD@0PD@0PD
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1033	@0PCA@LD@0PCA@PDA@PD@0PD@0PD@0PD@0PD@0PD@0PCA@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@D%$(J$(J$(D$$(') ; yourself); yourself]
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1034	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1035
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1036	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1037	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1038	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1039
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1040	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1041	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1042
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1043	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1044	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1045	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1046	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1047	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1048
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1049	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1050
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1051	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1052	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon5'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1053	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	1054	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	1055	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	1056	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	1057	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	1058	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	1059	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	1060	@@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	1061	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1062
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1063	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1065	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1066	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1067	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1068
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1069	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1070	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1071
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1072	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1073	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1074	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1075	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1076	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1078	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1079
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1080	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1081	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1082	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1083	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1084	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1085	label: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1086	name: 'Byte Code Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1087	min: (Point 10 10)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1088	bounds: (Rectangle 0 0 665 706)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1089	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1090	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1091	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1092	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1093	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1094	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1095	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	1096	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1097	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1098	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1099	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1100	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1101	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1102	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1103	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1104	label: 'Just in Time Compilation to Machine Code'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1105	name: 'JustInTimeCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1106	model: justInTimeCompilation
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1107	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1108	extent: (Point 665 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1109	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1110	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1111	name: 'Separator3'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1112	extent: (Point 665 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1113	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1114	(ViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1115	name: 'Box1'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1116	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1117	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1118	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1119	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1120	name: 'VerticalPanel1_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1121	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	1122	horizontalLayout: fit
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1123	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1124	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1125	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1126	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1127	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1128	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1129	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1130	label: 'Allow Underscore in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1131	name: 'AllowUnderscoreInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1132	model: allowUnderscoreInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1133	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1134	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1135	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1136	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1137	label: 'Allow Dollar in Identifiers'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1138	name: 'AllowDollarInIdentifiers'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1139	model: allowDollarInIdentifier
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1140	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1141	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1142	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1143	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1144	label: 'Allow VW3 QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1145	name: 'AllowVW3QualifiedNames'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1146	model: allowQualifiedNames
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1147	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1148	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1149	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1150	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1151	label: 'Allow OldStyle Assignment (_)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1152	name: 'AllowOldStyleAssignment'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1153	model: allowOldStyleAssignment
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1154	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1155	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1156	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1157	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1158	label: 'Allow Reserved Words as Selector (self)'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1159	name: 'AllowReservedWordsAsSelector'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1160	model: allowReservedWordsAsSelectors
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1161	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1162	extent: (Point 313 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1163	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1164	(CheckBoxSpec
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1165	label: 'Allow Extended Binary Selectors'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1166	name: 'CheckBox4'
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1167	model: allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1168	translateLabel: true
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1169	extent: (Point 313 22)
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1170	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1171	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1172
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1173	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1174	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1175	(VerticalPanelViewSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1176	name: 'VerticalPanel1_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1177	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	1178	horizontalLayout: left
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1179	verticalLayout: top
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1180	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1181	verticalSpace: 0
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1182	component:
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1183	(SpecCollection
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1184	collection: (
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1185	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1186	label: 'Allow Squeak Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1187	name: 'AllowSqueakExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1188	model: allowSqueakExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1189	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1190	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1191	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1192	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1193	label: 'Allow Dolphin Extensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1194	name: 'AllowDolphinExtensions'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1195	model: allowDolphinExtensions
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1196	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1197	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1198	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1199	(CheckBoxSpec
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1200	label: 'Allow VisualAge ES-Symbols'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1201	name: 'AllowVisualAgeESSymbolLiterals'
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1202	model: allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1203	translateLabel: true
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1204	extent: (Point 665 22)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1205	)
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1206	(CheckBoxSpec
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1207	label: 'Allow FixedPoint-Number Literals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1208	name: 'AllowFixedPointLiterals'
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1209	model: allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1210	translateLabel: true
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1211	extent: (Point 665 22)
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1212	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1213	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1214	label: 'Allow Empty Statements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1215	name: 'AllowEmptyStatements'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1216	model: allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1217	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1218	extent: (Point 665 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1219	)
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1220	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1221
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1222	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1223	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1224	)
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1225
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1226	)
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1227	extent: (Point 665 137)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1228	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1229	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1230	name: 'Separator4'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1231	extent: (Point 665 1)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1232	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1233	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1234	label: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1235	name: 'Warnings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1236	model: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1237	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1238	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1239	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1240	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1241	name: 'Box2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1242	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1243	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1244	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1245	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1246	name: 'VerticalPanel2_1'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1247	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	1248	horizontalLayout: fit
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1249	verticalLayout: top
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1250	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1251	verticalSpace: 0
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1252	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1253	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1254	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1255	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1256	label: 'ST/X Extensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1257	name: 'STXExtensions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1258	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1259	model: warnSTXSpecials
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1260	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1261	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1262	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1263	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1264	label: 'Underscores in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1265	name: 'UnderscoresInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1266	enableChannel: enableUnderscore
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1267	model: warnUnderscoreInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1268	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1269	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1270	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1271	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1272	label: 'Dollars in Identifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1273	name: 'DollarsInIdentifiers'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1274	enableChannel: enableDollar
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1275	model: warnDollarInIdentifier
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1276	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1277	extent: (Point 313 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1278	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1279	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1280	label: 'OldStyle Assignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1281	name: 'OldStyleAssignment'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1282	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1283	model: warnOldStyleAssignment
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1284	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1285	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1286	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1287	(CheckBoxSpec
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1288	label: 'Possible Incompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1289	name: 'PossibleIncompatibilities'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1290	enableChannel: warnings
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1291	model: warnPossibleIncompatibilities
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1292	translateLabel: true
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1293	extent: (Point 313 22)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1294	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1295	(CheckBoxSpec
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1296	label: 'Possible STC Compilation Problems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1297	name: 'PossibleSTCCompilationProblems'
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1298	enableChannel: warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1299	model: warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1300	translateLabel: true
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1301	extent: (Point 313 22)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1302	)
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1303	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1304	label: 'Reference to Private Class'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1305	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1306	enableChannel: warnings
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1307	model: warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1308	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1309	extent: (Point 313 22)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1310	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1311	(CheckBoxSpec
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1312	label: 'Possibly Unimplemented Selectors'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1313	name: 'CheckBox3'
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1314	enableChannel: warnings
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1315	model: warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1316	translateLabel: true
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1317	extent: (Point 313 22)
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1318	)
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1319	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1320
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1321	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1322	)
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1323	(VerticalPanelViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1324	name: 'VerticalPanel2_2'
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1325	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	1326	horizontalLayout: left
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1327	verticalLayout: top
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1328	horizontalSpace: 3
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1329	verticalSpace: 0
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1330	component:
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1331	(SpecCollection
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1332	collection: (
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1333	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1334	label: 'Unused Method Variables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1335	name: 'UnusedMethodVariables'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1336	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1337	model: warnUnusedVars
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1338	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1339	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1340	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1341	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1342	label: 'Common Mistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1343	name: 'CommonMistakes'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1344	enableChannel: warnings
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1345	model: warnCommonMistakes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1346	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1347	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1348	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1349	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1350	label: 'Bad (non-English) Variable Names'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1351	name: 'BadVariableNames'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1352	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1353	model: warnAboutWrongVariableNames
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1354	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1355	extent: (Point 600 22)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1356	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1357	(CheckBoxSpec
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1358	label: 'Bad (Non-Lowercase) Local Variable Names'
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1359	name: 'BadLocalVariableNames'
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1360	enableChannel: warnings
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1361	model: warnAboutNonLowercaseLocalVariableNames
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1362	translateLabel: true
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1363	extent: (Point 600 22)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1364	)
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1365	(CheckBoxSpec
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1366	label: 'Bad (Short) Local Variable Names'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1367	name: 'CheckBox2'
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1368	enableChannel: warnings
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1369	model: warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1370	translateLabel: true
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1371	extent: (Point 600 22)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1372	)
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1373	(CheckBoxSpec
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1374	label: 'Bad (empty) Comments'
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1375	name: 'BadComments'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1376	enableChannel: warnings
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1377	model: warnAboutBadComments
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1378	translateLabel: true
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1379	extent: (Point 600 22)
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1380	)
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1381	(CheckBoxSpec
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1382	label: 'Method-Comment Missing '
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1383	name: 'CheckBox5'
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1384	enableChannel: warnings
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1385	model: warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1386	translateLabel: true
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1387	extent: (Point 600 22)
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1388	)
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1389	(CheckBoxSpec
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1390	label: 'Inconsistent Return Values'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1391	name: 'InconsistentReturnValues'
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1392	enableChannel: warnings
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1393	model: warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1394	translateLabel: true
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1395	extent: (Point 600 22)
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1396	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1397	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1398
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1399	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1400	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1401	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1402
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1403	)
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1404	extent: (Point 665 181)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1405	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1406	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1407	name: 'Separator5'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1408	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1409	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1410	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1411	label: 'Literal Arrays are Immutable'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1412	name: 'LiteralArraysAreImmutable'
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1413	model: arraysAreImmutable
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1414	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1415	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1416	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1417	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1418	label: 'Full Debug Info'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1419	name: 'FullDebugInfo'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1420	model: fullDebugSupport
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1421	translateLabel: true
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1422	extent: (Point 665 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1423	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1424	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1425	name: 'Separator6'
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1426	extent: (Point 665 2)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1427	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1428	(ViewSpec
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1429	name: 'Box3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1430	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1431	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1432	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1433	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1434	label: 'Constant Folding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1435	name: 'ConstantFoldingLabel'
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1436	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	1437	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1438	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1439	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1440	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1441	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1442	name: 'ConstantFolding'
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1443	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	1444	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1445	model: constantFoldingSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1446	menu: constantFolding
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	1447	useIndex: true
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1448	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1449	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1450
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1451	)
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1452	extent: (Point 665 22)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	1453	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1454	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1455
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1456	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1464	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1466	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1467	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1468	readAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1469	from:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1470
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1471	self constantFoldingSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1472	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	1473
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1474	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1475	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1476	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1477	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1478	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1479
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1480	self supportsJustInTimeCompilation ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1481	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1482	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1483	self justInTimeCompilation value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1484	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1485
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1486	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1487
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1488	"Modified: / 17-07-2010 / 14:48:38 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1489	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1490
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1492	self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1493	writeAspects:(self simpleAspects)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1494	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1495
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1497	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1498	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1502	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	justInTime ifTrue:[
6662 3deee4183f1d code cleanup: use new Smalltalk>>allMethodsDo: Claus Gittinger <cg@exept.de> parents: 6638 diff changeset	1508	Smalltalk allMethodsDo:[:m \| m checked:false].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1513
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1514	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1515
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1516	"Modified: / 17-07-2010 / 14:48:57 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1517	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1518
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1519	simpleAspects
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1520	^
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1521	#(
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1522	warnings
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1523	warnCommonMistakes
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1524	warnPossibleIncompatibilities
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1525	warnDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1526	warnOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1527	warnSTXSpecials
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1528	warnUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1529	warnUnusedVars
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1530	warnAboutWrongVariableNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1531	warnAboutBadComments
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1532	warnInconsistentReturnValues
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1533	warnAboutNonLowercaseLocalVariableNames
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1534	warnAboutShortLocalVariableNames
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1535	warnAboutPossibleSTCCompilationProblems
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1536	warnAboutReferenceToPrivateClass
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1537	warnAboutPossiblyUnimplementedSelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1538
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1539	allowDollarInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1540	allowDolphinExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1541	allowOldStyleAssignment
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1542	allowQualifiedNames
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1543	allowReservedWordsAsSelectors
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1544	allowSqueakExtensions
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1545	allowUnderscoreInIdentifier
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1546	allowVisualAgeESSymbolLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1547	allowFixedPointLiterals
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1548	allowEmptyStatements
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1549	allowExtendedBinarySelectors
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1550
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1551	arraysAreImmutable
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1552	)
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1553
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1554	"Created: / 20-11-2006 / 22:37:17 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1555	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1556
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1562	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1564	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	allowDollar isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1567	allowDollar := ParserFlags allowDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1568	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	allowDolphinExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1577	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1578	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1583	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1584
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1585	allowEmptyStatements isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1586	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1587	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1588	"/ allowEmptyStatements addDependent:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1589	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1590	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1591
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1592	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1593	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1594
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1595	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1596
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1597	allowExtendedBinarySelectors isNil ifTrue:[
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1598	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1599	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1600	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1601	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1602	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	1603
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1604	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1605
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1606	allowFixedPointLiterals isNil ifTrue:[
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1607	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1608	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1609	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1610	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1611	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	1612
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	allowOldStyleAssignment isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1616	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1617	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	allowQualifiedNames isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1625	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1626	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	allowReservedWordsAsSelectors isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1634	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1635	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	^ allowReservedWordsAsSelectors.
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	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	allowSqueakExtensions isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1643	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1644	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1649	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	allowUnderscore isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1652	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1653	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1659	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1660
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1661	allowVisualAgeESSymbolLiterals isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1662	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1663	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1664	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1665	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1666	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	1667
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1668	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1669
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1670	immutableArrays isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1671	immutableArrays := ParserFlags arraysAreImmutable asValue.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1672	immutableArrays onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1673	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1674	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1675	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1676
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1699	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1728	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1741	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1746	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1747	warnAboutBadComments isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1748	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1749	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1750	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1751	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1752	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	1753
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1754	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1755
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1756	warnAboutMissingMethodComment isNil ifTrue:[
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1757	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1758	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1759	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1760	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1761
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1762	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1763	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1764
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1765	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1766	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1767	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1768	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1769	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1770	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1771
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1772	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1773	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	1774
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1775	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1776
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1777	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1778	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1779	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1780	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1781	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1782
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1783	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1784	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1785
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1786	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1787
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1788	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1789	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1790	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1791	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1792	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1793
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1794	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1795	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	1796
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1797	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1798	warnAboutReferenceToPrivateClass isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1799	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1800	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1801	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1802	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1803	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	1804
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1805	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1806	warnAboutShortLocalVariableNames isNil ifTrue:[
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1807	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1808	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1809	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1810	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1811	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	1812
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1813	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1814	warnAboutWrongVariableNames isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1815	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1816	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1817	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1818	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1819	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	1820
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823	warnCommonMistakes isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1824	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1825	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1830	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832	warnDollar isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1833	warnDollar := ParserFlags warnDollarInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1834	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1839	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1840	warnInconsistentReturnValues isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1841	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1842	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1843	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1844	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1845	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	1846
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1847	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	warnOldStyle isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1850	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1851	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1856	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1857	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	1858	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1859
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1860	warnCompatibility isNil ifTrue:[
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1861	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1862	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1863	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1864	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1865	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1866
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1867	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	warnSTX isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1870	warnSTX := ParserFlags warnSTXSpecials asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1871	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1876	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	warnUnderscore isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1879	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1880	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	warnUnusedVars isNil ifTrue:[
8793 d92d2f7bf232 * empty log message * Claus Gittinger <cg@exept.de> parents: 8740 diff changeset	1888	warnUnusedVars := ParserFlags warnUnusedVars asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1889	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	warnings isNil ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1897	warnings := ParserFlags warnings asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1900	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1905	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	1909	changedObject value ifTrue:[
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1910	self enableUnderscore value:self allowUnderscoreInIdentifier value.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1911	self enableDollar value:self allowDollarInIdentifier value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1918	(changedObject == self allowDollarInIdentifier or:[changedObject == self allowUnderscoreInIdentifier]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1926	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1927
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1928	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1929	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1930	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1931
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1932	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1935	(self
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	1936	hasChangedAspectIn:(self simpleAspects)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	1937	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	1938
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1939	((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	1940	((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	1941	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1942
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1943	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1944
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	1945	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	1946
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	1947	"Modified: / 17-07-2010 / 14:48:07 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1955	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1956
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1957	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1958	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1959	by the ImageEditor of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1960
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1961	"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	1962	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	1963
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	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1966	ImageEditor openOnClass:self andSelector:#defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1967	Icon flushCachedIcons
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1968	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1969
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1970	<resource: #image>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1971
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1972	^Icon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1973	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl class defaultIcon'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1974	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	1975	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	1976	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	1977	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	1978	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	1979	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	1980	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	1981	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1982
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1983	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1984
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1985	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1986	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1987	by the UIPainter of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1988
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1989	"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	1990	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	1991
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	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1994	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1995	AbstractSettingsApplication::ChangeFileSettingsAppl open
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1996	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1997
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	1998	<resource: #canvas>
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	^
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2001	#(FullSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2002	name: windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2003	window:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2004	(WindowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2005	label: 'Changes Settings'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2006	name: 'Changes Settings'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2007	min: (Point 10 10)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2008	bounds: (Rectangle 0 0 561 478)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2009	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2010	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2011	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2012	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2013	(VerticalPanelViewSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2014	name: 'VerticalPanel2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2015	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	2016	horizontalLayout: fitSpace
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2017	verticalLayout: topSpace
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2018	horizontalSpace: 5
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2019	verticalSpace: 5
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2020	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2021	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2022	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2023	(FramedBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2024	label: 'Change File'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2025	name: 'FramedBox2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2026	labelPosition: topLeft
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2027	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2028	component:
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2029	(SpecCollection
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2030	collection: (
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2031	(CheckBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2032	label: 'Log compiles in Changefile'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2033	name: 'CheckBox1'
9739 9e893e8e1ef6 size of checkbox Claus Gittinger <cg@exept.de> parents: 9738 diff changeset	2034	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	2035	model: updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2036	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2037	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2038	(CheckBoxSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2039	label: 'Log doIts in Changefile'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2040	name: 'CheckBox2'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2041	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	2042	model: logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2043	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2044	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2045	(LabelSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2046	label: 'Changefile Name:'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2047	name: 'ChangefileNameLabel'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2048	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	2049	translateLabel: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2050	adjust: right
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2051	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2052	(InputFieldSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2053	name: 'ChangeFileNameEntryField'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2054	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	2055	model: changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2056	immediateAccept: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2057	acceptOnReturn: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2058	acceptOnTab: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2059	acceptOnLostFocus: true
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2060	acceptOnPointerLeave: true
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	)
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	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2065	extent: (Point 551 112)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2066	)
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
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	)
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	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2074	)
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2075	! !
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	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
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	basicReadSettings
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2080	self changeFileName value:ObjectMemory nameForChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2081	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2082	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2083
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2084	"Modified: / 27-10-2010 / 10:16:48 / cg"
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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2087	basicSaveSettings
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2088
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	2089	ObjectMemory nameForChanges:(self changeFileName value).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2090	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2091	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2092
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	2093	"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	2094	! !
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	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2097
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2098	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2099
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2100	changeFileName isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2101	changeFileName := ObjectMemory nameForChanges asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2102	changeFileName onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2103	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2104	^ changeFileName.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2105	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2106
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2107	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2108
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2109	logDoits isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2110	logDoits := Smalltalk logDoits asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2111	logDoits onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2112	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2113	^ logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2114	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2115
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2116	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2117
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2118	updChanges isNil ifTrue:[
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2119	updChanges := Class updatingChanges asValue.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2120	updChanges onChangeSend:#updateModifiedChannel to:self
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2121	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2122	^ updChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2123	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2124
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2125	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2126
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2127	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2128	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2129	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2130
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2131	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2132
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2133	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2134	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2135	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2136	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2137	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2138
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2139	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2140	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	2141
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2142	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2143
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2144	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2145	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2146	by the ImageEditor of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2147
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2148	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2149	the ImageEditor may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2150
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	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2153	ImageEditor openOnClass:self andSelector:#defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2154	Icon flushCachedIcons
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2155	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2156
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2157	<resource: #image>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2158
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2159	^Icon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2160	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl class defaultIcon'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2161	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	2162	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	2163	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	2164	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	2165	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	2166	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	2167	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	2168	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2169
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2170	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2171
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2172	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2173	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2174	by the UIPainter of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2175
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2176	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2177	the UIPainter may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2178
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2179	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2180	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2181	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2182	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2183	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2184
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2185	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2186
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2187	^
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2188	#(FullSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2189	name: windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2190	window:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2191	(WindowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2192	label: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2193	name: 'Tool Settings'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2194	min: (Point 10 10)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2195	bounds: (Rectangle 0 0 607 786)
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	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2198	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2199	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2200	(VerticalPanelViewSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2201	name: 'VerticalPanel2'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2202	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2203	horizontalLayout: fit
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2204	verticalLayout: top
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2205	horizontalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2206	verticalSpace: 3
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2207	component:
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2208	(SpecCollection
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2209	collection: (
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2210	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2211	label: 'Generate Comments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2212	name: 'GenerateComments'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2213	activeHelpKey: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2214	model: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2215	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2216	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2217	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2218	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2219	label: 'Generate Comments In Getters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2220	name: 'GenerateCommentsInGetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2221	activeHelpKey: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2222	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2223	model: generateCommentsInGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2224	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2225	extent: (Point 607 25)
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	(CheckBoxSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2228	label: 'Generate Comments In Setters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2229	name: 'GenerateCommentsInSetters'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2230	activeHelpKey: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2231	enableChannel: generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2232	model: generateCommentsInSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2233	translateLabel: true
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2234	extent: (Point 607 25)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2235	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2236	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2237
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2238	)
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	)
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	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2244	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2245
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2246	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'!
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	basicReadSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2249	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2250	readAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2251	from:currentUserPrefs.
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2254	basicSaveSettings
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2255	self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2256	writeAspects:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2257	to:currentUserPrefs.
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2260	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2261
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2262	aspectSelectors
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2263	^ #(
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2264	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2265	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2266	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2267	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2268	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2269
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2270	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2271	generateComments isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2272	generateComments := UserPreferences current generateComments asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2273	generateComments onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2274	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2275	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2276	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2277
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2278	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2279	generateCommentsForGetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2280	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2281	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2282	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2283	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2284	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2285
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2286	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2287	generateCommentsForSetters isNil ifTrue:[
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2288	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2289	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2290	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2291	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2292	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2293
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2294	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2295
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2296	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2297	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2298	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2299
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2300	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'queries'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2301
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2302	hasUnsavedChanges
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2303	(self
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2304	hasChangedAspectIn:(self aspectSelectors)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2305	asComparedTo:currentUserPrefs) ifTrue:[^ true].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2306	^ false.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2307	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	2308
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2309	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2310
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2311	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2312	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2313
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2314	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2315	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2316
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2317	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2318	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2319	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2320
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2321	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2322	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2326	ImageEditor openOnClass:self andSelector:#defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2327	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2328	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2329
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2330	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2331
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2332	^Icon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2333	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon1'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2334	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	2335	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2336	@ 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	2337	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	2338	@ 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	2339	@ 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	2340	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	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	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2344	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2345	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2346
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2347	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2348	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2349
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2350	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2351	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2352	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2353	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2354	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2355
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2356	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2357
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2358	^Icon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2359	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl class defaultIcon2'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	2360	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	2361	@@@@@@@@@@@@@@@@@@@@@@@@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	2362	@ 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	2363	@ (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	2364	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	2365	@@@@@@@@@@@@@@@@@@@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	2366	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2367
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2368	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2369
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2370	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2371	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2372	by the UIPainter of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2373
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2374	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2375	the UIPainter may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2376
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2377	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2378	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2379	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2380	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
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	<resource: #canvas>
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	#(FullSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2387	name: windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2388	window:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2389	(WindowSpec
9279 8db96209a9ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9278 diff changeset	2390	label: 'Com-Logging settings'
8db96209a9ea * empty log message * Claus Gittinger <cg@exept.de> parents: 9278 diff changeset	2391	name: 'Com-Logging settings'
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2392	min: (Point 10 10)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2393	bounds: (Rectangle 0 0 445 401)
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	component:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2396	(SpecCollection
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2397	collection: (
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2398	(VerticalPanelViewSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2399	name: 'VerticalPanel1'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2400	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2401	horizontalLayout: fitSpace
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2402	verticalLayout: topSpace
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2403	horizontalSpace: 5
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2404	verticalSpace: 3
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2405	component:
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2406	(SpecCollection
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2407	collection: (
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2408	(CheckBoxSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2409	label: 'Log Outgoing HTTP Requests on Transcript'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2410	name: 'LogHTTPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2411	enableChannel: displaySupportsNativeWidgets
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2412	model: logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2413	translateLabel: true
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2414	extent: (Point 435 22)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2415	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2416	(CheckBoxSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2417	label: 'Log Outgoing SOAP Requests on Transcript'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2418	name: 'LogSOAPRequests'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2419	enableChannel: displaySupportsNativeDialogs
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2420	model: logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2421	translateLabel: true
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2422	extent: (Point 435 22)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2423	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2424	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2425
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	)
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	)
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	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2433
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2434	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'actions'!
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	aspectsFromUserPreferences
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	logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2439	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2440	)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2441	!
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	basicReadSettings
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2444	self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2445	readAspects:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2446	from:currentUserPrefs.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2447	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2448
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2449	basicSaveSettings
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2450	self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2451	writeAspects:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2452	to:currentUserPrefs.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2453	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2454
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2455	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2456
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2457	logHTTPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2458	logHTTPRequests isNil ifTrue:[
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2459	logHTTPRequests := false asValue.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2460	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2461	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2462	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2463	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2464
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2465	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2466	logSOAPRequests isNil ifTrue:[
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2467	logSOAPRequests := false asValue.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2468	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2469	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2470	^ logSOAPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2471	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2472
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2473	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2474
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2475	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2476	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2477	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2478
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2479	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'queries'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2480
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2481	hasUnsavedChanges
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2482	^ self
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2483	hasChangedAspectIn:(self aspectsFromUserPreferences)
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2484	asComparedTo:currentUserPrefs
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2485	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	2486
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2487	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2488
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2489	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2490	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2492	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2493	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2494
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2495	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2496
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2497	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2498	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2499	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2500
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2501	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2502	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2503
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2504	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2505	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2506	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2507	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2508	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2509
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2510	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2511
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2512	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2513	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2514	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2515	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2516	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2517	label: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2518	name: 'Debugger Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2519	min: (Point 10 10)
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2520	bounds: (Rectangle 0 0 600 320)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2521	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2522	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2523	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2524	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2525	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2526	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2527	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	2528	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2529	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2530	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2531	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2532	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2533	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2534	collection: (
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2535	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2536	name: 'ShowErrorNotifierBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2537	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2538	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2539	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2540	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2541	label: 'Show Error Notifier before Opening Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2542	name: 'ShowErrorNotifierCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2543	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2544	model: showErrorNotifier
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2545	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2546	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2547	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2548
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2549	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2550	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2551	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2552	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2553	name: 'ShowVerboseStackBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2554	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2555	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2556	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2557	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2558	label: 'Verbose Backtrace by Default in Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2559	name: 'ShowVerboseStackCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2560	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2561	model: verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2562	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2563	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2564	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2565
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2566	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2567	extent: (Point 600 30)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2568	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2569	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2570	name: 'UseNewLayoutInDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2571	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2572	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2573	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2574	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2575	label: 'Use New Layout'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2576	name: 'UseNewLayoutInDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2577	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2578	model: useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2579	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2580	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2581	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2582
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2583	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2584	extent: (Point 600 29)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2585	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2586	(ViewSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2587	name: 'AllowSendingMailFromDebuggerBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2588	component:
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2589	(SpecCollection
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2590	collection: (
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2591	(CheckBoxSpec
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2592	label: 'Allow Sending of Error Reports from Debugger'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2593	name: 'AllowSendingMailFromDebuggerCheckBox'
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2594	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2595	model: allowSendMailFromDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2596	translateLabel: true
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2597	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2598	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2599
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2600	)
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2601	extent: (Point 600 30)
4398 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	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2606	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2607	)
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	)
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	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2612
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2613	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2614
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2615	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2616	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2617	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2618	self verboseBacktraceInDebugger value:(currentUserPrefs verboseBacktraceInDebugger).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2619	self useNewLayoutInDebugger value:(currentUserPrefs useNewLayoutInDebugger).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2620	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2621
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2622	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2623	self showErrorNotifier value ifFalse:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2624	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2625	] ifTrue:[
6165 2bd97fffdf95 EmergencyHandlers have been relocated to NoHandlerError long ago Stefan Vogel <sv@exept.de> parents: 6163 diff changeset	2626	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2627	].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2628	currentUserPrefs allowSendMailFromDebugger:(self allowSendMailFromDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2629	currentUserPrefs verboseBacktraceInDebugger:(self verboseBacktraceInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2630	currentUserPrefs useNewLayoutInDebugger:(self useNewLayoutInDebugger value).
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2631
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2632	Debugger newDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2633	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2634
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2635	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2636
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2637	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2638
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2639	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2640	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2641	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2642	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2643	^ allowSendMailFromDebugger.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2646	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2647
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2648	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	2649	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2650	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2651	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2652	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2653	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2654
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2655	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2656
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2657	useNewLayoutInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2658	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2659	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2660	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2661	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2662	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2663
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2664	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2665
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2666	verboseBacktraceInDebugger isNil ifTrue:[
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2667	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger ? false) asValue.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2668	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2669	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2670	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2671	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2672
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2673	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2674
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2675	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2676	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2677	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2678
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2679	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2680
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2681	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2682	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2683	currentUserPrefs verboseBacktraceInDebugger ~= self verboseBacktraceInDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2684	currentUserPrefs allowSendMailFromDebugger ~= self allowSendMailFromDebugger value ifTrue:[^ true].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	2685	currentUserPrefs useNewLayoutInDebugger ~= self useNewLayoutInDebugger value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	2686	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2687	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2688
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
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	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2721	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2722
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2723	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2724	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2725
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2726	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2727	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2728
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2739	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2740	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2741	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2747	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2748	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2749	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2750	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2751	label: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2752	name: 'Display Screen Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2753	min: (Point 10 10)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2754	bounds: (Rectangle 0 0 600 378)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2755	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2756	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2757	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2758	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2759	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2760	label: 'Actual Visible Screen Area:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2761	name: 'ActualVisibleScreenAreaLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2762	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	2763	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2764	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2765	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2766	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2767	label: 'Common Sizes:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2768	name: 'CommonSizesLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2769	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	2770	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2771	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2773	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2774	label: 'monitor size'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2775	name: 'MonitorSelectionPopUpList'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2776	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	2777	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2778	model: monitorSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2779	menu: monitorList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2780	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2781	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2782	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2783	label: 'Screen Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2784	name: 'ScreenSizeLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2785	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	2786	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2787	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2789	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2790	name: 'SizeXEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2791	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	2792	model: sizeX
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2793	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2794	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2795	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2796	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2797	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2798	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2799	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2800	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2801	label: ' x '
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2802	name: 'xLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2803	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	2804	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2805	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2806	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2807	name: 'SizeYEntryField'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2808	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	2809	model: sizeY
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2810	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2811	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2812	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2813	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2814	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2815	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2817	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2818	label: '(mm)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2819	name: 'mmLabel'
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2820	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	2821	translateLabel: true
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	2822	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2823	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2824	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2825	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2826	layout: (LayoutFrame 0 0.0 105 0 0 1.0 109 0)
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	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2829	name: 'ScreenDepthVisualLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2830	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	2831	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2832	labelChannel: screenDepthVisualLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2833	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2834	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2835	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2836	name: 'Separator2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2837	layout: (LayoutFrame 0 0.0 139 0 0 1.0 143 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2838	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2839	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2840	label: 'Color Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2841	name: 'ColorMonitorCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2842	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	2843	model: isColorMonitor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2844	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2845	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2846	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2847	label: 'Use Fix Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2848	name: 'FixColorPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2849	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	2850	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2851	model: useFixPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2852	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2853	labelChannel: useFixPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2855	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2856	label: 'Use Fix Gray Color Palette'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2857	name: 'UseFixGrayPaletteCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2858	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	2859	enableChannel: visualIsPseudoColor
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2860	model: useFixGrayPalette
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2861	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2862	labelChannel: useFixGrayPaletteLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2863	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2864	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2865	label: 'Image Display:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2866	name: 'ImageDisplayLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2867	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	2868	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2869	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2870	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2871	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2872	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2873	name: 'DitherListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2874	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	2875	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2876	model: ditherListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2877	enableChannel: ditherSymsNotNil
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2878	menu: ditherList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2879	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2880	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2881	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2882	label: 'Allow Colored/Grayscale Icons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2883	name: 'AllowColoredGrayscaleIconsCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2884	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	2885	model: deepIcons
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2886	translateLabel: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2887	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2888	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2889	name: 'Separator3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2890	layout: (LayoutFrame 0 0.0 288 0 0 1.0 292 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2891	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2892	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2893	label: 'ClipBoard Encoding:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2894	name: 'ClipBoardEncodingLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2895	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	2896	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2897	adjust: right
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2898	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2899	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2900	label: 'image display'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2901	name: 'ClipEncodingListPopUpList'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2902	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	2903	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2904	model: clipEncodingListSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2905	menu: clipEncodingList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2906	useIndex: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2907	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2908	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2909	name: 'Separator4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2910	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	2911	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2912	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2913	label: 'Max. CopyBuffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2914	name: 'MaxCopyBufferSizeLabel'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2915	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	2916	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2917	adjust: right
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	2918	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2919	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2920	name: 'MaxCopyBufferEntryField'
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2921	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	2922	model: maxCopyBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2923	type: fileSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2924	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2925	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2926	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2927	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	2928	acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2929	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2930	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2932	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2933	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2934	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2936	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2937
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2938	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2939	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2940	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2941	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2942	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2943	self sizeY value:screen heightInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2944	self deepIcons value:screen supportsDeepIcons.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2945	ditherSyms notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2946	self ditherListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2947	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2948	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2949	self clipEncodingListSelection
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2950	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2951	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2952	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2953
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2954	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2955
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2956	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2957
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2958	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2959	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2960	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2961	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2962	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2963	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2964	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2965	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2966	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2967	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2968
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2969	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2970	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2971	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2972	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2973	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2974	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2975	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2976	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2977	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2978	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2979	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2980	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2981	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2982
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2983	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2984	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2985	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2986	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2987
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2988	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2989	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2990	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2991
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	2992	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2993	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2995	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2997	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2999	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3000	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3001	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3002	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3003	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3004	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3005	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3006	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3008	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3010	clipEncodingListSelection isNil ifTrue:[
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	3011	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3012	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3013	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3014	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3021	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3024	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3028	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3029	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3030	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3042	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3049	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3051	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3052	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3053	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3054
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3055	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3057	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3059	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3060	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3061	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3062	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3063
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3064	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3065
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3066	maxCopyBufferSize isNil ifTrue:[
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3067	maxCopyBufferSize := (810241024) asValue.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3068	maxCopyBufferSize addDependent:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3069	maxCopyBufferSize changed.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3070	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3071	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3072	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3073	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	3074
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3075	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3077	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3078	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3079	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3080	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3081	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3083	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3084
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3085	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3088	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3099	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3111	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3116	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3122	sizeY 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	^ sizeY.
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	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3131	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3148	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3162
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3163	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3164	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3165	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3172	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3178	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3179	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3180	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3181	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3182	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3183	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3185	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3186	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3187
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3188	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3189	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3190	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3191	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3192	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3193	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3194	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3195	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3196	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3198	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3199	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3200	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3201	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3202	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3203	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3204	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3205	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3206	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3208	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3211	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3212
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3213	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3214	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3215	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3216
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3217	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3219	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3221	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3222
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3223	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3224
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3225	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3226	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3227	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3228	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3229	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3230	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3231	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3232	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3233	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3234	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3235	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3236	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3237	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3238	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3239	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3240	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3241	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3242	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3243	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3244	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3245	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3246	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3247	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3248	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3249
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3252	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3253
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3254	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3255	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3256	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3257	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3258	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3259	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3260
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3261	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3262	ditherSyms notNil ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3263	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	3264	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	3265	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	3266	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3269	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3270
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3271	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3272	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3273
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3274	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3275	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3276
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3284	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3286	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3287	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3288	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3289	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3290	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3291
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3292	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3295	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3296	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3297	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3298	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3299	label: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3300	name: 'Editor Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3301	min: (Point 10 10)
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3302	bounds: (Rectangle 0 0 600 320)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3303	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3304	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3305	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3306	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3307	(VerticalPanelViewSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3308	name: 'VerticalPanel1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3309	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	3310	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3311	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3312	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3313	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3314	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3315	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3316	collection: (
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3317	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3318	label: 'CTRL-Key to Start TextDrag'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3319	name: 'CTRLKeyStTextDragCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3320	model: startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3321	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3322	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3323	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3324	(CheckBoxSpec
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3325	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	3326	name: 'EnforceContentsDropForFiles'
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3327	model: enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3328	translateLabel: true
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3329	extent: (Point 600 23)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3330	)
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3331	(CheckBoxSpec
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3332	label: 'SearchBox is Modal'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3333	name: 'SearchBoxModalCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3334	model: searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3335	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3336	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3337	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3338	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3339	label: 'Tab Stops in Multiples of 4'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3340	name: 'TabStopsMultiples4CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3341	model: tabsIs4
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3342	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3343	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3344	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3345	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3346	label: 'Double Click Select Behavior as in ST80'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3347	name: 'DoubleClickSelectBehaviorST80CheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3348	model: st80DoubleClickSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3349	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3350	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3351	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3352	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3353	label: 'Cursor has ST80 Line-end Behavior'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3354	name: 'CursorST80LineEndBehaviorCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3355	model: st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3356	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3357	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3358	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3359	(CheckBoxSpec
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3360	label: 'Treat Underscore as Letter in Word-Select'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3361	name: 'UnderscoreIsLetterCheckBox'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3362	model: extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3363	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3364	extent: (Point 600 23)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3365	)
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3366	(CheckBoxSpec
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	3367	label: 'Any non-Whitespace in Word-Select'
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3368	name: 'CheckBox1'
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3369	model: whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3370	translateLabel: true
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3371	extent: (Point 600 23)
6860 9992480933a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	3372	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3373	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3376	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3381	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3383	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3384
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3385	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3386	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3387	readAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3388	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3389
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3390	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3391	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	3392	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3393	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3394
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3395	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3396	self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3397	writeAspects:self commonAspects
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3398	to:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	3399
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3400	self enforceContentsDropForFiles value ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3401	currentUserPrefs enforcedDropModeForFiles:#text
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3402	] ifFalse:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3403	currentUserPrefs enforcedDropModeForFiles:nil
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3404	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3405
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3406	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3407	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3408	ListView userDefaultTabPositions:(self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3409	ifTrue:[ListView tab4Positions]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3410	ifFalse:[ListView tab8Positions]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3411	ListView allSubInstancesDo:[:eachKindOfListView \|
8420 26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3412	self tabsIs4 value
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3413	ifTrue:[eachKindOfListView setTab4]
26f02c3ab38e default to 4-tabs Claus Gittinger <cg@exept.de> parents: 8376 diff changeset	3414	ifFalse:[eachKindOfListView setTab8]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3415	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3416	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3417	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3418
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3419	commonAspects
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3420	^ #(
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3421	#searchDialogIsModal
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3422	#startTextDragWithControl
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3423	#st80EditMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3424	#extendedWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3425	#whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3426	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3427	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3431	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3432	enforceContentsDropForFiles isNil ifTrue:[
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3433	enforceContentsDropForFiles := true asValue.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3434	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3435	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3436	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3437	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3438
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3439	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3440	extendedWordSelectMode isNil ifTrue:[
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3441	extendedWordSelectMode := true asValue.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3442	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3443	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3444	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3445	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	3446
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3447	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3448	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3450	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3455	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3456	st80DoubleClickSelectMode isNil ifTrue:[
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3457	st80DoubleClickSelectMode := true asValue.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3458	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3459	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3460	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3461	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3462
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3463	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3466	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3474	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	3482	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3485	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3486
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3487	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3488	whitespaceWordSelectMode isNil ifTrue:[
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3489	whitespaceWordSelectMode := true asValue.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3490	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3491	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3492	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3495	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3496
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3497	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3498	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3499	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3500
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	3504	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	3505	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3506	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3507	ListView userDefaultTabPositions ~= (self tabsIs4 value
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3508	ifTrue:[ListView tab4Positions]
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3509	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3510	].
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3511
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3512	(self
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3513	hasChangedAspectIn:self commonAspects
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3514	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	3515
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	3516	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3533	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3534
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3535	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3536	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3537
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	3538	^ ToolbarIconLibrary fontIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3539	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3540
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3541	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3542	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3543	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3544
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3545	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3546	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3547
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3548	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3549	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3550	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3551	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3552	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3553
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3554	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3555
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3556	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3557	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3558	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	3559	@@@@@@@@@@@@@@@@@@@@@!!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	3560	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	3561	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	3562	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3563
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3586	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3587	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3588	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3594	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3595	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3596	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3597	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3598	label: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3599	name: 'Font Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3600	min: (Point 10 10)
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3601	bounds: (Rectangle 0 0 512 657)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3603	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3604	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3605	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3606	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3607	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3608	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	3609	horizontalLayout: fitSpace
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3610	verticalLayout: topSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3611	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3612	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3613	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3614	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3615	collection: (
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3616	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3617	label: 'Label'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3618	name: 'Label3'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3619	style: labelFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3620	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3621	labelChannel: infoText
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3622	resizeForLabel: false
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3623	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3624	extent: (Point 506 171)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3625	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3626	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3627	name: 'CodeBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3628	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3629	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3630	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3631	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3632	label: 'Code'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3633	name: 'Label1'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3634	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3635	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3636	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3637	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3638	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3639	label: 'Text Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3640	name: 'Label2'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3641	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3642	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3643	labelChannel: textFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3644	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3645	postBuildCallback: postBuildTextFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3646	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3647	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3648	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3649	name: 'Button1'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3650	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3651	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3652	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3653	model: changeTextFont
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	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3656	name: 'Separator11'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3657	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3660
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3661	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3662	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3663	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3664	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3665	name: 'InputFieldsBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3666	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3667	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3668	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3669	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3670	label: 'Input Fields'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3671	name: 'Input Fields'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3672	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	3673	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3674	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3675	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3676	(LabelSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3677	label: 'InputFields Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3678	name: 'InputFieldsFont'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3679	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	3680	translateLabel: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3681	labelChannel: inputFieldFontLabelHolder
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3682	adjust: left
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3683	postBuildCallback: postBuildInputFieldFontLabel:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3684	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3685	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3686	label: 'Change...'
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3687	name: 'ChangeText'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3688	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3689	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3690	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3691	model: changeInputFieldFont
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	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3694	name: 'Separator10'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3695	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3698
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3699	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3700	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3701	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3702	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3703	name: 'ListsBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3704	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3705	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3706	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3707	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3708	label: 'Lists'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3709	name: 'Lists'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3710	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3711	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3712	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3713	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3714	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3715	label: 'Lists Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3716	name: 'ListsFont'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3717	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3718	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3719	labelChannel: listsFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3720	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3721	postBuildCallback: postBuildListsFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3722	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3723	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3724	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3725	name: 'ChangeLists'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3726	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	3727	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3728	tabable: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3729	model: changeListsFont
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3730	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3731	(DividerSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3732	name: 'Separator8'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3733	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3734	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3735	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3736
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3737	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3738	extent: (Point 506 50)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3739	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3740	(ViewSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3741	name: 'MenusBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3742	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3743	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3744	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3745	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3746	label: 'Menus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3747	name: 'Menus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3748	layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3749	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3750	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3751	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3752	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3753	label: 'Menus Font'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3754	name: 'MenusFont'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3755	layout: (LayoutFrame 105 0 22 0 -5 1 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3756	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3757	labelChannel: menusFontLabelHolder
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3758	adjust: left
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3759	postBuildCallback: postBuildMenuesFontLabel:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3760	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3761	(ActionButtonSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3762	label: 'Change...'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3763	name: 'ChangeMenus'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3764	layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3765	translateLabel: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3766	tabable: true
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3767	model: changeMenusFont
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3768	)
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3769	(DividerSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3770	name: 'Separator9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3771	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3772	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3773	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3774
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3775	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3776	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3777	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3778	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3779	name: 'LabelsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3780	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3781	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3782	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3783	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3784	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3785	name: 'Labels'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3786	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	3787	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3788	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3789	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3790	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3791	label: 'Labels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3792	name: 'LabelsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3793	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	3794	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3795	labelChannel: labelsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3796	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3797	postBuildCallback: postBuildLabelsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3798	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3799	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3800	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3801	name: 'ChangeLabels'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3802	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	3803	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3804	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3805	model: changeLabelsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3806	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3807	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3808	name: 'Separator6'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3809	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3810	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3811	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3812
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3813	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3814	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3815	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3816	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3817	name: 'ButtonsBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3818	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3819	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3820	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3821	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3822	label: 'Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3823	name: 'Buttons'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3824	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	3825	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3826	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3827	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3828	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3829	label: 'Buttons Font'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3830	name: 'ButtonsFont'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3831	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	3832	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3833	labelChannel: buttonsFontLabelHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3834	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3835	postBuildCallback: postBuildButtonsFontLabel:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3836	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3837	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3838	label: 'Change...'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3839	name: 'Change Buttons'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3840	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	3841	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3842	tabable: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3843	model: changeButtonsFont
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3844	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3845	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3846	name: 'Separator7'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3847	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3852	extent: (Point 506 50)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3853	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3854	(ViewSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3855	name: 'AllBox'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3856	component:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3857	(SpecCollection
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3858	collection: (
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3859	(LabelSpec
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3860	label: 'All (Others)'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3861	name: 'All'
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3862	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	3863	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3864	adjust: left
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3865	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3866	(LabelSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3867	label: 'Label'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3868	name: 'AllFont'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3869	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	3870	translateLabel: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3871	labelChannel: allFontLabelHolder
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3872	adjust: left
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3873	postBuildCallback: postBuildAllFontLabel:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3874	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3875	(ActionButtonSpec
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	3876	label: 'Change...'
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3877	name: 'ChangeAll'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3878	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	3879	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3880	tabable: true
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3881	model: changeAllFont
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3882	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3883	(DividerSpec
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	3884	name: 'Separator1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	3885	layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3886	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3887	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3888
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3889	)
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	3890	extent: (Point 506 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3914	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3915	"/ View readStyleSheetAndUpdateAllStyleCaches.
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3916	self allOfThem value:View defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3917	self labelDef value:Label defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3918	self buttonDef value:Button defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3919	self listDef value:SelectionInListView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3920	self menuDef value:MenuView defaultFont.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3921	self textDef value:TextView defaultFont.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3922	self inputFieldDef value:EditField defaultFont.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3923	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	3924
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3925	basicSaveSettings
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3926	\|fn\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3927
9185 7f2236aec3d4 FontSettingsAppl - set the View defaultFont to the "all font" setting Stefan Vogel <sv@exept.de> parents: 9176 diff changeset	3928	View defaultFont:self allOfThem value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3929	Label defaultFont:self labelDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3930
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3931	fn := self buttonDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3932	Button defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3933	Toggle defaultFont:fn.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3934
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3935	fn := self textDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3936	TextView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3937
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3938	fn := self inputFieldDef value.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3939	EditField withAllSubclasses do:[:cls \| cls defaultFont:fn].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3940
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3941	fn := self listDef value.
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3942	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:fn].
24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3943
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3944	fn := self menuDef value.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3945	ListView defaultFont:fn.
5464 4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3946	MenuView defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3947	MenuPanel defaultFont:fn.
4f59a3bc9fb2 * empty log message * ca parents: 5448 diff changeset	3948	NoteBookView defaultFont:fn.
5551 24a4e5c75969 * empty log message * Claus Gittinger <cg@exept.de> parents: 5549 diff changeset	3949	PullDownMenu defaultFont:fn.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3950	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3951
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	\|f\|
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 allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	title:(resources string:'Font for %1' with:'All')
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 allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3961	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3962	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3963	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3964	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3965	self textDef value:(f onDevice:textLabel device).
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3966	self inputFieldDef value:(f onDevice:inputFieldLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3972	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3975	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3977	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3979	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3981	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3983	changeInputFieldFont
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3984	\|f\|
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3985
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3986	f := FontPanel
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3987	fontFromUserInitial:(self inputFieldDef value)
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3988	title:(resources string:'Font for %1' with:'Input Fields')
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3989	filter:filter.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3990	f notNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3991	self inputFieldDef value:(f onDevice:inputFieldLabel device).
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3992	]
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3993	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	3994
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	3996	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4003	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4004	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4015	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4027	self menuDef value:(f onDevice:menuLabel device).
4286 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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4039	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4076	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080
9551 c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4081	infoText
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4082	^ self resources
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4083	string:'FONT_SETTINGS_INFO'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4084	default:'Please notice that any changes usually only affect new windows.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4085	Existing windows usually remember their initial font as created.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4086	If required, reopen some of the views.
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4087
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4088	Also notice:
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4089	unless you save your new settings,
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4090	only the current session is affected by changes here.'
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4091
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4092	"Created: / 17-08-2010 / 10:52:00 / cg"
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4093	!
c29ad3047a89 font settings Claus Gittinger <cg@exept.de> parents: 9545 diff changeset	4094
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4095	inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4096	inputFieldDef isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4097	inputFieldDef := ValueHolder new.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4098	inputFieldDef addDependent:self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4099	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4100	^ inputFieldDef
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4101	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4102
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4103	inputFieldFontLabelHolder
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4104
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4105	inputFieldFontLabelHolder isNil ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4106	inputFieldFontLabelHolder := '' asValue.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4107	].
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4108	^ inputFieldFontLabelHolder.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4109	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4110
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4111	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4117	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4124	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4129	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4135	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4136	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4137	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4138
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4142	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4160	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4168	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4169	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4177	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4178	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4179	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4180	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4181	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4183	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4186	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4187	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4188	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4189	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4190	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4191	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4192	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4193	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4194	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4195	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4196	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4197	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4198	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4199	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4200	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4201	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4202	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4203	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4204	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4205	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4206	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4207	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4208	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4209	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4210	].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4211	changedObject == self inputFieldDef ifTrue:[
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4212	self updateFontOfLabel:inputFieldLabel andFontNameHolder:(self inputFieldFontLabelHolder) from:changedObject.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4213	^ self.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4214	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4215	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4216	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4217	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4218
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4219	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4220	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4221	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4222	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4223	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4224	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4225	self update:#value with:nil from:self textDef.
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4226	self update:#value with:nil from:self inputFieldDef.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4227	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4228
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4229	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4230	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4231
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4232	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4233	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4234	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4235	''
c72e35116b13 instable state penk parents: 5040 diff changeset	4236	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	4237	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	4238	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4239	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4240	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4241	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4242
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4243	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4244
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4245	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4246	^ 'Launcher/fontSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4247	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4248
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4249	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4251	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4253	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4254	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4256	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4258	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4259	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4260
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4261	postBuildInputFieldFontLabel:aWidget
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4262
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4263	inputFieldLabel := aWidget.
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4264	!
24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4265
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4266	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4268	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4271	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4273	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4274	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4278	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4279	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4281	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4283	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4284	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4285
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4286	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4287	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4288	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	4289	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4290	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4291
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4292	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4294	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4295	self labelDef value ~= Label defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4296	self buttonDef value ~= Button defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4297	self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4298	self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4299	self textDef value ~= TextView defaultFont ifTrue:[^ true].
7954 24213ec85364 * empty log message * Claus Gittinger <cg@exept.de> parents: 7941 diff changeset	4300	self inputFieldDef value ~= EditField defaultFont ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4301	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4304	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4305
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4306	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4307
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4308	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4309	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4310
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4311	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4312
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4313	^ #('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	4314	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4315
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4316	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4317
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4318	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4319	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4320
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4321	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4322
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4323	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4324	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4325
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4326	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4327	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4328	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4329
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4330	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4331	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4332
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4333	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4334	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4335	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4336	Icon flushCachedIcons
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4339	<resource: #image>
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	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4342	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4343	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	4344	@@@@@@@@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	4345	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	4346	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4347
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4348	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4349	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4350	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4351
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4352	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4353	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4354
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4355	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4356	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4357	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4358	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4359	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4360
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4361	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4362
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4363	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4364	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	4365	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	4366	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	4367	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	4368	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	4369	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	4370	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	4371	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	4372	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	4373	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4374
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4375	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4376
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4377	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4378	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4379	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4380
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4381	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4382	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4383
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4384	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4385	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4386	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4387	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4388	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4389
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4390	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4391
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4392	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4393	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4394	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4395	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4396	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4397	label: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4398	name: 'General Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4399	min: (Point 10 10)
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4400	bounds: (Rectangle 0 0 600 320)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4401	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4402	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4403	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4404	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4405	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4406	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4407	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	4408	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4409	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4410	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4411	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4412	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4413	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4414	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4415	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4416	label: 'Catch Method Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4417	name: 'CatchMethodRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4418	model: catchMethodRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4419	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4420	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4421	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4422	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4423	label: 'Catch Class Redefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4424	name: 'CatchClassRedefinitions'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4425	model: catchClassRedefs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4426	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4427	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4428	)
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4429	(DividerSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4430	name: 'Separator2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4431	extent: (Point 600 3)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4432	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4433	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4434	label: 'Keep History Line in Methods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4435	name: 'KeepHistoryLineinMethods'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4436	model: historyLines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4437	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4438	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4439	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4440	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4441	label: 'Keep Full Class History'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4442	name: 'KeepFullClassHistory'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4443	enableChannel: hasHistoryManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4444	model: fullHistoryUpdate
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4445	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4446	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4447	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4448	(ViewSpec
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4449	name: 'Box2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4450	component:
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4451	(SpecCollection
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4452	collection: (
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4453	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4454	label: 'Username in History:'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4455	name: 'Label1'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4456	layout: (LayoutFrame 0 0 5 0 200 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4457	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4458	adjust: right
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4459	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4460	(InputFieldSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4461	name: 'EntryField1'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4462	layout: (LayoutFrame 200 0 5 0 347 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4463	model: userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4464	immediateAccept: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4465	acceptOnReturn: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4466	acceptOnTab: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4467	acceptOnLostFocus: false
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4468	acceptOnPointerLeave: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4469	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4470	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4471	label: '(leave empty for login-name)'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4472	name: 'Label2'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4473	layout: (LayoutFrame 354 0 5 0 554 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4474	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4475	adjust: left
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4476	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4477	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4478
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4479	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4480	extent: (Point 600 29)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4481	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4482	(DividerSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4483	name: 'Separator3'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4484	extent: (Point 600 3)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4485	)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4486	(ViewSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4487	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4488	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4489	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4490	collection: (
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4491	(LabelSpec
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4492	label: 'FileIn Source Mode:'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4493	name: 'FileInSourceModeLabel'
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4494	layout: (LayoutFrame 0 0 5 0 200 0 27 0)
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4495	translateLabel: true
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4496	adjust: right
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4497	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4498	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4499	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4500	name: 'KeepSourceSelection'
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4501	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	4502	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4503	model: keepSourceSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4504	menu: keepSource
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4505	useIndex: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4506	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4507	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4508
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4509	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4510	extent: (Point 600 30)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4511	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4512	(DividerSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4513	name: 'Separator1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4514	extent: (Point 600 3)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4515	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4516	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4517	label: 'If Present, Load Binary Objects when Autoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4518	name: 'LoadBinaryObjectsWhenAutoloading'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4519	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4520	model: loadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4521	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4522	extent: (Point 600 25)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4523	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4524	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4525
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4526	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4527	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4528	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4529
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4530	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4531	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4532	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4533
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4534	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4535
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4536	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4537	self keepSourceSelection value:(self class keepSourceOptions
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4538	indexOf:ClassCategoryReader sourceMode
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4539	ifAbsent:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4540	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4541	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4542	self canLoadBinaries value ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4543	self loadBinaries value:Smalltalk loadBinaries
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4544	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4545	self loadBinaries value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4546	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4547	self hasHistoryManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4548	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4549	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4550	self fullHistoryUpdate value:false
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4551	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4552	self historyLines value:self hasHistoryManager.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4553	self userNameInHistoryHolder value:(HistoryManager enforcedUserName).
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4554
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4555	"Modified: / 04-08-2010 / 18:34:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4556	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4557
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4558	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4559	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4560
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4561	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4562	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4563	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4564	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4565	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4566	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4567	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4568	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4569	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4570	].
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4571	nm := self userNameInHistoryHolder value withoutSeparators.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4572	nm isEmpty ifTrue:[ nm := nil ].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4573	HistoryManager enforcedUserName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4574	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4575	Smalltalk loadBinaries:self loadBinaries value.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4576
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4577	"Modified: / 04-08-2010 / 18:33:20 / cg"
4387 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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
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	canLoadBinaries
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	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4585	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
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	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4588	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4589
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4590	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4591
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4592	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4593	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4594	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 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	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4597	!
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	catchMethodRedefs
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	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4602	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4603	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4604	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4605	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4606	!
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	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4611	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4612	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4613	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4614	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4615	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4616	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4617	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4618	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4619	!
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	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4622
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4623	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4624	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4625
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4626	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4627
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4628	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4629	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4630	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4631	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4632	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4633	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4634
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4635	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4636
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4637	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4638	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4639	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4640	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4641	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4642
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4643	keepSourceSelection
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	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4646	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4647	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4648	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4649	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4650	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4651
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4652	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4653
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4654	loadBinaries isNil ifTrue:[
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4655	self canLoadBinaries value ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4656	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4657	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4658	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4659	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4660	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4661	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4662	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4663
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4664	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4665	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4666
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4667	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4668
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4669	userNameInHistoryHolder isNil ifTrue:[
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4670	userNameInHistoryHolder := '' asValue.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4671	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4672	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4673	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4674
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4675	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4676	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4677
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4678	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4679
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4680	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4681	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4682	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4683
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4684	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4685
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4686	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4687	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4688	((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	4689	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4690	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4691	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4692	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4693	(HistoryManager enforcedUserName ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4694	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4695
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	4696	"Modified: / 04-08-2010 / 18:31:55 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4697	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4698
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4699	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
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	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4702	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4703	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4704
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4705	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4706	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4707
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4708	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4709	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4710	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4711	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4712	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4713
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4714	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4715
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4716	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4717	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	4718	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	4719	@@@@@@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	4720	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	4721	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	4722	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	4723	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	4724	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	4725	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4726
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4727	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4728
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4729	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4730	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4731	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4732
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4733	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4734	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4735
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4736	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4737	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4738	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	4739	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4740	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4741
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4742	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4743
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4744	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4745	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4746	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4747	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4748	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4749	label: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4750	name: 'HTTP Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4751	min: (Point 10 10)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4752	bounds: (Rectangle 0 0 539 630)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4753	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4754	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4755	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4756	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4757	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4758	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4759	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	4760	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4761	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4762	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4763	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4764	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4765	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4766	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4767	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4768	name: 'VerticalPanel4'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4769	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4770	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4771	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4772	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4773	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4774	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4775	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4776	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4777	name: 'Box19'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4778	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4779	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4780	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4781	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4782	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4783	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4784	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	4785	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4786	labelChannel: informationLabel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4787	resizeForLabel: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4788	adjust: left
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4789	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4790	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4791
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4792	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4793	extent: (Point 539 200)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4794	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4795	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4796	name: 'Box18'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4797	extent: (Point 539 20)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4798	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4799	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4800	name: 'Box17'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4801	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4802	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4803	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4804	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4805	label: 'Port:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4806	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4807	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	4808	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4809	adjust: right
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4810	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4811	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4812	name: 'EntryField1'
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4813	layout: (LayoutFrame 40 0 20 0 111 0 42 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4814	enableChannel: hasHTTPServerClass
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4815	model: portNumberChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4816	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4817	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4818	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4819	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4820	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4821	acceptOnPointerLeave: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4822	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4823	(VerticalPanelViewSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4824	name: 'VerticalPanel5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4825	layout: (LayoutFrame 136 0 14 0 -12 1 132 0)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4826	horizontalLayout: fit
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4827	verticalLayout: spreadSpace
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4828	horizontalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4829	verticalSpace: 3
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4830	component:
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4831	(SpecCollection
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4832	collection: (
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4833	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4834	label: 'Create new HTTP Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4835	name: 'Button4'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4836	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4837	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4838	model: createServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4839	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4840	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4841	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4842	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4843	label: 'Create new FastCGI Server'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4844	name: 'Button7'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4845	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4846	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4847	model: createFcgiServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4848	enableChannel: hasFCGIServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4849	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4850	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4851	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4852	label: 'Create Server from Settings File...'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4853	name: 'Button6'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4854	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4855	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4856	model: createServerFromFile
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	4857	enableChannel: hasHTTPServerClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4858	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4859	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4860	(ActionButtonSpec
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4861	label: 'Remove all Servers'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4862	name: 'Button5'
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4863	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	4864	tabable: true
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4865	model: removeAllServers
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4866	enableChannel: hasCreatedServerChannel
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4867	useDefaultExtent: true
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4868	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4869	)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4870
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4871	)
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	4872	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4873	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4874
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4875	)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4876	extent: (Point 539 142)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4877	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4878	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4879
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4880	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	4881	extent: (Point 539 620)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4882	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4883	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4884
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4885	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4886	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4887	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4888
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4889	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4890	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4891	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4892
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4893	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4894
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4895	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4896	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4897	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4898
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4899	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4900	CreatedServers isNil ifTrue:[
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4901	CreatedServers := Set new.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4902	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4903	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4904	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4905
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4906	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4907	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4908	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4909
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4910	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	4911	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4912	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	4913
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4914	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4915
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4916	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4917	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4918
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4919	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4920	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4921	self serverClass runningServers
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4922	removeDependent:self;
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4923	addDependent:self.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4924	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4925	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4926	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4927
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4928	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4929	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4930
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4931	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	4932	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4933
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4934	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4935	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4936
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4937	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4938	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4939
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4940	FCGIServer isNil ifTrue:[
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4941	self warn:'The FCGIServer-class is missing - cannot create server.'.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4942	^ self.
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4943	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4944	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4945
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	4946	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4947	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4948
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4949	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4950	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4951
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4952	HTTPServer isNil ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4953	self warn:'The HTTPServer-class is missing - cannot create server.'.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4954	^ self.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4955	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4956	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4957
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	4958	"Modified: / 25-01-2007 / 16:41:38 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4959	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4960
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	4961	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4962	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4963
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	4964	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	4965	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4966	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4967	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4968	].
8593 c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4969	HTTPServerSettingsAppl notNil ifTrue:[
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4970	settingsApp := HTTPServerSettingsAppl basicNew.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4971	settingsApp settingsDialog:self settingsDialog.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4972	settingsApp httpServerInstance:aServerInstance.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4973	settingsApp defaultSettingsApplication:false.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4974	settingsApp basicInitialize.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4975	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4976	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4977	newItem application:settingsApp.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4978	self createdServerChanged.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4979	self settingsDialog expandItemForApplication:self.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4980	settingsApp readSettings.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4981	settingsApp initialize.
c96a6aab45b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 8553 diff changeset	4982	].
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4983	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	4984
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4985	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4986
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4987	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4988
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4989	serverClass isNil ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4990	self warn:'The server class is missing - cannot create server.'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4991	^ self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4992	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4993
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4994	self withWaitCursorDo:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4995	port := self portNumberChannel value.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4996	runningServers := serverClass runningServers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4997	runningServers notEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4998	runningServers do:[:aServer \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	4999	aServer port = port asInteger ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5000	Dialog warn:'There is already a server for port ', port asString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5001	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5002	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5003	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5004	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5005	runningServers addDependent:self.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5006
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5007	(port = serverClass defaultPort) ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5008	newServer := serverClass newServerWithDefaultServiceListOn:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5009	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5010	newServer := serverClass newServerOnPort:port.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5011	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5012	self class addCreatedServer:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5013	self createServerApplicationFor:newServer.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5014	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5015	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5016
5049 3df132763949 instable state penk parents: 5044 diff changeset	5017	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5018	\|serverClass newServer fileName runningServers newServerPort answer\|
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.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5021	fileName := Dialog requestFileName:'Select a Server Settings File'
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5022	default:(serverClass settingsFilename)
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5023	pattern:'*.xml'.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5024
5049 3df132763949 instable state penk parents: 5044 diff changeset	5025	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5026	self withWaitCursorDo:[
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5027	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5028	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	5029	newServerPort := newServer port.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5030	runningServers := serverClass runningServers.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5031	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	5032	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	5033	answer := Dialog
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5034	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	5035	initialAnswer:self portNumberChannel value printString.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5036	answer isEmptyOrNil ifTrue:[
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5037	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	5038	].
8674 58aef376b077 asNumber eliminated Claus Gittinger <cg@exept.de> parents: 8659 diff changeset	5039	newServerPort := Number readFromString:answer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	5040	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5041	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	5042	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	5043	runningServers addDependent:self.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5044	self class addCreatedServer:newServer.
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5045	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	5046	].
3df132763949 instable state penk parents: 5044 diff changeset	5047	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5048
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5049	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	5050	!
3df132763949 instable state penk parents: 5044 diff changeset	5051
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	5052	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5053	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5054
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5055	serverClass := self 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 notNil and:[ serverClass isLoaded ]) ifFalse:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5058	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5059	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5060
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5061	serverToStart := serverClass runningServers asSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5062	serverToStart addAll:self class createdServers.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5063	serverToStart isEmpty ifTrue:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5064	^ self
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5065	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5066	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5067	serverToStart do:[:eachServerInstance \|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5068	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5069	]
7607 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	"Modified: / 25-01-2007 / 16:40:21 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5072	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5073
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5074	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5075	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5076
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5077	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5078	^ serverClass notNil
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5079	and:[ serverClass runningServers
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5080	contains:[:eachServer\| eachServer port = newServerPort]].
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5081
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5082	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	5083	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	5084
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5085	removeAllServerSubApplications
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5086	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5087	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5088
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5089	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5090	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5091
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5092	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5093	serverClass isLoaded ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5094	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5095	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	5096	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5097	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5098	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5099
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5100	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5101	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5102
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5103	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5104	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5105
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5106	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5107	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5108	instances := serverClass runningServers asSet.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5109	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5110	collect:[:aApp\| aApp httpServerInstance]).
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	5111	highestUsedPortNr := instances
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5112	inject:(serverClass defaultPort - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5113	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5114
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5115	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5116	] ifFalse:[
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5117	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5118	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	5119	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5120
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5121	"Modified: / 25-01-2007 / 16:38:45 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5122	! !
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	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5125
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5126	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5127	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5128	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5129	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5130	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5131	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5133	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5134	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5135	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	5136	default:
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5137	'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	5138	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	5139
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5140	Once created, select the individual server in the left tree,
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5141	configure its services, and finally start it up.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5142	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5143
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5144	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5145
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5146	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5147	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5148	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5149	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5150	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5151
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5152	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5153
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5154	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5155
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5156	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5157	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5158	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5160	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	5161	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5162	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5163	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5164
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5165	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5166	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5167
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5168	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5169	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5170	self runningServersChanged.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5171	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5172	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5173	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5174
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5175	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5176	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5177
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5178	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5179
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5180	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5181	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5182	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5183
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5184	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5186	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5187	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5188
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5189	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5190	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5191	serverClass runningServers removeDependent:self.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	5192	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5193
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	5194	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5195	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5196
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5197	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5198
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5199	hasCreatedServer
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5200	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5201	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5202	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5203
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5204	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5205	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5206
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5207	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5208	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5209
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5210	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5211	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5212
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5213	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5214	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5215
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5216	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5217
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5218	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5219	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5220
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5221	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5222	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5223	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5224	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5225	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5226
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5227	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5228	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5229	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5230
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5231	serverClass
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5232	"answer the default class for instanciating servers.
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5233	Note that we may instanciate FCGIServer as well"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	5234
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	5235	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5236	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5237
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5238	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5239	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5240
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	5241	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5242	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	5243
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5244	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5245
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5246	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5247	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5248
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5249	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5250	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5251
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5252	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5254	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5255	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5256	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5258	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5259	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5261	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5262	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5263	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5264	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5265	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5267	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5269	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5270	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5271	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5272	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5273	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5274	label: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5275	name: 'Keyboard Mapping Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5276	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5277	bounds: (Rectangle 0 0 491 653)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5278	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5279	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5280	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5281	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5282	(VariableVerticalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5283	name: 'VariableVerticalPanel1'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5284	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	5285	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5286	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5287	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5288	(VariableHorizontalPanelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5289	name: 'VariableHorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5290	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5291	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5292	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5293	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5294	name: 'RawKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5295	model: selectedRawKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5296	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5297	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5298	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5299	sequenceList: rawKeyList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5300	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5301	(SequenceViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5302	name: 'FunctionKeyList'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5303	model: selectedFunctionKey
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5304	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5305	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5306	useIndex: false
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5307	sequenceList: functionKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5309	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5310
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5311	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5312	handles: (Any 0.5 1.0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5313	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5314	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5315	name: 'Box1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5316	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5317	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5318	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5319	(TextEditorSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5320	name: 'MacroText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5321	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	5322	model: macroTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5323	hasHorizontalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5324	hasVerticalScrollBar: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5325	isReadOnly: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5326	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5327	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5328	label: 'Macro text (if any):'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5329	name: 'MacroTextLabel'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5330	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	5331	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5332	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5334	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5336	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5337	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5338	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5340	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5341	handles: (Any 0.5 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5342	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5343	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5344	label: 'NoticeText'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5345	name: 'Text'
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5346	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	5347	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5348	labelChannel: labelTextHolder
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5349	resizeForLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5350	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5351	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5352	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5354	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5355	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5356	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5358	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5359
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5360	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5361	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5362	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5363
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5364	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5365	"nothing done here"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5366	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5368	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5369
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5370	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5371	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5372	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5373	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5374	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5375	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5376
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5377	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5378	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5379	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5380	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5381	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5382	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	5383
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5384	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5387	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5388	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5389	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5390
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5391	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5393	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5394	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5395	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5396	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5397	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5399	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5401	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5402	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5403	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5405	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5406	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5408	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5410	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5411	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5413	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5414	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5419	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5422	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5423	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	5424
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5425	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5428	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430	\|f macro indent\|
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	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	].
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	5436	macro := currentUserPrefs functionKeySequences
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	stripped := element withoutLeadingSeparators.
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5445	stripped isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5449	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5450	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5453	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5454	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5455	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5458	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5460	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5461	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5462	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5464	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5468	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5473	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5474	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5475	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5476
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	5477	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5478	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5480	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5487	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5491	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5493	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5494
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5495	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5496	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5497	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5498
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5501	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5503	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5505	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506
8679 d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	5507	rawKeyList := (mappings keys collect:[:key \| key asString] as:Array) sort.
d5bf7fa670c5 use collect:as: Claus Gittinger <cg@exept.de> parents: 8674 diff changeset	5508	functionKeyList := (mappings values asSet collect:[:key \| key asString] as:Array) sort.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5510	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5514
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5515	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5518	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5520	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5521
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5522	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5523	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5524
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5525	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5526	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5527
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5528	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5530	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5537	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5538	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5539	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5540	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5543	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5546	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5547	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5548	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5549	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5550	label: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5551	name: 'Language Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5552	min: (Point 10 10)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5553	bounds: (Rectangle 0 0 571 878)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5555	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5556	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5557	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5558	(LabelSpec
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5559	label: 'Current Language:'
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5560	name: 'Label1'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	5561	layout: (LayoutFrame 0 0 0 0 -233 1 20 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5562	translateLabel: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5563	labelChannel: currentLanguageLabel
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5564	adjust: right
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5565	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5566	(LabelSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5567	label: 'Label'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5568	name: 'CurrentLang'
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5569	layout: (LayoutFrame -233 1 0 0 0 1 20 0)
6058 d0add4dd0d80 * empty log message * Claus Gittinger <cg@exept.de> parents: 6037 diff changeset	5570	style: (FontDescription arial bold roman 10 nil)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5571	translateLabel: true
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5572	labelChannel: currentFlagAndLanguageChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5573	adjust: left
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5574	)
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5575	(TextEditorSpec
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5576	name: 'TextEditor1'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5577	layout: (LayoutFrame 0 0 24 0 0 1.0 181 0)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5578	style: (FontDescription helvetica medium roman 10 #'iso10646-1')
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5579	model: noticeLabelHolder
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5580	hasHorizontalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5581	hasVerticalScrollBar: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5582	miniScrollerHorizontal: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5583	autoHideScrollBars: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5584	isReadOnly: true
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5585	hasKeyboardFocusInitially: false
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5586	viewClassName: 'TextView'
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5587	postBuildCallback: postBuildHelpLabel:
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5588	)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5589	(InputFieldSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5590	name: 'EntryField1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5591	layout: (LayoutFrame 2 0.0 180 0 -2 1.0 204 0)
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5592	model: languageHolder
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5593	acceptOnReturn: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5594	acceptOnTab: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5595	acceptOnLostFocus: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5596	acceptOnPointerLeave: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5597	)
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5598	(SequenceViewSpec
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5599	name: 'List1'
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	5600	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	5601	model: languageIndexHolder
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5602	hasHorizontalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5603	hasVerticalScrollBar: true
f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5604	doubleClickSelector: doubleClick:
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5605	useIndex: true
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5606	sequenceList: languageListHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5607	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5608	(HorizontalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5609	name: 'HorizontalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5610	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	5611	horizontalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5612	verticalLayout: center
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5613	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5614	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5615	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5616	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5617	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5618	(ActionButtonSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5619	label: 'Reread Language Resources'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5620	name: 'RereadResourcesButton'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5621	translateLabel: true
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5622	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	5623	model: rereadResourceFiles
5556 f9583d708764 i18n Claus Gittinger <cg@exept.de> parents: 5551 diff changeset	5624	useDefaultExtent: true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5625	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5626	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5627
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5628	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5629	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5630	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5632	)
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5636	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5637
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5638	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5639	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5641	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5642	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5644	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5645
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5646	basicReadSettings
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5647	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5648	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5649	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5650
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	5651	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5652	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5653
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5654	basicSaveSettings
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5655	\|fontPref fontPrefs language oldLanguage languageString territory enc
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5656	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5657
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5658	self withWaitCursorDo:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5659	languageString := translatedLanguages at:(self languageIndexHolder value).
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	5660	language := self languageHolder value asString string.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5661	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5662	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5663	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5664	territory := l at:2.
5837 470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5665	territory isNil ifTrue:[
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5666	territory := language string copyTo:2
470e67fd9d0a * empty log message * Claus Gittinger <cg@exept.de> parents: 5825 diff changeset	5667	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5668	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5670	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5671	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5672	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5673
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	5674	oldLanguage := UserPreferences current language.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5675	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5676	ResourcePack flushCachedResourcePacks.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5677
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5678	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5679	resources := AbstractLauncherApplication classResources.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5680	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5681	fontPrefs isNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5682	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5683	fontPref isNil ifTrue:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5684	fontPrefs := #(#'iso10646-1')
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5685	] ifFalse:[
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5686	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5687	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5688	].
5540 9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5689
9e1262cf0612 * empty log message * Claus Gittinger <cg@exept.de> parents: 5536 diff changeset	5690	"/ 'normalize' names of encodings
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5691	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	5692	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
5700 61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5693	fontPrefs isEmpty ifTrue:[
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5694	fontPrefs := #(#'iso10464-1')
61de7f81a8fb * empty log message * Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	5695	].
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5696	fontPref := fontPrefs first.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5697
5580 11cec5eb8c93 * empty log message * Claus Gittinger <cg@exept.de> parents: 5576 diff changeset	5698	Smalltalk setLanguage:#en.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5699	ResourcePack flushCachedResourcePacks.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5700	resources := AbstractLauncherApplication classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5702	switch := true.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5703	anyWrong := false.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5704	(Array
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5705	with:MenuView defaultFont
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5706	"/ with:ListView defaultFont
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5707	with:EditTextView defaultFont
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5708	with:Button defaultFont)
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5709	do:[:fn \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5710	enc := fn encoding.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5711	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5712	ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5713	anyWrong := true
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5714	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5715	].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5716	anyWrong ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5717	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5718	screen := Screen current.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5719	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5720	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5721	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5722	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5723
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5724	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5725	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5726	screen flushListOfAvailableFonts.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5727	matchingFonts := screen listOfAvailableFonts
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5728	select:[:f \| fontPrefs contains:[:pref \|
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5729	CharacterEncoder
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5730	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5731	].
6264 039dc5c1710b slight code cleanup Claus Gittinger <cg@exept.de> parents: 6256 diff changeset	5732	matchingFonts isEmpty ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5733	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5734	confirm:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5735	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	5736	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5737	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5738	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5739	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5740	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5741	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5742	confirmWithCancel:(resources
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5743	string:'Some font(s) is not %1-encoded.\\Change it ?'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5744	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5745	labels:(resources
5109 27daba118da2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5101 diff changeset	5746	array:#('Cancel' 'No' 'Yes'))
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5747	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5748	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5749	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5750	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5751	answer ifTrue:[
5495 61664e06a5d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 5479 diff changeset	5752	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5753	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5755	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5756	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5757
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5758	switch ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5759	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5760	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5761	ResourcePack flushCachedResourcePacks.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5762	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5764	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5765	switch ifTrue:[
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	5766	(dialog := settingsDialog) notNil ifTrue:[
5212 5ddf75438c57 checkin from browser Claus Gittinger <cg@exept.de> parents: 5181 diff changeset	5767	dialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5768	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	5769	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5770	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5771	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5772	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5773	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5774
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	5775	"Modified: / 19-10-2006 / 22:17:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5776	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5778	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5779	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5780	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5781
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5782	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5783	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5784	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5785	self withWaitCursorDo:[
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5786	self updateForChangedLanguage.
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	5787	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5788
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5789	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5790	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5791
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5792	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5793	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5794	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5795
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5796	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5797	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	5798	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5799	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5800	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5801	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5802	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5803	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5805	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5806
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5807	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5808	currentFlagAndLanguageChannel isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5809	currentFlagAndLanguageChannel := self currentLanguage asValue.
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	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5812	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5813
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5814	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5815	currentLanguageLabel isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5816	currentLanguageLabel := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5817	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5818	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5819	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5820	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5821
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5822	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5823	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5824	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5825	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5827	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5828	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5829
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5830	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5831	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5832
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5833	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5834	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5835	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5836	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5837
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5838	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5839	languageIndexHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5840	languageIndexHolder := (self currentLanguageIndex) asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5841	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5842	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5843	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5844	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5845
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5846	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5847	languageListHolder isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5848	languageListHolder := self languageList asValue.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5849	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5850	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5851	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5852
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5853	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5854	noticeLabelHolder isNil ifTrue:[
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5855	noticeLabelHolder := ValueHolder new.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5856	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5857	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5858	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5859	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5860
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5861	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5862	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5863	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5864
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5865	setNoticeLabel
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5866	noticeLabelHolder
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	5867	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5868	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5869
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5870	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5871
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5872	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5873	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5874	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5875
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5876	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5877
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5878	initialize
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5879	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5880	super initialize.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5881	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5882
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5883	initializeLanguages
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5884	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages languages listOfLanguageKeys\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5885
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	5886	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5887	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5888	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5889	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5890
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5891	(perLanguageResources notNil
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5892	and:[ (perLanguageResources includesKey:#en) not
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5893	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5894	ifTrue:[
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5895	perLanguageResources := nil.
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5896	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	5897
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5898	perLanguageResources isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5899	perLanguageResources := Dictionary new.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5900
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5901	listOfLanguageKeys do:[:eachLang \|
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5902	savedLanguage := Language.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5903	savedLanguageTerritory := LanguageTerritory.
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5904	ResourcePack flushCachedResourcePacks.
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	\|rsc lang terr\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5907
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5908	lang := terr := eachLang.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5909	(lang includes:$_) ifTrue:[
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5910	terr := lang copyFrom:4.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5911	lang := lang copyTo:2.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5912	].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5913	Language := lang asSymbol.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5914	LanguageTerritory := terr asSymbol.
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5915	rsc := ResourcePack for:(self class) cached:false.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5916	perLanguageResources at:eachLang asSymbol put:rsc.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5917	] ensure:[
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5918	Language := savedLanguage.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5919	LanguageTerritory := savedLanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5920	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5921	].
5573 71a51c6df6a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 5569 diff changeset	5922	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5923	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	5924
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5925	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5926
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5927	enLanguages := listOfLanguageKeys
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5928	collect:[:lang \| \|item\|
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5929	item := enResources at:('LANG_' , lang) default:nil.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5930	item isNil ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5931	lang
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5932	] ifFalse:[
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5933	item isString ifTrue:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5934	item
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5935	] ifFalse:[
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5936	item at:1
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5937	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5938	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5939	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5940
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5941	nativeLanguages := listOfLanguageKeys
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5942	collect:[:lang \| \|item enLang\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5943	item := enResources at:('LANG_' , lang) default:nil.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5944	item isNil ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5945	enLang := lang
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5946	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5947	item isString ifTrue:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5948	enLang := item
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5949	] ifFalse:[
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5950	enLang := item at:1
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5951	]
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5952	].
5583 2da80c3bc608 * empty log message * Claus Gittinger <cg@exept.de> parents: 5580 diff changeset	5953	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	5954	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5955
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5956	languages := enLanguages
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5957	collect:[:enLang \| \|item\|
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5958	item := resources at:enLang default:enLang.
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5959	].
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5960
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5961	flags := listOfLanguageKeys collect:[:lang \| \|item coll\|
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5962	item := resources at:('FLAG_' , lang) default:nil.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5963	item notNil ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5964	item
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5965	] ifFalse:[
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5966	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5967	(coll size > 1
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5968	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5969	ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5970	item
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5971	] ifFalse:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	5972	item := resources string:('LANG_' , lang).
5536 83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5973	item isArray ifTrue:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5974	item at:2
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5975	] ifFalse:[
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5976	nil
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5977	]
83213ff5b566 language setting Claus Gittinger <cg@exept.de> parents: 5495 diff changeset	5978	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5979	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5980	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5981	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5982	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5983	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5984	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5985	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5986	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5987	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5988	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5989	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5990	].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	5991
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5992
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5993	translatedLanguages := (1 to:languages size) collect:[:idx \|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5994	\|l eL nL s\|
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5995
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5996	l := languages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5997	eL := enLanguages at:idx.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	5998	nL := nativeLanguages at:idx.
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	5999
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6000	s := nL.
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6001	eL ~= nL ifTrue:[
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6002	s := s , ' / ' , eL
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6003	].
5734 67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6004	(l ~= nL and:[l ~= eL]) ifTrue:[
67a9878b31bc * empty log message * Claus Gittinger <cg@exept.de> parents: 5721 diff changeset	6005	s := s , ' / ' , l
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6006	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6007	s
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6008	].
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	6009
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	6010	languageList := translatedLanguages
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	6011	with:flags
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	6012	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	6013
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	6014	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6015	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6016
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6017	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6018	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6019	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6020	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6022	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6023
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6024	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6025	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6026	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6027
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6028	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6029	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6030	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	6031
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6032	currentLanguageIndex
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6033	\| langIdx \|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6034
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6035	(Language ~= LanguageTerritory) ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6036	langIdx := listOfLanguages indexOf:(Language , '-' , LanguageTerritory) ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6037	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6038	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6039	langIdx := listOfLanguages indexOf:Language ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6040	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6041	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6042	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6043	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6044	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6045
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6046	langIdx isNil ifTrue:[
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6047	langIdx := 1.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6048	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6049	]
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6050	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	6051	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6052	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6053
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6054	hasUnsavedChanges
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	6055	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	6056
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	6057	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	6058	"Modified: / 24-08-2010 / 18:50:11 / sr"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6059	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6060
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6061	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6062
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6063	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6064	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6065
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6066	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6067	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6068
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6069	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6070
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6071	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6072	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6073	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6074
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6075	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6076	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6077
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6078	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6079	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6080	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6081	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6082	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6083
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6084	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6085
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6086	^
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6087	#(FullSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6088	name: windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6089	window:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6090	(WindowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6091	label: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6092	name: 'Memory Manager Settings'
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6093	min: (Point 10 10)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6094	bounds: (Rectangle 0 0 705 722)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6095	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6096	component:
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6097	(SpecCollection
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6098	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6099	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6100	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6101	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6102	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6103	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6104	labelChannel: warningLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6105	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6106	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6107	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6108	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6109	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6110	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6111	verticalLayout: top
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6112	horizontalSpace: 0
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6113	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6114	ignoreInvisibleComponents: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6115	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6116	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6117	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6118	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6119	name: 'NewSpaceSizeBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6120	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6121	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6122	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6123	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6124	name: 'EntryField23'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6125	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6126	model: newSpaceSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6127	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6128	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6129	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6130	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6131	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6132	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6133	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6134	label: 'Size of NewSpace:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6135	name: 'Label44'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6136	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6137	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6138	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6139	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6140	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6141	label: '(Size of Space where new objects are created)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6142	name: 'Label45'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6143	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6144	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6145	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6146	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6147	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6148	name: 'Separator24'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6149	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6150	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6151	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6152
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6153	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6154	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6155	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6156	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6157	name: 'MaximumMemoryLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6158	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6159	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6160	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6161	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6162	name: 'EntryField24'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6163	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6164	model: maxOldSpace
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6165	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6166	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6167	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6168	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6169	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6170	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6171	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6172	label: 'Maximum Memory Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6173	name: 'Label46'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6174	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6175	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6176	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6177	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6178	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6179	label: '(Never allocate more than this amount of memory)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6180	name: 'Label47'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6181	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6182	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6183	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6184	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6185	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6186	name: 'Separator25'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6187	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6188	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6189	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6190
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6191	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6192	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6193	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6194	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6195	name: 'QuickAllocationLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6196	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6197	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6198	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6199	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6200	name: 'EntryField14'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6201	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6202	model: fastMoreLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6203	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6204	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6205	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6206	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6207	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6208	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6209	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6210	label: 'Quick Allocation Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6211	name: 'Label26'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6212	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6213	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6214	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6215	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6216	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6217	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6218	name: 'Label27'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6219	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6220	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6221	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6222	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6223	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6224	name: 'Separator15'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6225	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6226	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6227	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6228
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6229	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6230	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6231	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6232	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6233	name: 'IncrementalGCAllocationTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6234	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6235	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6236	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6237	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6238	name: 'EntryField25'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6239	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6240	model: igcLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6241	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6242	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6243	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6244	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6245	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6246	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6247	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6248	label: 'Incremental GC Allocation Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6249	name: 'Label48'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6250	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6251	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6252	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6253	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6254	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6255	label: '(Start IGC whenever this amount has been allocated)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6256	name: 'Label49'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6257	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6258	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6259	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6260	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6261	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6262	name: 'Separator26'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6263	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6264	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6265	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6266
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6267	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6268	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6269	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6270	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6271	name: 'IncrementalGCFreespaceTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6272	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6273	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6274	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6275	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6276	name: 'EntryField26'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6277	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6278	model: igcFreeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6279	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6280	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6281	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6282	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6283	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6284	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6285	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6286	label: 'Incremental GC Freespace Trigger:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6287	name: 'Label50'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6288	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6289	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6290	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6291	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6292	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6293	label: '(Start IGC whenever freespace drops below this)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6294	name: 'Label51'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6295	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6296	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6297	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6298	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6299	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6300	name: 'Separator27'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6301	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6302	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6303	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6304
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6305	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6306	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6307	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6308	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6309	name: 'GCAmountBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6310	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6311	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6312	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6313	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6314	name: 'EntryField17'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6315	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6316	model: igcFreeAmount
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6317	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6318	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6319	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6320	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6321	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6322	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6323	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6324	label: 'Incremental GC Amount:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6325	name: 'Label32'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6326	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6327	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6328	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6329	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6330	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6331	label: '(Try to keep this amount for peak requests)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6332	name: 'Label33'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6333	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6334	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6335	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6336	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6337	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6338	name: 'Separator18'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6339	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6340	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6341	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6342
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6343	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6344	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6345	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6346	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6347	name: 'OldspaceIncrementBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6348	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6349	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6350	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6351	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6352	name: 'EntryField18'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6353	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6354	model: oldIncr
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6355	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6356	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6357	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6358	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6359	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6360	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6361	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6362	label: 'Oldspace Increment:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6363	name: 'Label34'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6364	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6365	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6366	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6367	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6368	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6369	label: '(Increase oldSpace in chunks of this size)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6370	name: 'Label35'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6371	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6372	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6373	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6374	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6375	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6376	name: 'Separator19'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6377	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6378	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6379	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6380
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6381	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6382	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6383	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6384	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6385	name: 'OldSpaceCompressLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6386	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6387	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6388	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6389	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6390	name: 'EntryField19'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6391	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6392	model: compressLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6393	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6394	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6395	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6396	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6397	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6398	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6399	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6400	label: 'Oldspace Compress Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6401	name: 'Label36'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6402	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6403	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6404	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6405	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6406	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6407	label: '(Use 2-pass compressing GC if > 0 and more memory is in use)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6408	name: 'Label37'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6409	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6410	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6411	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6412	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6413	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6414	name: 'Separator20'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6415	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6416	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6417	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6418
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6419	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6420	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6421	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6422	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6423	name: 'StackLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6424	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6425	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6426	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6427	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6428	name: 'EntryField20'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6429	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6430	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6431	model: stackLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6432	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6433	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6434	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6435	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6436	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6437	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6438	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6439	label: 'Stack Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6440	name: 'Label38'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6441	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6442	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6443	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6444	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6445	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6446	label: '(Trigger recursionInterrupt if more stack is used by a process)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6447	name: 'Label39'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6448	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6449	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6450	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6451	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6452	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6453	name: 'Separator21'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6454	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6455	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6456	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6457
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6458	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6459	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6460	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6461	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6462	name: 'CodeLimitBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6463	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6464	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6465	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6466	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6467	name: 'EntryField21'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6468	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6469	enableChannel: supportsJustInTimeCompilation
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6470	model: codeLimit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6471	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6472	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6473	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6474	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6475	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6476	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6477	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6478	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6479	name: 'Label40'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6480	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6481	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6482	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6483	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6484	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6485	label: '(Flush dynamic compiled code to stay within this limit)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6486	name: 'Label41'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6487	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6488	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6489	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6490	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6491	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6492	name: 'Separator22'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6493	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6494	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6495	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6496
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6497	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6498	extent: (Point 705 30)
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	(ViewSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6501	name: 'Box1'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6502	component:
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6503	(SpecCollection
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6504	collection: (
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6505	(InputFieldSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6506	name: 'EntryField27'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6507	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6508	enableChannel: supportsJustInTimeCompilation
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6509	model: methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6510	type: fileSize
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6511	acceptOnReturn: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6512	acceptOnTab: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6513	acceptOnLostFocus: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6514	acceptOnPointerLeave: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6515	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6516	(LabelSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6517	label: 'Method Code Size Limit:'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6518	name: 'Label52'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6519	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6520	translateLabel: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6521	adjust: right
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6522	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6523	(LabelSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6524	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	6525	name: 'Label53'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6526	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6527	translateLabel: true
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6528	adjust: left
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6529	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6530	(DividerSpec
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6531	name: 'Separator28'
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6532	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6533	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6534	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6535
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6536	)
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6537	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6538	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6539	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6540	name: 'CodeTriggerBox'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6541	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6542	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6543	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6544	(InputFieldSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6545	name: 'EntryField22'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6546	layout: (LayoutFrame 270 0 3 0 360 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6547	model: codeTrigger
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6548	type: fileSize
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6549	acceptOnReturn: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6550	acceptOnTab: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6551	acceptOnLostFocus: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6552	acceptOnPointerLeave: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6553	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6554	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6555	label: 'Dynamic code Limit:'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6556	name: 'Label42'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6557	layout: (LayoutFrame 0 0 3 0 265 0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6558	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6559	adjust: right
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6560	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6561	(LabelSpec
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6562	label: '(Start incremental GC whenever this amount of code has been allocated)'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6563	name: 'Label43'
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6564	layout: (LayoutFrame 364 0.0 3 0 0 1.0 23 0)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6565	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6566	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6567	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6568	(DividerSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6569	name: 'Separator23'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6570	layout: (LayoutFrame 0 0.0 0 0 0 1.0 3 0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6571	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6572	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6573
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6574	)
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6575	extent: (Point 705 30)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6576	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6577	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6578
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	6579	)
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6580	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6581	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6582
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6583	)
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	6584	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6589	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6590	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6591	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6592	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6593	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6594	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6595	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6596	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6597
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6598	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6599	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6600	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6601	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6602	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6603	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6604	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6605	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6606	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6607
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6608	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6609
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6610	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6611	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6613	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6614	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6615	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6616	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6617	newSpaceSize
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6618	maxOldSpace
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6619	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6620	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6621
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6622	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6623	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6624	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6625	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6626	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6627	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6628	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6629	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6630	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6631
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6632	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6633
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6634	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6639	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6640
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6641	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6642	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6643	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6644	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6645	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6646	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6648	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6649
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6650	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6651	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6652	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6653	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6654	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6655	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6656
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6657	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6658
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6659	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6660	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6661	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6662	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6663	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6664	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6665
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6666	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6667
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6668	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6669	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6670	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6671	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6672	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6673	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6674
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6675	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6676
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6677	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6678	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6679	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6680	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6681	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6682	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6684	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6685
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6686	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6687	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6688	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6689	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6690	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6691	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6692
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6693	igcLimit
5029 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	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6696	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6697	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6698	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6699	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6700	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6701
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6702	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6703
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6704	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6705	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6706	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6707	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6708	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6709	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6710
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6711	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6712
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6713	methodCodeSizeLimit isNil ifTrue:[
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6714	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6715	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6716	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6717	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6718
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6719	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6720	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6721
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6722	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6723
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6724	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6725	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6726	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6727	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6728	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6729	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6731	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6733	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6734	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6735	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6736	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6737	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6738	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6739
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6740	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6742	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6743	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6744	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6746	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6747	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6748
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6749	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6751	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6753
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6754	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6756	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6757	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6758	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6759	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6760	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6761
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6762	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6763
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6764	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6765	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6766	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6767
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6768	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6769
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6770	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6771	super initialize.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	6772	self warningLabelHolder
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6773	value:(StringCollection
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6774	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6775	with:(resources string:'You have been warned.') allBold
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	6776	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6777	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6779	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6780
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6781	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6782	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6783	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6784	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6785	newSpaceSize
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6786	maxOldSpace
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6787	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	6788	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6789
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6790	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6791	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6792	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6793	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6794	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6795	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6796	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6797	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6798	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6799
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6800	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6801	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6802
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	6803	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6804	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6805
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6806	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6807
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6808	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6809	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6810	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6811
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6812	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6813	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6814
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6815	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6816	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6817	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6818	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6819	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6820
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6821	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6822
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6823	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6824	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6825	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	6826	@@!!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	6827	]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	6828	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	6829	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6830
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6831	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6832
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6833	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6834	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6835	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6836
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6837	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6838	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6839
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6840	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6841	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6842	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6843	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6844	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6845
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6846	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6847
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6848	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6849	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6850	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6851	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6852	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6853	label: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6854	name: 'Communication Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6855	min: (Point 10 10)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6856	bounds: (Rectangle 0 0 732 558)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6857	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6858	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6859	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6860	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6861	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6862	name: 'VerticalPanel1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6863	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	6864	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6865	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6866	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6867	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6868	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6869	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	6870	collection: (
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	6871	(FramedBoxSpec
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6872	label: 'SMTP Server'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6873	name: 'SMTPServerBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6874	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6875	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6876	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6877	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6878	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6879	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6880	name: 'Box5'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6881	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6882	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6883	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6884	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6885	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6886	label: 'SMTP Server:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6887	name: 'SMTPLabel'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6888	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6889	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6890	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6891	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6892	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6893	name: 'SMTPServer'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6894	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6895	model: smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6896	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6897	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6898	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6899	acceptOnPointerLeave: false
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6900	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6901	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6902
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6903	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6904	)
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	extent: (Point 732 58)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6909	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6910	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6911	label: 'Window migration'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6912	name: 'WindowMicrationSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6913	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6914	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6915	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6916	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6917	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6918	(VerticalPanelViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6919	name: 'VerticalPanel2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6920	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6921	horizontalLayout: left
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6922	verticalLayout: center
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6923	horizontalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6924	verticalSpace: 3
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6925	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6926	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6927	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6928	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6929	name: 'Box2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6930	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6931	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6932	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6933	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6934	label: 'Window migration enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6935	name: 'CheckBox2'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6936	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6937	enableChannel: hasWindowMigrationServer
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6938	model: windowMigrationEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6939	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6940	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6941	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6942
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6943	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6944	extent: (Point 696 23)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6945	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6946	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6947	name: 'Box3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6948	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6949	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6950	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6951	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6952	label: 'Password check'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6953	name: 'CheckBox3'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6954	layout: (LayoutFrame 5 0 -2 0 600 0 20 0)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6955	enableChannel: enablePasswordCheck
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6956	model: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6957	translateLabel: true
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	extent: (Point 696 22)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6963	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6964	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6965	name: 'Box4'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6966	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6967	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6968	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6969	(LabelSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6970	label: 'Password:'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6971	name: 'Label3'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6972	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6973	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6974	adjust: right
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6975	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6976	(InputFieldSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6977	name: 'EntryField1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6978	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6979	enableChannel: windowMigrationAuthenticate
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6980	model: windowMigrationPassword
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6981	type: password
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6982	acceptOnReturn: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6983	acceptOnTab: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6984	acceptOnLostFocus: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6985	acceptOnPointerLeave: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6986	)
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	extent: (Point 696 22)
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	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6996	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6997
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	6998	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	6999	extent: (Point 732 115)
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7000	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7001	(FramedBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7002	label: 'Remote Browsing'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7003	name: 'RemoteBrowsingSetupBox'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7004	labelPosition: topLeft
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7005	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7006	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7007	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7008	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7009	(ViewSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7010	name: 'Box1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7011	layout: (LayoutFrame 0 0 5 0 0 1 28 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7012	component:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7013	(SpecCollection
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7014	collection: (
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7015	(CheckBoxSpec
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7016	label: 'Remote browsing enabled'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7017	name: 'CheckBox1'
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7018	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7019	enableChannel: hasRemoteBrowsingSupport
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7020	model: remoteBrowsingEnabled
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7021	translateLabel: true
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7022	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7023	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7024
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7025	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7026	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7027	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7028
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7029	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7030	extent: (Point 732 59)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7031	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7032	(FramedBoxSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7033	label: 'SmallTeam Change Distribution'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7034	name: 'SmallTeamSetupBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7035	visibilityChannel: managerIsCVSSourceCodeManager
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7036	labelPosition: topLeft
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7037	translateLabel: true
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7038	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7039	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7040	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7041	(ViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7042	name: 'enableBox'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7043	layout: (LayoutFrame 0 0 8 0 0 1 31 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7044	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7045	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7046	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7047	(CheckBoxSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7048	label: 'SmallTeam Server enabled'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7049	name: 'CheckBox4'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7050	layout: (LayoutFrame 5 0 0 0 600 0 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	7051	enableChannel: smallTeamServerAvailable
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7052	model: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7053	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7054	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7055	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7056
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7057	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7058	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7059	(LabelSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7060	label: 'SmallTeam Hosts:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7061	name: 'smallTeamHostsLabel'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7062	layout: (LayoutFrame 0 0.0 37 0 60 0.25 59 0)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7063	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7064	adjust: right
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7065	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7066	(SequenceViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7067	name: 'smallTeamHostsList'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7068	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7069	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7070	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7071	model: selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7072	hasHorizontalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7073	hasVerticalScrollBar: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7074	miniScrollerHorizontal: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7075	useIndex: false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7076	sequenceList: listOfSmallTeamHosts
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	(LabelSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7079	label: 'Host:'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7080	name: 'hostLabel'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7081	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	7082	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7083	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7084	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7085	(InputFieldSpec
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7086	name: 'smallTeamHostEntryField'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7087	layout: (LayoutFrame 64 0.25 138 0 0 1 160 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7088	enableChannel: smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7089	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7090	model: smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7091	acceptChannel: acceptChannel
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	7092	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7093	)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7094	(HorizontalPanelViewSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7095	name: 'HorizontalPanel2'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7096	layout: (LayoutFrame 64 0.25 165 0 -1 1 190 0)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7097	horizontalLayout: fitSpace
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7098	verticalLayout: center
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7099	horizontalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7100	verticalSpace: 3
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7101	component:
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7102	(SpecCollection
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7103	collection: (
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7104	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7105	label: 'Add'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7106	name: 'addButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7107	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7108	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7109	model: addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7110	enableChannel: addHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7111	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7112	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7113	(ActionButtonSpec
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7114	label: 'Remove'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7115	name: 'removeButton'
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7116	translateLabel: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7117	tabable: true
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7118	model: removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7119	enableChannel: removeHostEnabled
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7120	extent: (Point 225 22)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7121	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7122	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7123
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7124	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7125	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7126	)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7127
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7128	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7129	extent: (Point 732 222)
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7130	)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7131	(FramedBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7132	label: '.NET Bridge'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7133	name: 'FramedBox1'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7134	labelPosition: topLeft
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7135	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7136	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7137	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7138	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7139	(VerticalPanelViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7140	name: 'VerticalPanel3'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7141	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7142	horizontalLayout: left
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7143	verticalLayout: center
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7144	horizontalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7145	verticalSpace: 3
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7146	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7147	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7148	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7149	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7150	name: 'Box6'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7151	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7152	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7153	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7154	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7155	label: 'Verbose'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7156	name: 'CheckBox5'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7157	layout: (LayoutFrame 5 0 5 0 600 0 22 0)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7158	enableChannel: hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7159	model: dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7160	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7161	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7162	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7163
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7164	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7165	extent: (Point 696 23)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7166	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7167	(ViewSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7168	name: 'Box7'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7169	component:
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7170	(SpecCollection
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7171	collection: (
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7172	(CheckBoxSpec
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7173	label: 'Bridge Runs in IDE'
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7174	name: 'CheckBox6'
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7175	layout: (LayoutFrame 5 0 3 0 600 0 25 0)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7176	enableChannel: hasDotNetBridge
8151 b02059a52c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 8149 diff changeset	7177	model: dotNetBridgeRunsInIDE
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7178	translateLabel: true
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7179	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7180	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7181
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7182	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7183	extent: (Point 696 22)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7184	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7185	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7186
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7187	)
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7188	)
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7189	(ActionButtonSpec
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7190	label: 'Close all Connections'
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7191	name: 'Button1'
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7192	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7193	translateLabel: true
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7194	tabable: true
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7195	model: closeAllDotNetConnections
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7196	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7197	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7198
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7199	)
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7200	extent: (Point 732 83)
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7201	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7202	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7205	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7206	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7207
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7210	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7211
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7212	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7213
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7214	basicReadSettings
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7215	\|pw auth\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7216
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7217	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7218	readAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7219	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7220	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7221	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7222	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7223	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7224	from:currentUserPrefs.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7225
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7226	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7227	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7228	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7229	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7230
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7231	self remoteBrowsingEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7232	value:(self hasRemoteBrowsingSupport
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7233	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7234
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7235	self windowMigrationEnabled
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7236	value:(self hasWindowMigrationServer
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7237	and:[ WindowMigrationServer isLoaded
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7238	and:[ WindowMigrationServer serverRunning ]]).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7239
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7240
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7241	pw := nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7242	auth := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7243	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7244	pw := WindowMigrationServer password.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7245	auth := self windowMigrationPassword value notNil
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7246	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7247
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7248	self windowMigrationPassword value:pw.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7249	self windowMigrationAuthenticate value:auth
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7250
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7251	"Modified: / 20-09-2007 / 16:04:59 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7252	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7254	basicSaveSettings
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7255	self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7256	writeAspects:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7257	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7258	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7259	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7260	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7261	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7262	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7263
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7264	(SmallTeam notNil) ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7265	SmallTeam connectedHosts copy do:[:host \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7266	(self listOfSmallTeamHosts includes:host) ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7267	SmallTeam removeHost:host.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7268	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7269	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7270
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7271	self listOfSmallTeamHosts do:[:eachHost \|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7272	SmallTeam addHost:eachHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7273	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7274	self smallTeamServerEnabled value ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7275	SmallTeam startServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7276	] ifFalse:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7277	SmallTeam stopServer
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7278	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7279	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7280
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7281	self hasRemoteBrowsingSupport ifTrue:[
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7282	self remoteBrowsingEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7283	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7284	SmalltalkShareServer killAll
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	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	7287	SmalltalkShareServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7288	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7289	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7290	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7291	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7292	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7293	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7294	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7295	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7296	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7297	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7298
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7299	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7300	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7301	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7302	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7303	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7304	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7305	self windowMigrationEnabled value ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7306	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7307	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7308	].
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7309	] ifTrue:[
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6202 diff changeset	7310	WindowMigrationServer serverRunning ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7311	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7312	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7313	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7314	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7315	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7316	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7317	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7318	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7319	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7320	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7321
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7322	"Modified: / 20-09-2007 / 16:05:01 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7323	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7324
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7325	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7326
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7327	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7328
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7329	acceptChannel isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7330	acceptChannel := TriggerValue new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7331	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7332	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7333
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7334	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7335	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7336
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7337	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7338
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7339	dotNetBridgeRunsInIDE isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7340	dotNetBridgeRunsInIDE := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7341	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7342	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7343	^ dotNetBridgeRunsInIDE.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7344	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7345
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7346	dotNetBridgeVerbose
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7347
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7348	dotNetBridgeVerbose isNil ifTrue:[
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7349	dotNetBridgeVerbose := false asValue.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7350	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7351	].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7352	^ dotNetBridgeVerbose.
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7353	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7355	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7356
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7357	enablePasswordCheck isNil ifTrue:[
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	7358	self hasWindowMigrationServer ifFalse:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7359	enablePasswordCheck := false asValue.
6251 de1297cac10e refadctored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	7360	] ifTrue:[
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7361	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7362	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7363	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7364	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7365	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7366
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7367	hasDotNetBridge
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7368	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7369	!
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7370
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7371	listOfSmallTeamHosts
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	listOfSmallTeamHosts isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7374	listOfSmallTeamHosts := List new.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7375	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
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	^ listOfSmallTeamHosts.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7378
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7379	"Created: / 12-11-2006 / 19:06:35 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7380	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7381
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7382	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7383
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7384	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7385	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7386	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7387	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7388	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7389	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7390
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7391	removeHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7392	^ BlockValue
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7393	forLogical:self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7394	and:(BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	7395	with:[:h \| h notEmptyOrNil]
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7396	argument:self selectedSmallTeamHost)
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7397
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7398	"Created: / 12-11-2006 / 19:01:42 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	7399	"Modified: / 08-03-2007 / 23:02:36 / cg"
7506 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
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7402	selectedSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7403
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7404	selectedSmallTeamHost isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7405	selectedSmallTeamHost := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7406	selectedSmallTeamHost addDependent:self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7407	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7408	^ selectedSmallTeamHost.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7409
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7410	"Created: / 12-11-2006 / 19:11:01 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7411	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7412
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7413	smallTeamHostEntry
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7414
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7415	smallTeamHostEntry isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7416	smallTeamHostEntry := nil asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7417	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7418	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7419	^ smallTeamHostEntry.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7420
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7421	"Created: / 12-11-2006 / 19:07:06 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7422	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7423
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7424	smallTeamServerAvailable
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7425	^ SmallTeam notNil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7426
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7427	"Created: / 12-11-2006 / 18:56:20 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7428	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7429
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7430	smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7431
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7432	smallTeamServerEnabled isNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7433	smallTeamServerEnabled := false asValue.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7434	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7435	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7436	^ smallTeamServerEnabled.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7437
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7438	"Created: / 12-11-2006 / 18:56:11 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7439	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7440
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7441	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7442
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7443	smtpServerName isNil ifTrue:[
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7444	smtpServerName := '' asValue.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7445	smtpServerName onChangeSend:#updateModifiedChannel to:self.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7446	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7447	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7448
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7449	"Created: / 20-09-2007 / 16:04:39 / cg"
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7450	!
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7451
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7452	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7453
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7454	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7455	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7456	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7457	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7458	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7459	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7460
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7461	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7462
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7463	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7464	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7465	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7466	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7467	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7468	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7469
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7470	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7471
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7472	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7473	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7474	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7475	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7476	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7477	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7478
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7479	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7480
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7481	selectedSmallTeamHostChanged
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7482	self acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7483	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7484
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7485	"Created: / 12-11-2006 / 19:09:49 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7486	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7487
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7488	update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7489	changedObject == selectedSmallTeamHost ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7490	self selectedSmallTeamHostChanged.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7491	^ self
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7492	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7493
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7494	super update:someting with:aParameter from:changedObject
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7495
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7496	"Created: / 12-11-2006 / 19:09:40 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7497	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7498
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7499	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7500
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7501	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7502	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7503	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7504
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7505	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7506
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7507	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7508	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7509	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7510	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7511
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7512	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7513
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7514	addHostEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7515	^ self smallTeamServerEnabled
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7516
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7517	"Created: / 12-11-2006 / 19:01:37 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7518	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7519
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7520	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7521
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7522	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7523	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7524
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7525	hasUnsavedChanges
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7526	(self
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7527	hasChangedAspectIn:
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7528	#(
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7529	smtpServerName
8145 3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7530	dotNetBridgeRunsInIDE
3ba2503042d9 dotNetBridge settings Claus Gittinger <cg@exept.de> parents: 8118 diff changeset	7531	dotNetBridgeVerbose
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7532	)
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7533	asComparedTo:currentUserPrefs) ifTrue:[^ true].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7534
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7535	SmallTeam notNil ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7536	self smallTeamServerEnabled value ~= (SmallTeam isLoaded and:[SmallTeam serverRunning]) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7537	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[^ true].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7538	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7539
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7540	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7541	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	7542	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7543	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7544	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7545	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7546	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7547	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7548	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	7549	(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	7550	(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	7551	(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	7552	].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7553	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7554
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7555	"Modified: / 20-09-2007 / 16:04:56 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7556	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7557
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7558	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7559
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7560	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7561	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7562
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7563	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'user actions'!
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	addSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7566	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7567
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7568	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7569
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7570	host := self smallTeamHostEntry value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7571
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7572	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7573	self listOfSmallTeamHosts add:host
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7574	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7575
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7576	"Modified: / 12-11-2006 / 19:06:22 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7577	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7578
9342 89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7579	closeAllDotNetConnections
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7580	DOTNET::DotNet notNil ifTrue:[
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7581	DOTNET::DotNet exitAllLiveInstances
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7582	].
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7583	!
89cf767fdb55 * empty log message * Claus Gittinger <cg@exept.de> parents: 9322 diff changeset	7584
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7585	removeSmallTeamHost
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7586	\|host\|
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7587
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7588	acceptChannel value:true.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7589
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7590	host := self selectedSmallTeamHost value.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7591
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7592	host size > 0 ifTrue:[
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7593	self selectedSmallTeamHost value:nil.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7594	self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7595	self smallTeamHostEntry value:''.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7596	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7597
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7598	"Modified: / 12-11-2006 / 19:15:05 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7599	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	7600
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7601	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7603	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7604	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7605	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7607	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7608	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7609
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7610	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7611	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7612	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7613	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7614	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7615
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7616	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7617
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7618	^Icon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7619	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7620	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	7621	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A @F@@@@@@@@@@@@@@@@@@@@@@@@@@X@A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7622	@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7623	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	7624	@ 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	7625	@ 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	7626	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7627	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7628
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7629	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7631	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7632	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7633	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7635	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7636	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7638	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7639	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7640	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7641	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7642	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7644	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7646	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7647	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7648	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7649	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7650	(WindowSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7651	label: 'Display settings 2'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7652	name: 'Display settings 2'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7653	min: (Point 10 10)
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7654	bounds: (Rectangle 0 0 671 591)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7655	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7656	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7657	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7658	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7659	(VerticalPanelViewSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7660	name: 'VerticalPanel1'
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	7661	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7662	horizontalLayout: fitSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7663	verticalLayout: topSpace
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7664	horizontalSpace: 5
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7665	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7666	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7667	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	7668	collection: (
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7669	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7670	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7671	name: 'NativeWidgets'
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7672	enableChannel: displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7673	model: nativeWidgets
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	)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7677	(CheckBoxSpec
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	7678	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7679	name: 'NativeDialogs'
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7680	enableChannel: displaySupportsNativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7681	model: nativeDialogs
5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7682	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7683	extent: (Point 661 22)
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7684	)
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7685	(CheckBoxSpec
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7686	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7687	name: 'CheckBox1'
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7688	enableChannel: displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7689	model: nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7690	translateLabel: true
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7691	extent: (Point 661 22)
6014 5ec12867ba18 * empty log message * ca parents: 6013 diff changeset	7692	)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7693	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7694	name: 'SeparatingSpace1'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7695	extent: (Point 661 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7696	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7697	(DividerSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7698	name: 'Separator1'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7699	extent: (Point 661 4)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7700	)
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7701	(ViewSpec
6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7702	name: 'SeparatingSpace2'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7703	extent: (Point 661 5)
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	7704	)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7705	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7706	label: 'Shadows under PopUp Views'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7707	name: 'shadows'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7708	model: shadows
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7709	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7710	extent: (Point 661 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7711	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	7712	(CheckBoxSpec
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7713	label: 'Opaque Variable Panel Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7714	name: 'opaqueVariablePanelResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7715	model: opaqueVariablePanelResizing
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 22)
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	(CheckBoxSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7720	label: 'Opaque Table Column Resizing'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7721	name: 'opaqueTableColumnResize'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7722	model: opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7723	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7724	extent: (Point 661 22)
9136 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	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7727	name: 'SeparatingSpace3'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7728	extent: (Point 661 4)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7729	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7730	(DividerSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7731	name: 'Separator3'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7732	extent: (Point 661 3)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7733	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7734	(ViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7735	name: 'SeparatingSpace4'
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7736	extent: (Point 661 3)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7737	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7738	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7739	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	7740	name: 'lowerOnRightClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7741	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7742	model: lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7743	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7744	extent: (Point 661 21)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7745	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7746	(CheckBoxSpec
9233 50ef1ada9fda * empty log message * Claus Gittinger <cg@exept.de> parents: 9187 diff changeset	7747	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	7748	name: 'lowerOnShiftClickInTitle'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7749	enableChannel: isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7750	model: lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7751	translateLabel: true
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7752	extent: (Point 661 21)
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	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7755
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7756	)
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	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7759
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7760	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7761	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7762	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7763
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7764	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7765
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7766	aspectsFromUserPreferences
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	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7769	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7770	)
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7771
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7772	"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	7773	!
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	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7776	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7777
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7778	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7779
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7780	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7781	readAspects:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7782	#(
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7783	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7784	nativeDialogs
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7785	nativeFileDialogs
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7786	)
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7787	from:currentScreen.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7788
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7789	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7790	readAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7791	from:currentUserPrefs.
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 shadows value:PopUpView shadows.
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7794
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7795	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7796	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7797	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7798	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7799
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7800	"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	7801	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7802
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7803	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7804	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7805
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7806	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	7807
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7808	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7809
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7810	self displaySupportsNativeWidgets ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7811	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7812	mustReopenTools := true.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7813	currentScreen nativeWidgets:self nativeWidgets value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7814	currentUserPrefs nativeWidgets:self nativeWidgets value.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7815	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7816	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7817	self displaySupportsNativeDialogs ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7818	currentScreen nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7819	currentUserPrefs nativeDialogs:self nativeDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7820	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7821	self displaySupportsNativeFileDialogs ifTrue:[
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7822	currentScreen nativeFileDialogs:self nativeFileDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7823	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7824	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7825
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7826	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7827
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7828	self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7829	writeAspects:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7830	to:currentUserPrefs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7831
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7832	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7833	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7834	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7835	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7836
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7837	mustReopenTools ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7838	self reopenToolsAfterChangedViewStyleSetting.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7839	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7840
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7841	"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	7842	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7843
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7844	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
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	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7847	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7848	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7849
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7850	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7851	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7852
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7853	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7854	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7855
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7856	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7857	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7858	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7859
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7860	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7861	lowerOnRightClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7862	lowerOnRightClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7863	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7864	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7865	^ lowerOnRightClickInTitle.
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7868	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7869	lowerOnShiftClickInTitle isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7870	lowerOnShiftClickInTitle := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7871	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7872	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7873	^ lowerOnShiftClickInTitle.
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7876	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7877	nativeDialogs isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7878	nativeDialogs := Screen current nativeDialogs asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7879	nativeDialogs onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7880	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7881	^ nativeDialogs.
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
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7884	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7885	nativeFileDialogs isNil ifTrue:[
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7886	nativeFileDialogs := Screen current nativeFileDialogs asValue.
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7887	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7888	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7889	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7890
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7891	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7892	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7893
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7894	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7895	nativeWidgets isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7896	nativeWidgets := Screen current nativeWidgets asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7897	nativeWidgets onChangeSend:#updateModifiedChannel to:self
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	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7900	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7901
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7902	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7903	opaqueTableColumnResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7904	opaqueTableColumnResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7905	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
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	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7908	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7909
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7910	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7911	opaqueVariablePanelResize isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7912	opaqueVariablePanelResize := true asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7913	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7914	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7915	^ opaqueVariablePanelResize.
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7918	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7919	shadows isNil ifTrue:[
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7920	shadows := PopUpView shadows asValue.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7921	shadows onChangeSend:#updateModifiedChannel to:self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7922	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7923	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7924	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7925
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7926	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
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	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7929	^ 'Launcher/miscSettings.html'
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::MiscDisplay2SettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7935	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7936
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7937	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7938
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7939	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7940	hasChangedAspectIn:
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	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7943	nativeDialogs
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7944	nativeFileDialogs
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7945	)
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7946	asComparedTo:currentScreen) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7947
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7948	(self
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7949	hasChangedAspectIn:(self aspectsFromUserPreferences)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7950	asComparedTo:currentUserPrefs) ifTrue:[^ true].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7951
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7952	self shadows value ~= PopUpView shadows ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7953
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7954	currentScreen platformName = 'WIN32' ifTrue:[
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7955	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7956	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	7957	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7958	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7959
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	7960	"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	7961	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7962
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7963	isWindowsDisplay
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7964	^ Screen current platformName = 'WIN32'
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7967	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
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	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7970	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7971	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7972
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7973	"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	7974	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	7975
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	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7978	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7979	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7980	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7981
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7982	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7983
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7984	^Icon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7985	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7986	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	7987	@@@@@@@@@@@@@@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	7988	@@@@@@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	7989	@ 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	7990	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	7991	@ 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	7992	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	7993	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7994
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7995	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7996
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7997	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7998	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	7999	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8000
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8001	"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	8002	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	8003
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8004	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8005	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8006	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8007	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8008	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8009
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8010	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8011
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8012	^
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8013	#(FullSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8014	name: windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8015	window:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8016	(WindowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8017	label: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8018	name: 'Display settings'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8019	min: (Point 10 10)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8020	bounds: (Rectangle 0 0 445 497)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8021	)
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8022	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8023	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8024	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8025	(VerticalPanelViewSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8026	name: 'VerticalPanel1'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8027	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	8028	horizontalLayout: fitSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8029	verticalLayout: topSpace
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8030	horizontalSpace: 5
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8031	verticalSpace: 1
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8032	component:
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8033	(SpecCollection
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8034	collection: (
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8035	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8036	label: 'Beeper enabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8037	name: 'beepEnabled'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8038	model: beepEnabled
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8039	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8040	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8041	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8042	(CheckBoxSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8043	label: 'Show Accelerator Keys in Menus'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8044	name: 'showAccelerators'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8045	model: showAccelerators
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8046	translateLabel: true
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8047	extent: (Point 435 22)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8048	)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8049	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8050	name: 'SeparatingSpace1'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8051	extent: (Point 435 4)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8052	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8053	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8054	name: 'Separator1'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8055	extent: (Point 435 3)
6013 7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8056	)
7e8dd712b45f * empty log message * ca parents: 6012 diff changeset	8057	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8058	name: 'SeparatingSpace2'
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8059	extent: (Point 435 3)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8060	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8061	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8062	label: 'Keyboard Focus Follows Mouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8063	name: 'focusFollowsMouse'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8064	model: focusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8065	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8066	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8067	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8068	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8069	label: 'Views Catch Focus when Mapped'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8070	name: 'takeFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8071	model: takeFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8072	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8073	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8074	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8075	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8076	label: 'Boxes Return Focus to Previously Active View'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8077	name: 'returnFocus'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8078	model: returnFocus
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8079	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8080	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8081	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8082	(CheckBoxSpec
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8083	label: 'Raise & Activate Windows on Click'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8084	name: 'activateOnClick'
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8085	model: activateOnClick
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8086	translateLabel: true
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8087	extent: (Point 435 22)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8088	)
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8089	(CheckBoxSpec
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8090	label: 'Force Windows into Monitor''s Bounds'
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8091	name: 'CheckBox2'
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8092	activeHelpKey: forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8093	model: forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8094	translateLabel: true
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8095	extent: (Point 435 22)
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8096	)
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8097	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8098	name: 'SeparatingSpace3'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8099	extent: (Point 435 4)
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	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8102	name: 'Separator2'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8103	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8104	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8105	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8106	name: 'SeparatingSpace4'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8107	extent: (Point 435 3)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8108	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8109	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8110	label: 'MouseWheel Focus Follows Mouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8111	name: 'mouseWheelFocusFollowsMouse'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8112	enableChannel: mouseWheelFocusFollowsMouseEnabled
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8113	model: mouseWheelFocusFollowsMouse
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8114	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8115	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8116	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8117	(CheckBoxSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8118	label: 'CTRL-MouseWheel is Zoom'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8119	name: 'CheckBox1'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8120	model: allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8121	translateLabel: true
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8122	extent: (Point 435 22)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8123	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8124	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8125	name: 'SeparatingSpace5'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8126	extent: (Point 435 4)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8127	)
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8128	(DividerSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8129	name: 'Separator3'
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8130	extent: (Point 435 4)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8131	)
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8132	(ViewSpec
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8133	name: 'SeparatingSpace6'
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8134	extent: (Point 435 3)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8135	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8136	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8137	label: 'Select on Right-Button-Press'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8138	name: 'selectOnRightClick'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8139	model: selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8140	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8141	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8142	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8143	(CheckBoxSpec
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8144	label: 'Menu on Right-Button-Release'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8145	name: 'showRightButtonMenuOnRelease'
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8146	model: showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8147	translateLabel: true
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8148	extent: (Point 435 21)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8149	)
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8150	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8151	name: 'SeparatingSpace7'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8152	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8153	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8154	(DividerSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8155	name: 'Separator4'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8156	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8157	)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8158	(ViewSpec
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8159	name: 'SeparatingSpace8'
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8160	extent: (Point 435 4)
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8161	)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8162	(ViewSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8163	name: 'Box1'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8164	component:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8165	(SpecCollection
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8166	collection: (
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8167	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8168	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8169	name: 'Label1'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8170	layout: (LayoutFrame 0 0 0 0 167 0 17 0)
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8171	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8172	labelChannel: formatHostNameWindowLabel
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8173	adjust: right
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8174	useDefaultExtent: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8175	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8176	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8177	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8178	name: 'Label2'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8179	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	8180	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8181	labelChannel: formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8182	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8183	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8184	(LabelSpec
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8185	label: 'Label'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8186	name: 'Label3'
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8187	layout: (LayoutFrame 0 0.6 30 0 0 1 0 1)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8188	translateLabel: true
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8189	labelChannel: formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8190	adjust: left
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8191	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8192	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8193
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8194	)
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8195	extent: (Point 435 92)
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8196	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8197	(ViewSpec
6012 6736ffa4ba2f * empty log message * ca parents: 6008 diff changeset	8198	name: 'WindowLabelBox'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8199	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8200	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8201	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8202	(CheckBoxSpec
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8203	label: 'Window Label Format'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8204	name: 'hostNameInLabelHolder'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8205	layout: (LayoutFrame 0 0 -22 1 216 0 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8206	model: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8207	translateLabel: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8208	)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8209	(InputFieldSpec
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8210	name: 'hostNameInLabelEntryField'
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8211	layout: (LayoutFrame 218 0 -22 1 -5 1 0 1)
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8212	enableChannel: hostNameInLabelHolder
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8213	model: newWindowLabelFormat
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8214	immediateAccept: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8215	acceptOnReturn: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8216	acceptOnTab: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8217	acceptOnLostFocus: true
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8218	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8221
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8222	)
6015 7c907329f014 * empty log message * ca parents: 6014 diff changeset	8223	extent: (Point 435 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8224	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8225	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8227	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8228	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8229	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8231	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8232	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8233	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8234
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8235	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8236
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8237	aspectsFromUserPreferences
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8238	^ #(
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8239	beepEnabled
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8240	focusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8241	mouseWheelFocusFollowsMouse
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8242	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8243	selectOnRightClick
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8244	allowMouseWheelZoom
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8245	forceWindowsIntoMonitorBounds
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8246	)
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8247
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8248	"Modified: / 22-10-2010 / 14:25:54 / cg"
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8249	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8250
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8251	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8252	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8253	readAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8254	from:currentUserPrefs.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8255
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8256	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8257	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8258	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8259	self takeFocus value:StandardSystemView takeFocusWhenMapped.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8260	self activateOnClick value:(Display activateOnClick:nil).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8261	self showAccelerators value:MenuView showAcceleratorKeys.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8262	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8263
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8264	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	8265	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8266
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8267	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8268
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8269	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8270	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8271	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8272	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8273	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8274	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8275
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8276	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8277	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8278	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8279
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8280	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8281	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8282	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8283	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8284	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8285	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8286	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8287	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8288	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8289
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8290	self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8291	writeAspects:(self aspectsFromUserPreferences)
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	8292	to:currentUserPrefs.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8293
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8294	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8295	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	8296	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8297
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8298	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8299
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8300	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8301	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8302
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8303	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8304	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	8305
c72e35116b13 instable state penk parents: 5040 diff changeset	8306	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	8307	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	8308	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	8309	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	8310	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	8311	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	8312	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	8313	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8314	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8315
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8317
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8318	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8319	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8320	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8321	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8322	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8323	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8324	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8325
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8326	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8327	allowMouseWheelZoom isNil ifTrue:[
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8328	allowMouseWheelZoom := true asValue.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8329	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8330	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8331	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8332	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	8333
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8334	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8335	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8336	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8337	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8338	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8339	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8340	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8341
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8342	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8343	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8344	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	8345
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8346	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8347	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8348	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	8349
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8350	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8351	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8352	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8353	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8354	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8355	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8356	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8357
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8358	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8359	forceWindowsIntoMonitorBounds isNil ifTrue:[
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8360	forceWindowsIntoMonitorBounds := true asValue.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8361	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8362	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8363	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8364
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8365	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8366	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	8367
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8368	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8369	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8370	formatHostNameWindowLabel :=
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8371	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8372	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8373	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8374
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	8375	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	8376	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8377	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8378
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8379	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8380	formatHostNameWindowLabel1 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8381	formatHostNameWindowLabel1 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8382	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8383	'%1 - Label
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8384	%2 - Hostname
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8385	%3 - Username')
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8386	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8387	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8388
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8389	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8390	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8391	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8392
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8393	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8394	formatHostNameWindowLabel2 isNil ifTrue:[
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8395	formatHostNameWindowLabel2 :=
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8396	(resources string:
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8397	'%4 - ProcessId
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8398	%5 - TOP-Directory
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8399	%6 - TOP-Path').
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8400	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8401	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8402
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8403	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8404	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8405	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	8406
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8407	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8408	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8409	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8410	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8411	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8412	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8413	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8414
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8415	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8416	mouseWheelFocusFollowsMouse isNil ifTrue:[
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8417	mouseWheelFocusFollowsMouse := true asValue.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8418	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8419	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8420	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8421	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8422
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8423	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8424	^ BlockValue
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8425	forLogicalNot:(self focusFollowsMouse).
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8426	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	8427
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8428	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8429	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8430	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8431	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8432	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8433	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8434
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8435	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8436	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8437
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8438	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8439	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8440	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8441	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8442	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8443	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8444	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8445
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8446	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8447	selectOnRightClick isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8448	selectOnRightClick := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8449	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8450	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8451	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8452	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8453
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8454	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8455	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8456	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8457	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8458	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8459	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8460	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8461
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8462	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8463	showRightButtonMenuOnRelease isNil ifTrue:[
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8464	showRightButtonMenuOnRelease := true asValue.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8465	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8466	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8467	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8468	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8469
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8470	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8471	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8472	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8473	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8474	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8475	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8476	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8477
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8478	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8479
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8480	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8481	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8482	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8483
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8485
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8486	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8487	(self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	8488	hasChangedAspectIn:(self aspectsFromUserPreferences)
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8489	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8490
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8491	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8492	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8493	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8494	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8495	self activateOnClick value ~= (Display activateOnClick:nil) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8496	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8497	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8498	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8499
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8500	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8501
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8502	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8503	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8504
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8505	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8506	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8507
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8508	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8510	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8511	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8512	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8513
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8514	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8515	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8516
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8517	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8518	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8519	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8520	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8521	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8522
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8523	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8524
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8525	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8526	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8527	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8528	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8529	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8530	label: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8531	name: 'OSI Protocols Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8532	min: (Point 10 10)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8533	bounds: (Rectangle 0 0 600 550)
4310 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	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8536	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8537	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8538	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8539	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8540	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	8541	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8542	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8543	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8544	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8545	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8546	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8547	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8548	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8549	label: 'ACSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8550	name: 'Label1'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8551	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8552	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8553	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8554	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8555	name: 'Box1a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8556	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8557	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8558	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8559	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8560	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8561	name: 'CheckBox1'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8562	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	8563	enableChannel: osiACSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8564	model: osiACSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8565	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8566	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8567	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8568
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8569	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8570	extent: (Point 600 27)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8571	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8572	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8573	name: 'Box1b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8574	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8575	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8576	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8577	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8578	label: 'Log Connections'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8579	name: 'CheckBox10'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8580	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	8581	enableChannel: osiACSEPresent
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8582	model: osiACSEConnectionLogging
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8583	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8584	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8585	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8586
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8587	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8588	extent: (Point 600 26)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8589	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8590	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8591	name: 'Box1c'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8592	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8593	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8594	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8595	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8596	label: 'Log Data Transfer'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8597	name: 'CheckBox14'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8598	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8599	enableChannel: osiACSEPresent
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8600	model: osiACSEDataLogging
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8601	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8602	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8603	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8604
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8605	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8606	extent: (Point 600 26)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8607	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8608	(DividerSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8609	name: 'Separator1'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8610	extent: (Point 600 4)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8611	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8612	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8613	label: 'ROSE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8614	name: 'Label2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8615	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8616	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8617	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8618	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8619	name: 'Box4a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8620	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8621	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8622	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8623	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8624	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8625	name: 'CheckBox4'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8626	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	8627	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8628	model: osiROSEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8629	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8630	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8631	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8632
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8633	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8634	extent: (Point 600 25)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8635	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8636	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8637	name: 'Box4b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8638	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8639	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8640	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8641	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8642	label: 'Log Invoactions'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8643	name: 'CheckBox16'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8644	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	8645	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8646	model: osiROSEInvokationLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8647	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8648	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8649	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8650
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8651	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8652	extent: (Point 600 25)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8653	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8654	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8655	name: 'Box4c'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8656	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8657	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8658	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8659	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8660	label: 'Log Responses'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8661	name: 'CheckBox20'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8662	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	8663	enableChannel: osiROSEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8664	model: osiROSEResponseLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8665	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8666	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8667	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8668
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8669	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8670	extent: (Point 600 25)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8671	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8672	(DividerSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8673	name: 'Separator2'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8674	extent: (Point 600 3)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8675	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8676	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8677	label: 'CMISE'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8678	name: 'Label3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8679	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8680	extent: (Point 600 22)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8681	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8682	(ViewSpec
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8683	name: 'Box7a'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8684	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8685	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8686	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8687	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8688	label: 'Log Errors'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8689	name: 'CheckBox7'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8690	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	8691	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8692	model: osiCMISEErrorLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8693	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8694	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8695	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8696
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8697	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8698	extent: (Point 600 22)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8699	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8700	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8701	name: 'Box7b'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8702	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8703	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8704	collection: (
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8705	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8706	label: 'Log Messages'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8707	name: 'CheckBox22'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	8708	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	8709	enableChannel: osiCMISEPresent
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8710	model: osiCMISEMessageLogging
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8711	translateLabel: true
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8712	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8713	)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8714
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	8715	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	8716	extent: (Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8717	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8718	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8719
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8720	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8721	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8722	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8723
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8724	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8725	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8726	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8727
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8728	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8729
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8730	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8731	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8732	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8733	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8734	self osiACSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8735	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8736	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8737	self osiACSEDataLogging value:OSI::ACSE dataLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8738	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8739	self osiROSEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8740	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8741	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8742	self osiROSEResponseLogging value:OSI::ROSE responseLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8743	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8744	self osiCMISEPresent value ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8745	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8746	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8747	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8748	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8749
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8750	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8751
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8752	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8753	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8754	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8755	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8756	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8757	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8758	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8759	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8760	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8761	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8762	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8763	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8764	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8765	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8766	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8767
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8768	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8769
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8770	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8771	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8772	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8773	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8774	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8775	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8776
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8777	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8778
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8779	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8780	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8781	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8782	^ osiACSEDataLogging.
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	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8786	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8787	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8788	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8789	^ osiACSEErrorLogging.
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	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8793	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8794	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8795	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8796	^ osiACSEPresent.
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	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8800	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8801	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8802	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8803	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8804	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8805
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8806	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8807	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8808	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8809	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8810	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8811	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8813	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8814	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8815	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8816	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8817	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8818	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8819
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8820	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8821	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8822	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8823	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8824	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8825	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8826
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8827	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8828	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8829	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8830	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8831	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8832	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8833
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8834	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8835
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8836	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8837	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8838	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8839	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8840	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8841
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8842	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8843
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8844	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8845	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8846	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8847	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8848	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8849
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8850	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8851
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8852	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8853	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8854	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8855
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8856	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8857
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8858	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8859
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8860	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8861	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8862	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8863	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8864	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8865	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8866	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8867	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8868	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8869	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8870	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8871	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8872	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8873
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8874	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8875
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8876	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8877	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8878
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	8879	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8880	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8881
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8882	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8883
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8884	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8885	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8886	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8888	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8889	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8891	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8892	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8893	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8894	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8895	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8897	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8898
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8899	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8900	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8901	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8902	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8903	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8904	label: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8905	name: 'Printer Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8906	min: (Point 10 10)
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8907	bounds: (Rectangle 0 0 616 385)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8908	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8909	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8910	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8911	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8912	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8913	name: 'VerticalPanel1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8914	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	8915	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8916	verticalLayout: top
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8917	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8918	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8919	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8920	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8921	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8922	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8923	name: 'PrinterSelectBox'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8924	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8925	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8926	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8927	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8928	label: 'Printer Type:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8929	name: 'PrinterTypeLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8930	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	8931	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8932	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8933	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8934	(ComboListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8935	name: 'PrinterTypeComboList'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8936	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	8937	model: printerTypeSelection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8938	comboList: printerType
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8939	useIndex: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8940	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8941	(LabelSpec
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8942	label: 'Print Command:'
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8943	name: 'PrinterCommandLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8944	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	8945	visibilityChannel: printerIsDrivenByCommand
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8946	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8947	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8948	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8949	(ComboBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8950	name: 'CommandComboBox'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8951	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	8952	visibilityChannel: printerIsDrivenByCommand
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8953	enableChannel: printCommandEnabled
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8954	model: printCommand
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8955	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8956	acceptOnPointerLeave: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8957	comboList: printCommandList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8958	useIndex: false
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8959	)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8960	(LabelSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8961	label: 'Print to File:'
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8962	name: 'PrinterFileLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8963	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	8964	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8965	translateLabel: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8966	adjust: right
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8967	)
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8968	(FilenameInputFieldSpec
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8969	name: 'PrinterFileEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	8970	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	8971	visibilityChannel: printerSupportsPrintingToFile
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8972	model: printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8973	immediateAccept: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8974	acceptOnLeave: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8975	acceptOnLostFocus: true
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8976	acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8977	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8978	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8979
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8980	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8981	extent: (Point 616 84)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	8982	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8983	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8984	name: 'FormatBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8985	visibilityChannel: supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8986	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8987	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8988	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8989	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8990	name: 'Separator1'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8991	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	8992	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8993	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8994	label: 'Page Format:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8995	name: 'PageFormatLabel'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	8996	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	8997	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8998	adjust: right
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	8999	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9000	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9001	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9002	name: 'PageFormatPopUpList'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9003	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	9004	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9005	model: pageFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9006	enableChannel: enableFormat
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9007	menu: pageFormatList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9008	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9009	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9010	label: 'Landscape'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9011	name: 'LandscapeCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9012	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	9013	enableChannel: enablelandscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9014	model: landscape
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9015	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9016	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9017	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9018
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9019	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9020	extent: (Point 616 30)
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9021	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9022	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9023	name: 'MarginBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9024	visibilityChannel: supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9025	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9026	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9027	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9028	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9029	name: 'Separator5'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9030	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	9031	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9032	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9033	name: 'VerticalPanel2'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9034	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	9035	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9036	verticalLayout: center
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9037	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9038	verticalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9039	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9040	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9041	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9042	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9043	name: 'Box1'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9044	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9045	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9046	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9047	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9048	label: 'Top Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9049	name: 'TopMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9050	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	9051	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9052	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9053	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9054	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9055	name: 'TopMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9056	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	9057	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9058	model: topMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9059	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9060	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9061	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9062	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9063	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9064	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9065	(PopUpListSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9066	label: 'PopUp List'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9067	name: 'PopUpList2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9068	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	9069	tabable: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9070	model: selectedUnit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9071	menu: unitList
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9072	useIndex: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9073	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9074	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9075
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9076	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9077	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9078	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9079	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9080	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9081	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9082	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9083	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9084	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9085	label: 'Left Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9086	name: 'LeftMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9087	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	9088	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9089	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9090	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9091	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9092	name: 'LeftMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9093	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	9094	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9095	model: leftMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9096	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9097	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9098	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9099	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9100	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9101	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9102	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9103
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9104	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9105	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9106	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9107	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9108	name: 'Box3'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9109	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9110	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9111	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9112	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9113	label: 'Right Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9114	name: 'RightMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9115	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	9116	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9117	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9118	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9119	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9120	name: 'RightMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9121	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	9122	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9123	model: rightMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9124	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9125	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9126	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9127	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9128	acceptOnPointerLeave: true
4310 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	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9133	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9134	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9135	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9136	name: 'Box4'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9137	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9138	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9139	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9140	(LabelSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9141	label: 'Bottom Margin:'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9142	name: 'BottomMarginLabel'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9143	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	9144	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9145	adjust: right
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9146	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9147	(InputFieldSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9148	name: 'BottomMarginEntryField'
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	9149	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	9150	enableChannel: enableMargins
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9151	model: bottomMargin
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9152	type: numberOrNil
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9153	acceptOnReturn: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9154	acceptOnTab: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9155	acceptOnLostFocus: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9156	acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9157	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9158	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9159
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9160	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9161	extent: (Point 616 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9162	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9163	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9164
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9165	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9166	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9168
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9169	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9170	extent: (Point 616 100)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9171	)
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9172	(ViewSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9173	name: 'ColorBox'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9174	visibilityChannel: supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9175	component:
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9176	(SpecCollection
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9177	collection: (
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9178	(DividerSpec
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9179	name: 'Separator6'
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9180	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	9181	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9182	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9183	label: 'Color Printer'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9184	name: 'ColorPrinterCheckBox'
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9185	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	9186	enableChannel: enableColorBox
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9187	model: supportsColor
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9188	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9191
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9192	)
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9193	extent: (Point 616 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9194	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9195	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9196
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9197	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9198	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9199	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9201	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9202	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9203	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9205	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9206
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9207	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9208	Printer notNil ifTrue:[
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9209	self
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9210	readAspects:
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9211	#(
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9212	topMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9213	bottomMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9214	leftMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9215	rightMargin
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9216	landscape
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9217	printCommand
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9218	printFilename
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9219	supportsColor
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9220	)
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9221	from:Printer.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9222	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9223
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9224	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer).
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9225	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9226	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9227
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9228	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9229	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9230
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9231	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9232
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9233	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	9234
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9235	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9236	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9237
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9238	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9239	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9240	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9241	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9242	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9243	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9244	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9245	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9246	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9247	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9248	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9249	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9250	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9251	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9252	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9253	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9254	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9255	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9256	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9257	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9259	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9261	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9265	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9266	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9267	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9268	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9269
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9270	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9271
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9272	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9273	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9274	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9275	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9276	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9277
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9278	enableFormat
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	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9281	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9282	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9283	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9284	!
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	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9287
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9288	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9289	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9290	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9291	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9292	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9293
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9294	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9295
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9296	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9297	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9298	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9299	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9300	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9301
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9302	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304	landscape isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9305	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9306	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308	^ landscape.
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:22:44 / 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	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9314
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9315	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9316	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9317	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9318	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9319	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9320	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9321
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9322	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9333	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9336	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9338	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	pageFormatList isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9341	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9343	^ pageFormatList.
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:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9346	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9347
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9348	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9351	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9352	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9357	printCommandEnabled
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9358	^ BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9359	with:[:m \| m isEmptyOrNil]
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9360	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9361
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9362	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9363	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9364
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9365	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9368	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9373	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9374	printFilename isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9375	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9376	printFilename onChangeSend:#updateModifiedChannel to:self
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9377	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9378	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9379
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9380	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9381	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9382
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9383	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9384	printerIsDrivenByCommand isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9385	printerIsDrivenByCommand := BlockValue
9656 39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9386	with:[:m \|
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9387	\|printer\|
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9388
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9389	printer := self possiblePrinters at:m value ifAbsent:nil.
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9390	printer notNil ifTrue:[
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9391	printer isDrivenByCommand
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9392	] ifFalse:[
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9393	self breakPoint:#expecco.
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9394	false
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9395	]
39d104b5dcaf fix if printer is gone sr parents: 9655 diff changeset	9396	]
9655 19541d63506a fix if printer is no more in list sr parents: 9629 diff changeset	9397	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9398	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9399	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9400
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9401	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9402	"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	9403	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9404
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9405	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9406	printerSupportsPrintingToFile isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9407	printerSupportsPrintingToFile := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9408	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	9409	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9410	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9411	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9412
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9413	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9414	"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	9415	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9417	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9419	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9420	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9421	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9423
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9424	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9427	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9430	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
9657 32a86c300786 set an initial printer..... sr parents: 9656 diff changeset	9431	printerTypeSelection value == 0 ifTrue:[
32a86c300786 set an initial printer..... sr parents: 9656 diff changeset	9432	printerTypeSelection := (self possiblePrinters firstIfEmpty:[self error:'no printer']) asValue.
32a86c300786 set an initial printer..... sr parents: 9656 diff changeset	9433	].
32a86c300786 set an initial printer..... sr parents: 9656 diff changeset	9434
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9435	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9436	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9437	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9439	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9440
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9441	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9443
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9444	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9446	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9447	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9448	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9449	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9450	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9453	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9454
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9455	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9456	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9457	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9458	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9459	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9461	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9462	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9464	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	supportsColor isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9467	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9468	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9471
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9472	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9473	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9474
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9475	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9476	supportsColorSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9477	supportsColorSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9478	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	9479	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9480	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9481	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9482
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9483	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9484	"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	9485	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9486
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9487	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9488	supportsMarginSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9489	supportsMarginSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9490	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	9491	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9492	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9493	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9494
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9495	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9496	"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	9497	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9498
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9499	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9500	supportsPageFormatSetting isNil ifTrue:[
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9501	supportsPageFormatSetting := BlockValue
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9502	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	9503	argument:self printerTypeSelection.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9504	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9505	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9506
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9507	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	9508	"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	9509	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	9510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9511	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513	topMargin isNil ifTrue:[
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9514	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9515	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9518
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9519	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9522	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9532	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9534
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9535	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9536	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9545	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9546	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9549	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9571	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9572	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9573	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	9574	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9582	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	self printCommand value:(p printCommand).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9588	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9590	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9591	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9592	printerSupportsPostscript ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9597
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9598	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9601	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9602	!
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	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9605	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9613	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9614
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9615	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9616	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9617	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9618
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9621	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9622	commandList isNil ifTrue:[
6638 74439c5aa6dd * empty log message * Claus Gittinger <cg@exept.de> parents: 6580 diff changeset	9623	commandList := resources string:'PRINT_COMMANDS' default:nil.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9624	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9625	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9626	commandList isNil ifTrue:[
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9627	commandList := #('lpr' 'lp').
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9628	].
5151 53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9629	(commandList includes:self printCommand value) ifFalse:[
53c19d72ff59 Avoid warning about slow grow operation Stefan Vogel <sv@exept.de> parents: 5149 diff changeset	9630	commandList := commandList copyWith:self printCommand value.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9631	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9632	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9633	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9634	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9635	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9636
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9637	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9639
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9640	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9641
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9642	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9643	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9644	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9646	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9647	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	9648
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9649	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9650
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9651	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9652	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9653
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9654	Printer supportsPageSizes ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9655	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9656	Printer landscape ~= (self landscape value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9657	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9658	Printer supportsMargins ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9659	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	9660	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	9661	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	9662	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	9663	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9664	Printer supportsPostscript ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9665	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9666	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9667	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9668
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	9669	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9670	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9671
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9672	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9673	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9674	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9675	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9676	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9677	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9678
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9681	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9698	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	9699	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9700	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9701	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	9702	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9706	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721	^
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9722	#(FullSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9723	name: windowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9724	window:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9725	(WindowSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9726	label: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9727	name: 'Processor and Scheduler Settings'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9728	min: (Point 10 10)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9729	bounds: (Rectangle 14 46 614 366)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9731	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9732	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9733	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9734	(VerticalPanelViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9735	name: 'VerticalPanel2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9736	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	9737	horizontalLayout: fit
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9738	verticalLayout: topSpace
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9739	horizontalSpace: 3
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9740	verticalSpace: 5
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9741	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9742	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9743	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9744	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9745	label: 'Preemptive Scheduling'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9746	name: 'CheckBox11'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9747	model: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9748	translateLabel: true
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9749	extent: (Point 600 22)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9750	)
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9751	(ViewSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9752	name: 'Box2'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9753	component:
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9754	(SpecCollection
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9755	collection: (
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9756	(CheckBoxSpec
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9757	label: 'Dynamic Priorities'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9758	name: 'CheckBox12'
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9759	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	9760	enableChannel: preemptive
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9761	model: dynamicPrios
54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9762	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	)
5154 54806be0518e Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5151 diff changeset	9767	extent: (Point 600 23)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	)
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	)
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	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9781	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9782	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9783	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9784	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	9785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9786	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9787
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9788	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9789	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9790	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9791	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9792	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9793	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9794	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9795	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9796	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9797	].
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9802	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	dynamicPrios := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9805	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9810	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	preemptive := true asValue.
5085 e22e91773cf9 have no save button enabled on timeSlicing changes penk parents: 5083 diff changeset	9813	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9818	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9819
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9820	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9821	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9822	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9823
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9826	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9827	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9828	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	9829	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9832	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9833
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9834	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9835	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9836	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9837
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9838	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9839	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9840
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9841	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9842	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9843	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9844	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9845	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9846
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9847	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9848
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9849	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9850	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9851	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	9852	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	9853	''#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	9854	!!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	9855	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9856
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9857	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9859	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9860	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9861	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9862
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9863	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9864	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9865
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9866	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9867	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9868	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9869	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9870	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9871
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9872	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9873
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9874	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9875	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9876	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9877	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9878	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9879	label: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9880	name: 'RDoIt Server Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9881	min: (Point 10 10)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	9882	bounds: (Rectangle 0 0 600 550)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9883	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9884	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9885	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9886	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9887	(FramedBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9888	label: 'RDoIt'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9889	name: 'RDoItFramedBox'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9890	layout: (LayoutFrame 0 0 0 0 0 1 219 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9891	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9892	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9893	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9894	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	9895	collection: (
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9896	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9897	name: 'VerticalPanel2'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9898	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	9899	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9900	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9901	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9902	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9903	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9904	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9905	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9906	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9907	name: 'Box1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9908	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9909	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9910	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9911	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9912	label: 'Remote doits enabled'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9913	name: 'CheckBox1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9914	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9915	enableChannel: hasRDoitServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9916	model: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9917	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9918	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9919	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9920
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9921	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9922	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9923	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9924	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9925	name: 'Box2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9926	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9927	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9928	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9929	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9930	label: 'Port/Path:'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9931	name: 'Label2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9932	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9933	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9934	adjust: right
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9935	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9936	(InputFieldSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9937	name: 'EntryField1'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9938	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9939	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9940	model: rDoitServerPortOrPath
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9941	acceptOnReturn: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9942	acceptOnTab: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9943	acceptOnLostFocus: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9944	acceptOnPointerLeave: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9945	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9946	(LabelSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9947	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9948	name: 'Label3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9949	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9950	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9951	adjust: left
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9952	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9953	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9954
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9955	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9956	extent: (Point 566 60)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9957	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9958	(ViewSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9959	name: 'Box13'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9960	component:
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9961	(SpecCollection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9962	collection: (
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9963	(CheckBoxSpec
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9964	label: 'Local Connections Only'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9965	name: 'CheckBox10'
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9966	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9967	enableChannel: rDoitsEnabled
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9968	model: rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9969	translateLabel: true
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9970	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9971	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9972
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9973	)
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9974	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9975	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9976	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9977	name: 'Box3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9978	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9979	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9980	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9981	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9982	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9983	name: 'CheckBox2'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9984	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9985	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9986	model: rDoitErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9987	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9988	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9989	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9990
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9991	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	9992	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9993	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9994	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9995	name: 'Box4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9996	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9997	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9998	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	9999	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10000	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10001	name: 'CheckBox3'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10002	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10003	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10004	model: rDoitLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10005	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10006	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10007	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10008
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10009	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10010	extent: (Point 566 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10011	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10012	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10013	name: 'Box5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10014	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10015	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10016	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10017	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10018	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10019	name: 'CheckBox4'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10020	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10021	enableChannel: rDoitsEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10022	model: rDoitErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10023	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10024	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10025	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10026
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10027	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10028	extent: (Point 566 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10029	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10030	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10031
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10032	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10033	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10034	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10035
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10036	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10037	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10038	(FramedBoxSpec
9174 841e5c387e0b * empty log message * Claus Gittinger <cg@exept.de> parents: 9167 diff changeset	10039	label: 'JavaScript-Scripting via Telnet'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10040	name: 'ScriptingFramedBox'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10041	layout: (LayoutFrame 0 0 218 0 0 1 433 0)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10042	labelPosition: topLeft
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10043	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10044	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10045	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10046	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10047	(VerticalPanelViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10048	name: 'VerticalPanel3'
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10049	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	10050	horizontalLayout: fit
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10051	verticalLayout: top
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10052	horizontalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10053	verticalSpace: 0
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10054	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10055	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10056	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10057	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10058	name: 'Box6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10059	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10060	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10061	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10062	(CheckBoxSpec
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10063	label: 'JavaScript-Scripting enabled'
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10064	name: 'CheckBox5'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10065	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10066	enableChannel: hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10067	model: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10068	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10069	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10070	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10071
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10072	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10073	extent: (Point 566 25)
8740 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	(ViewSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10076	name: 'Box12'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10077	component:
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10078	(SpecCollection
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10079	collection: (
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10080	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10081	label: 'Port:'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10082	name: 'Label4'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10083	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10084	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10085	adjust: right
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10086	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10087	(InputFieldSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10088	name: 'EntryField2'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10089	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10090	enableChannel: rDoitsEnabled
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10091	model: scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10092	isReadOnly: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10093	acceptOnReturn: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10094	acceptOnTab: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10095	acceptOnLostFocus: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10096	acceptOnPointerLeave: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10097	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10098	(LabelSpec
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10099	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10100	name: 'Label5'
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10101	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10102	initiallyInvisible: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10103	translateLabel: true
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10104	adjust: left
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10105	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10106	)
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10107
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10108	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10109	extent: (Point 566 60)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10110	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10111	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10112	name: 'Box11'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10113	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10114	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10115	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10116	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10117	label: 'Local Connections Only'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10118	name: 'CheckBox9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10119	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10120	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10121	model: scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10122	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10123	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10124	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10125
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10126	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10127	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10128	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10129	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10130	name: 'Box8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10131	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10132	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10133	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10134	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10135	label: 'Log errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10136	name: 'CheckBox6'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10137	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10138	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10139	model: scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10140	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10141	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10142	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10143
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10144	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10145	extent: (Point 566 25)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10146	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10147	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10148	name: 'Box9'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10149	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10150	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10151	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10152	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10153	label: 'Log requests'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10154	name: 'CheckBox7'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10155	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10156	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10157	model: scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10158	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10159	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10160	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10161
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10162	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10163	extent: (Point 566 24)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10164	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10165	(ViewSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10166	name: 'Box10'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10167	component:
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10168	(SpecCollection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10169	collection: (
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10170	(CheckBoxSpec
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10171	label: 'Debug errors'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10172	name: 'CheckBox8'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10173	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10174	enableChannel: scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10175	model: scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10176	translateLabel: true
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10177	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10178	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10179
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10180	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10181	extent: (Point 566 23)
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10182	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10183	)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10184
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10185	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10186	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10188
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10191	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10192
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10193	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10194	)
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10195
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10196	"Modified: / 20-05-2010 / 12:15:22 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10197	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10198
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10199	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10200
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10201	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10202	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10203	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10204	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10205	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10206
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10207	rDoitsEnabled := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10208	rDoitLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10209	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10210	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10211	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10212	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10213
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10214	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10215	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10216
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10217	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10218	rDoitsEnabled := RDoItServer serverRunning.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10219	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10220	rDoitLogging := RDoItServer isLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10221	rDoitErrorLogging := RDoItServer isErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10222	rDoitErrorDebugging := RDoItServer isErrorCatching not.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10223	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10224	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10225
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10226	(STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10227	and:[ STXScriptingServer isLoaded ]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10228	scriptingEnabled := STXScriptingServer serverRunning.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10229	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10230	scriptingLogging := STXScriptingServer isLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10231	scriptingErrorLogging := STXScriptingServer isErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10232	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10233	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10234
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10235	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10236	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10237	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10238	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10239	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10240
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10241	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10242	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10243	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10244	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10245	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10246
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10247	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10248	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10249
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10250	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10251	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10252
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10253	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10254
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10255	self hasRDoitServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10256	RDoItServer defaultPortNumberOrPath:portOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10257	RDoItServer logging:self rDoitLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10258	RDoItServer errorLogging:self rDoitErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10259	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10260	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10261	shouldRun := self rDoitsEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10262	shouldRun ~~ RDoItServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10263	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10264	RDoItServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10265	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10266	RDoItServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10267	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10268	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10269	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10270	RDoItServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10271	self warn:'RDoit startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10272	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10273	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10274	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10275	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10276
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10277	self hasScriptingServerClass ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10278	STXScriptingServer logging:self scriptingLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10279	STXScriptingServer errorLogging:self scriptingErrorLogging value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10280	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10281	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10282	shouldRun := self scriptingEnabled value.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10283	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10284	shouldRun ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10285	STXScriptingServer stop
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10286	] ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10287	STXScriptingServer start.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10288	"/ must wait a bit; give it a chance to
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10289	"/ really start (before checking)
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10290	Delay waitForSeconds:1.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10291	STXScriptingServer serverRunning ifFalse:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10292	self warn:'STXScripting startup failed (see stderr).'
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10293	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10294	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10295	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10296	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10297
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10298	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10299	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10300
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10301	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10302	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10303
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10304	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10305	portOrPath isNumber ifFalse:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10306	"a numeric string means it is a TCP port number"
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10307	nrOrNil := Integer readFrom:portOrPath onError:nil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10308	nrOrNil notNil ifTrue:[
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10309	portOrPath := nrOrNil.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10310	]
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10311	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10312	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10313	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10314
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10315	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10316
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10317	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10318	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10319	rDoitEnabledOnlyViaLocalConnection := true asValue.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10320	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10321	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10322	^ rDoitEnabledOnlyViaLocalConnection.
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	"Created: / 20-05-2010 / 12:15:12 / cg"
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10327	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10328	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10329	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10330	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10331	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10332	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10333	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10334
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10335	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10336	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10337	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10338	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10339	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10340	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10341	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10343	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10344	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10345	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10346	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10347	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10348	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10349	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10350
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10351	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10352	rDoitOnlyViaLocalConnection isNil ifTrue:[
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10353	rDoitOnlyViaLocalConnection := true asValue.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10354	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10355	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10356	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10357
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10358	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10359	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10360
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10361	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10362	rDoitServerPortOrPath isNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10363	rDoitServerPortOrPath := nil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10364	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	10365	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	10366	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10367	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10368
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10369	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10370	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10371	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10372	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10373	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10374	^ rDoitsEnabled.
8442 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	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10378	scriptingEnabled isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10379	scriptingEnabled := false asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10380	scriptingEnabled 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	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10383	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10384
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10385	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10386	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10387	scriptingEnabledOnlyViaLocalConnection := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10388	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10389	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10390	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10391	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10392
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10393	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10394	scriptingErrorDebugging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10395	scriptingErrorDebugging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10396	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10397	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10398	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10399	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10400
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10401	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10402	scriptingErrorLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10403	scriptingErrorLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10404	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10405	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10406	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10407	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10408
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10409	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10410	scriptingLogging isNil ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10411	scriptingLogging := true asValue.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10412	scriptingLogging onChangeSend:#updateModifiedChannel to:self
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10413	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10414	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10415	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10416
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10417	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10418	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10419
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10420	"automatically generated by UIPainter ..."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10421
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10422	"*** the code below creates a default model when invoked."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10423	"*** (which may not be the one you wanted)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10424	"*** Please change as required and accept it in the browser."
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10425	"*** (and replace this comment by something more useful ;-)"
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10426
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10427	scriptingServerPortOrPath isNil ifTrue:[
9397 8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10428	STXScriptingServer notNil ifTrue:[
8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10429	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
8314abc6ed8f * empty log message * Claus Gittinger <cg@exept.de> parents: 9342 diff changeset	10430	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10431	"/ 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	10432	"/ scriptingServerPortOrPath addDependent:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10433	"/ scriptingServerPortOrPath onChangeSend:#scriptingServerPortOrPathChanged to:self.
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10434	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	10435	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10436	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10437
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10438	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10439
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10440	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10441	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10442	self rDoitsEnabled value ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10443	RDoItServer autoload.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	10444	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10445	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10446	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10447	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10448	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10449
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10450	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10451
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10452	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10453	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10454	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10455
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10456	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10458	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10459	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10460	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10461
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10462	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10463	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10464	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10465
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10466	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10467	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10468	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10469
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10470	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10471	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10472	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10473
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10474	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10475	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10476	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10477	RDoItServer serverRunning ifTrue:[
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10478	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10479	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10480	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	10481	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10482	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10483	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10484	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10485	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10486	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10487	STXScriptingServer serverRunning ifTrue:[
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10488	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10489	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10490	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10491	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10492	]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	10493	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10494	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10495
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	10496	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10497	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10498
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10499	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10500
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10501	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10502	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10503	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10504
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10505	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10506	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10507
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10508	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10509	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10510	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10511	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10512	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10513
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10514	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10515
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10516	^Icon
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10517	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10518	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	10519	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10520	@@@@@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	10521	@@@@@@@@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	10522	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	10523	@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	10524	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	10525	@@@@@@@@@@@@@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	10526	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10527
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10528	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10529	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10530	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10531
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10532	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10533	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10534
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10535	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10536	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10537	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10538	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10539	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10540
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10541	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10542
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10543	^Icon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10544	constantNamed:'Object class dbIcon2'
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10545	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	10546	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10547	@@@@@@@@@@@@@@@@@@@@!!!!"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	10548	"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	10549	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	10550	@@@@@@@@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	10551	W@@@@@@@@@@@@@@@@@B@_$X!!#H0!!Q'':@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10552	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	10553	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10554
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10555	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10556	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10557
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10558	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	10559	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10560	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10561
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10562	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10563
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10564	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10565	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10566	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10567
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10568	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10569	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10570
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10571	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10572	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10573	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10574	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10575	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10576
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10577	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10578
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10579	^
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10580	#(FullSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10581	name: windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10582	window:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10583	(WindowSpec
6428 76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	10584	label: 'SQL Server Settings'
76dfcf8cb841 * empty log message * Claus Gittinger <cg@exept.de> parents: 6427 diff changeset	10585	name: 'SQL Server Settings'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10586	min: (Point 10 10)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10587	bounds: (Rectangle 0 0 600 550)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10588	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10589	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10590	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10591	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10592	(VerticalPanelViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10593	name: 'VerticalPanel2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10594	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	10595	horizontalLayout: fit
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10596	verticalLayout: top
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10597	horizontalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10598	verticalSpace: 3
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10599	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10600	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10601	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10602	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10603	name: 'EnableBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10604	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10605	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10606	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10607	(CheckBoxSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10608	label: 'SQL Server Enabled'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10609	name: 'EnableCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10610	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10611	enableChannel: hasSQLServerClass
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10612	model: sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10613	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10614	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10615	)
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	extent: (Point 600 25)
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	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10621	name: 'PortBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10622	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10623	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10624	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10625	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10626	label: 'MySQL Port:'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10627	name: 'Label2'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10628	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10629	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10630	adjust: right
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10631	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10632	(InputFieldSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10633	name: 'EntryField1'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10634	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10635	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10636	model: sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10637	acceptOnReturn: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10638	acceptOnTab: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10639	acceptOnLostFocus: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10640	acceptOnPointerLeave: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10641	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10642	(LabelSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10643	label: 'MySQL Port-Number (ODBC)'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10644	name: 'Label3'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10645	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10646	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10647	adjust: left
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10648	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10649	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10650
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10651	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10652	extent: (Point 600 72)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10653	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10654	(ViewSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10655	name: 'LogErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10656	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10657	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10658	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10659	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10660	label: 'Log Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10661	name: 'ErrorLoggingCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10662	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10663	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10664	model: sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10665	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10666	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10667	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10668
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10669	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10670	extent: (Point 600 25)
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	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10673	name: 'LogDataBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10674	component:
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10675	(SpecCollection
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10676	collection: (
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10677	(CheckBoxSpec
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10678	label: 'Log Data'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10679	name: 'LogDataCheckBox'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10680	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10681	enableChannel: sqlServerEnabled
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10682	model: sqlDataLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10683	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10684	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10685	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10686
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10687	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10688	extent: (Point 600 23)
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	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10691	name: 'LogRequestsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10692	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10693	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10694	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10695	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10696	label: 'Log Requests'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10697	name: 'LogRequestsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10698	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10699	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10700	model: sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10701	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10702	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10703	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10704
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10705	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10706	extent: (Point 600 24)
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	(ViewSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10709	name: 'LogSQLBox'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10710	component:
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10711	(SpecCollection
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10712	collection: (
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10713	(CheckBoxSpec
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10714	label: 'Log SQL'
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10715	name: 'CheckBox1'
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10716	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10717	enableChannel: sqlServerEnabled
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10718	model: sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10719	translateLabel: true
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10720	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10721	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10722
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10723	)
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10724	extent: (Point 600 24)
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10725	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10726	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10727	name: 'DebugErrorsBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10728	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10729	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10730	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10731	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10732	label: 'Debug Errors'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10733	name: 'DebugErrorsCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10734	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10735	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10736	model: sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10737	translateLabel: true
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	extent: (Point 600 23)
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	(ViewSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10745	name: 'Box1'
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10746	extent: (Point 600 10)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10747	)
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10748	(ViewSpec
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10749	name: 'EnableSmalltalkBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10750	component:
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10751	(SpecCollection
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10752	collection: (
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10753	(CheckBoxSpec
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10754	label: 'Virtual Smalltalk Tables Enabled'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10755	name: 'EnableSmalltalkCheckBox'
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10756	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10757	enableChannel: sqlServerEnabled
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10758	model: sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10759	translateLabel: true
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10760	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10761	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10762
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10763	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10764	extent: (Point 600 24)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10765	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10766	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10767
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10768	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10769	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10770	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10771
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10772	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10773	)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10774	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10775
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10776	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10777
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10778	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10779	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10780
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10781	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10782	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10783	self sqlServerEnabled value:sqlServerClass serverRunning.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10784	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10785	self sqlLogging value:sqlServerClass isLogging.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10786	self sqlStatementLogging value:sqlServerClass isSQLLogging.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10787	self sqlErrorLogging value:sqlServerClass isErrorLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10788	self sqlDataLogging value:sqlServerClass isDataLogging.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10789	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10790	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10791	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10792	self sqlServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10793	self sqlSmalltalkServerEnabled value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10794	self sqlLogging value:false.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10795	self sqlStatementLogging value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10796	self sqlErrorLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10797	self sqlDataLogging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10798	self sqlErrorDebugging value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10799	self sqlServerPort value:nil
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10800	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10801
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10802	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10803	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10804
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10805	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10806	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10807
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10808	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10809
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10810	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10811	port isNumber ifFalse:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10812	port := port asInteger.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10813	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10814
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10815	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10816	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10817	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10818	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10819	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10820	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10821	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10822
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10823	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10824	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10825	shouldRun ifFalse:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10826	sqlServerClass stop
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10827	] ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10828	sqlServerClass start.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10829	"/ must wait a bit; give it a chance to
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10830	"/ really start (before checking)
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10831	Delay waitForSeconds:1.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10832	sqlServerClass serverRunning ifFalse:[
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10833	self warn:'SQLServer startup failed (see stderr).'
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	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10836	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10837
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10838	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10841	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10842
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10843	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10844	sqlDataLogging isNil ifTrue:[
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10845	sqlDataLogging := true asValue.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10846	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10847	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10848	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10849	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	10850
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10851	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10852	sqlErrorDebugging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10853	sqlErrorDebugging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10854	sqlErrorDebugging 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	^ sqlErrorDebugging.
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	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10860	sqlErrorLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10861	sqlErrorLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10862	sqlErrorLogging onChangeSend:#updateModifiedChannel 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	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10865	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10866
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10867	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10868	sqlLogging isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10869	sqlLogging := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10870	sqlLogging onChangeSend:#updateModifiedChannel to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10871	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10872	^ sqlLogging.
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	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10876	sqlServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10877	sqlServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10878	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10879	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10880	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10881	!
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	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10884	sqlServerPort isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10885	sqlServerPort := ValueHolder new.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10886	sqlServerPort onChangeSend:#updateModifiedChannel to:self
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	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10889	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10890
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10891	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10892	sqlSmalltalkServerEnabled isNil ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10893	sqlSmalltalkServerEnabled := true asValue.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10894	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10895	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10896	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10897	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10898
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10899	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10900	sqlStatementLogging isNil ifTrue:[
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10901	sqlStatementLogging := true asValue.
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10902	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10903	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10904	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10905	! !
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	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10908
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10909	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10910	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10911	self sqlServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10912	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10913	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10914	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10915	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10916
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10917	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10918	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10919
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10920	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10921	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10922	self sqlSmalltalkServerEnabled value ifTrue:[
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10923	sqlServerPort value isEmptyOrNil ifTrue:[
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10924	sqlServerPort value:(self sqlServerClass defaultPort)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10925	]
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10926	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10927
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10928	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10929	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10930
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10931	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10932
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10933	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10934	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10935	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10936
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10937	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
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	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10940	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10941
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10942	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10943	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10944
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10945	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10946	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10947
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10948	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10949	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10950
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10951	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10952	sqlServerClass serverRunning ifTrue:[
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10953	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10954	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	10955	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10956	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10957	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10958	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10959	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10960	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10961	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10962
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10963	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10964	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10965
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10966	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10967	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10968
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	10969	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10970	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	10971
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10972	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10973
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10974	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10975	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10976	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10977
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10978	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10979
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	10980	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10981	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10982
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10983	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10984
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10985	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10986	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10987
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	10988	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10989
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	10990	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10991	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10992
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	10993	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10994	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10995	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10996
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10997	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10998	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10999
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11000	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11001	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11002	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11003	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11004	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11005
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11006	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11007
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11008	^Icon
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11009	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon1'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11010	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	11011	@@@@@@@@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	11012	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	11013	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11014
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11015	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11016	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11017	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11018
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11019	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11020	the ImageEditor may not be able to read the specification."
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	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11024	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11025	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11026	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11027
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11028	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11029
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11030	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11031	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11032	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	11033	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	11034	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	11035	@@@@@@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	11036	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	11037	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	11038	@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	11039	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	11040	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11041
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11042	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11043	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11044	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11045
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11046	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11047	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11048
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11049	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11050	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11051	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11052	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11053	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11054
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11055	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11056
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11057	^Icon
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11058	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	11059	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	11060	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	11061	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	11062	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	11063	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	11064	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	11065	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	11066	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	11067	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11068
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11069	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11070	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11071	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11072
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11073	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11074	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11075
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11076	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11077	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11078	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11079	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11080	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11081
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11082	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11083
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11084	^Icon
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11085	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	11086	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	11087	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	11088	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	11089	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	11090	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	11091	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	11092	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	11093	@@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	11094	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11095
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11096	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11097
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11098	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11099	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11100	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11101
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11102	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11103	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11104
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11105	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11106	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11107	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11108	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11109	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11110
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11111	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11112
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11113	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11114	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11115	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11116	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11117	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11118	label: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11119	name: 'STC Compiler Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11120	min: (Point 10 10)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11121	bounds: (Rectangle 0 0 600 478)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11122	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11123	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11124	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11125	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11126	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11127	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11128	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	11129	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11130	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11131	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11132	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11133	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11134	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11135	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11136	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11137	name: 'SeparatingBox12'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11138	extent: (Point 600 4)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11139	)
a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11140	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11141	name: 'STCCompilationBox11'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11142	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11143	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11144	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11145	(LabelSpec
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11146	label: 'STC Compilation to Machine Code:'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11147	name: 'Label11'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11148	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	11149	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11150	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11151	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11152	(PopUpListSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11153	label: 'PopUp List'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11154	name: 'StcCompilation'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11155	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	11156	tabable: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11157	model: stcCompilationSelection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11158	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11159	menu: stcCompilationList
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11160	useIndex: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11161	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11162	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11163
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11164	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11165	extent: (Point 600 29)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11166	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11167	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11168	name: 'STCCommandBox1'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11169	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11170	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11171	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11172	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11173	label: 'STC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11174	name: 'Label1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11175	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	11176	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11177	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11178	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11179	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11180	name: 'EntryField1'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11181	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	11182	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11183	model: stc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11184	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11185	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11186	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11187	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11188	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11189	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11190	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11191
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11192	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11193	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11194	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11195	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11196	name: 'STCOptionsBox2'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11197	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11198	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11199	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11200	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11201	label: 'STC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11202	name: 'Label2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11203	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	11204	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11205	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11206	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11207	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11208	name: 'EntryField2'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11209	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	11210	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11211	model: stcOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11212	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11213	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11214	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11215	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11216	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11217	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11218	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11219
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11220	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11221	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11222	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11223	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11224	name: 'CCCommandBox3'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11225	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11226	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11227	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11228	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11229	label: 'CC Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11230	name: 'Label3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11231	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	11232	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11233	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11234	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11235	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11236	name: 'EntryField3'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11237	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	11238	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11239	model: cc
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11240	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11241	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11242	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11243	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11244	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11245	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11246	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11247
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11248	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11249	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11250	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11251	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11252	name: 'CCOptionsBox4'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11253	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11254	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11255	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11256	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11257	label: 'CC Options:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11258	name: 'Label4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11259	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	11260	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11261	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11262	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11263	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11264	name: 'EntryField4'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11265	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	11266	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11267	model: ccOptions
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11268	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11269	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11270	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11271	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11272	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11273	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11274	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11275
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11276	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11277	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11278	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11279	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11280	name: 'IncludeDirectoriesBox5'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11281	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11282	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11283	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11284	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11285	label: 'Include Directories:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11286	name: 'Label5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11287	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	11288	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11289	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11290	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11291	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11292	name: 'EntryField5'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11293	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	11294	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11295	model: stcIncludes
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11296	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11297	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11298	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11299	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11300	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11301	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11302	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11303
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11304	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11305	extent: (Point 600 35)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11306	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11307	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11308	name: 'STCDefinesBox6'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11309	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11310	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11311	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11312	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11313	label: 'Defines:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11314	name: 'Label6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11315	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	11316	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11317	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11318	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11319	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11320	name: 'EntryField6'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11321	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	11322	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11323	model: stcDefines
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11324	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11325	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11326	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11327	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11328	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11329	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11330	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11331
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11332	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11333	extent: (Point 600 34)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11334	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11335	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11336	name: 'LinkCommandBox7'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11337	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11338	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11339	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11340	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11341	label: 'Link Command:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11342	name: 'Label7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11343	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	11344	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11345	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11346	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11347	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11348	name: 'EntryField7'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11349	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	11350	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11351	model: linkCommand
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11352	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11353	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11354	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11355	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11356	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11357	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11358	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11359
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11360	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11361	extent: (Point 600 33)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11362	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11363	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11364	name: 'LinkArgumentsBox8'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11365	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11366	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11367	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11368	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11369	label: 'Link Arguments:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11370	name: 'Label8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11371	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	11372	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11373	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11374	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11375	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11376	name: 'EntryField8'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11377	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	11378	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11379	model: linkArgs
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11380	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11381	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11382	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11383	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11384	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11385	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11386	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11387
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11388	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11389	extent: (Point 600 32)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11390	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11391	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11392	name: 'LinkSharedArgumentsBox1'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11393	component:
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11394	(SpecCollection
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11395	collection: (
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11396	(LabelSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11397	label: 'Link Shared Arguments:'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11398	name: 'Label12'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11399	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	11400	translateLabel: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11401	adjust: right
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11402	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11403	(InputFieldSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11404	name: 'EntryField11'
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11405	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	11406	enableChannel: canLoadBinaries
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11407	model: linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11408	acceptOnLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11409	acceptOnReturn: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11410	acceptOnTab: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11411	acceptOnLostFocus: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11412	acceptOnPointerLeave: true
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11413	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11414	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11415
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11416	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11417	extent: (Point 600 31)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11418	)
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11419	(ViewSpec
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11420	name: 'CLibrariesBox9'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11421	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11422	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11423	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11424	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11425	label: 'C-Libraries:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11426	name: 'Label9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11427	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	11428	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11429	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11430	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11431	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11432	name: 'EntryField9'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11433	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	11434	enableChannel: canLoadBinaries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11435	model: stcLibraries
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11436	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11437	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11438	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11439	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11440	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11441	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11442	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11443
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11444	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11445	extent: (Point 600 31)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11446	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11447	(ViewSpec
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11448	name: 'STCLibraryPathBox10'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11449	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11450	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11451	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11452	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11453	label: 'STC Library Path:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11454	name: 'Label10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11455	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	11456	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11457	adjust: right
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11458	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11459	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11460	name: 'EntryField10'
6256 a54bfc2fb8b7 layout Claus Gittinger <cg@exept.de> parents: 6251 diff changeset	11461	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	11462	enableChannel: enableStcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11463	model: stcLibraryPath
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11464	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11465	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11466	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11467	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11468	acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11469	)
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	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11473	extent: (Point 600 30)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11474	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11475	(ViewSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11476	name: 'MakeCommandBox'
ec908ed4b944 make command fm parents: 6860 diff changeset	11477	component:
ec908ed4b944 make command fm parents: 6860 diff changeset	11478	(SpecCollection
ec908ed4b944 make command fm parents: 6860 diff changeset	11479	collection: (
ec908ed4b944 make command fm parents: 6860 diff changeset	11480	(LabelSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11481	label: 'Make Command:'
ec908ed4b944 make command fm parents: 6860 diff changeset	11482	name: 'Label13'
ec908ed4b944 make command fm parents: 6860 diff changeset	11483	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
ec908ed4b944 make command fm parents: 6860 diff changeset	11484	translateLabel: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11485	adjust: right
ec908ed4b944 make command fm parents: 6860 diff changeset	11486	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11487	(InputFieldSpec
ec908ed4b944 make command fm parents: 6860 diff changeset	11488	name: 'EntryField12'
ec908ed4b944 make command fm parents: 6860 diff changeset	11489	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	11490	model: makeCommand
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11491	acceptOnLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11492	acceptOnReturn: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11493	acceptOnTab: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11494	acceptOnLostFocus: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11495	acceptOnPointerLeave: true
ec908ed4b944 make command fm parents: 6860 diff changeset	11496	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11497	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11498
ec908ed4b944 make command fm parents: 6860 diff changeset	11499	)
ec908ed4b944 make command fm parents: 6860 diff changeset	11500	extent: (Point 600 29)
ec908ed4b944 make command fm parents: 6860 diff changeset	11501	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11502	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11503
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11504	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11505	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11506	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11507
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11508	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11509	)
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11510
6867 35d36dde8831 * empty log message * fm parents: 6866 diff changeset	11511	"Modified: / 09-08-2006 / 19:31:38 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11512	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11513
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11514	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11515
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11516	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11517	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11518
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11519	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11520	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11521
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11522	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11523	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11524	self stcOptions value:ParserFlags stcCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11525	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11526	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11527	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11528	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11529
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11530	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11531	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11532	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11533
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11534	(t := ParserFlags searchedLibraries) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11535	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11536	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11537	(t := ParserFlags libPath) notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11538	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11539	].
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11540
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11541	self stcCompilationSelection value:(self class stcCompilationOptions
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11542	indexOf:(ParserFlags stcCompilation)
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11543	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11544
ec908ed4b944 make command fm parents: 6860 diff changeset	11545	"Modified: / 09-08-2006 / 18:49:38 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11546	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11547
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11548	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11549
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11550	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11551	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11552	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11553	ParserFlags stcCompilationOptions:self stcOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11554	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11555	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	11556	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11557
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11558	self stc value ~= ParserFlags stcPath ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11559	ParserFlags stcPath:self stc value
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11560	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11561	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11562	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11563	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11564	self stcLibraries value notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11565	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11566	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11567	stcLibraryPath notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11568	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11569	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11570
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	11571	"Modified: / 09-08-2006 / 19:33:10 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11572	! !
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	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11575
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11576	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11577
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11578	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11579	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
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	^ canLoadBinaries.
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	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11585
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11586	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11587	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11588	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11589	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11590	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11591	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11592
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11593	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11594
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11595	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11596	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11597	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11598	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11599	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11600	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11601
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11602	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11603
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11604	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11605	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11607	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11608
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11609	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11610	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11611	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11612	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11613	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11614	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11615
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11616	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11617
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11618	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11619	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11620	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11621	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11622	^ linkCommand.
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
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11625	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11626
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11627	linkSharedArgs isNil ifTrue:[
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11628	linkSharedArgs := ValueHolder new.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11629	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11630	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11631	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11632	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	11633
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11634	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	11635
ec908ed4b944 make command fm parents: 6860 diff changeset	11636	makeCommand isNil ifTrue:[
ec908ed4b944 make command fm parents: 6860 diff changeset	11637	makeCommand := ValueHolder new.
ec908ed4b944 make command fm parents: 6860 diff changeset	11638	makeCommand onChangeSend:#updateModifiedChannel to:self.
ec908ed4b944 make command fm parents: 6860 diff changeset	11639	].
ec908ed4b944 make command fm parents: 6860 diff changeset	11640	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	11641
ec908ed4b944 make command fm parents: 6860 diff changeset	11642	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	11643	!
ec908ed4b944 make command fm parents: 6860 diff changeset	11644
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11645	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11646
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11647	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11648	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11649	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11650	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11651	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11652	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11653
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11654	stcCompilationList
4387 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	stcCompilationList isNil ifTrue:[
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	11657	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
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	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11660	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11661
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11662	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11663
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11664	stcCompilationSelection isNil ifTrue:[
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11665	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11666	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
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	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11669	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11670
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11671	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11672
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11673	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11674	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11675	stcDefines onChangeSend:#updateModifiedChannel to:self.
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	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11678	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11679
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11680	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11681
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11682	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11683	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11684	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11685	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11686	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11687	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11688
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11689	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11690
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11691	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11692	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11693	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11694	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11695	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11696	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11698	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11699
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11700	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11701	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11702	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11703	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11704	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11705	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11706
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11707	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11708
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11709	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11710	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	11711	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11712	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11713	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11714	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11715
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11716	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11717
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11718	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11719	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11720	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11721
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11722	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11723
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11724	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11725	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11726
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11727	((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	11728	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11729	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11730	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11731	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11732	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11733	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11734	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11735	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11736	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11737	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11738	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	11739	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11740
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11741	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11742	searchedLibs notNil ifTrue:[
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	11743	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11744	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	11745	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	11746
ec908ed4b944 make command fm parents: 6860 diff changeset	11747	"Modified: / 09-08-2006 / 18:50:36 / fm"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11748	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11749
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11750	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11751
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11752	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11754	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11755	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11756	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11757
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11758	\|index\|
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	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	11761	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11762	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11763	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11764	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11765	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11766	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11767	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11768	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11769	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11770	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11771	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11772	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11773	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11774	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11775	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11776	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11777	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11778	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11779	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11780	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11781	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11782	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11783	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11784	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11785	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11786	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11787	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11788	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11789	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11790	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11791	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11792	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11793	'.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11796	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11797
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11798	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11799	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11800	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11801
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11802	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11803	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11804
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11805	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11806	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11807	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11808	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11809	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11810
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11811	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11812
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11813	^Icon
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	11814	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11815	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	11816	*************("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	11817	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	11818	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	11819	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11820
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11821	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11823	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11824	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11825	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11826
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11827	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11828	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11830	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11831	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11832	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11833	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11834	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11835
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11836	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11837
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11838	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11839	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11840	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11841	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11842	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11843	label: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11844	name: 'Code Format Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11845	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11846	bounds: (Rectangle 0 0 604 676)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11847	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11848	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11849	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11850	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11851	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11852	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11853	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	11854	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11855	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11856	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11857	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11858	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11859	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11860	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11861	(VerticalPanelViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11862	name: 'VerticalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11863	horizontalLayout: fit
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11864	verticalLayout: bottom
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11865	horizontalSpace: 3
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11866	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11867	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11868	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11869	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11870	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11871	name: 'Box1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11872	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11873	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11874	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11875	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11876	label: 'Space around Temporaries'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11877	name: 'CheckBox3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11878	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11879	model: spaceAroundTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11880	translateLabel: true
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	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11883	label: 'Blank line after local Var Declaration'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11884	name: 'CheckBox4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11885	layout: (LayoutFrame 250 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11886	model: emptyLineAfterTemporaries
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11887	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11888	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11889	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11890
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11891	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11892	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11893	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11894	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11895	name: 'Box11'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11896	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11897	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11898	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11899	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11900	label: 'Space after ''^'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11901	name: 'CheckBox5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11902	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11903	model: spaceAfterReturnToken
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11904	translateLabel: true
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	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11907	label: 'Space after '':'' in Keywords'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11908	name: 'CheckBox6'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11909	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11910	model: spaceAfterKeywordSelector
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11911	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11912	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11913	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11914
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11915	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11916	extent: (Point 604 22)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11917	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11918	(ViewSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11919	name: 'Box15'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11920	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11921	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11922	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11923	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11924	label: 'Space after ''['''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11925	name: 'CheckBox9'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11926	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11927	model: spaceAfterBlockStart
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11928	translateLabel: true
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	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11931	label: 'Space before '']'''
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11932	name: 'CheckBox10'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11933	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11934	model: spaceBeforeBlockEnd
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11935	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11936	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11937	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11938
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11939	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11940	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11941	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11942	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11943	name: 'Box12'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11944	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11945	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11946	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11947	(CheckBoxSpec
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11948	label: 'C-Style Blocks'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11949	name: 'CheckBox8'
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11950	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11951	model: cStyleBlocks
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11952	translateLabel: true
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11953	)
a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	11954	(CheckBoxSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11955	label: 'Block Args on new Line'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11956	name: 'CheckBox7'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11957	layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11958	model: blockArgumentsOnNewLine
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11959	translateLabel: true
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	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11962
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11963	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11964	extent: (Point 604 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11965	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11966	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11967	name: 'Box13'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11968	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11969	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11970	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11971	(LabelSpec
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11972	label: 'Indent:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11973	name: 'Label1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11974	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	11975	translateLabel: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11976	adjust: right
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11977	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11978	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11979	name: 'EntryField1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11980	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11981	model: tabIndent
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11982	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11983	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11984	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11985	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11986	acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11987	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11988	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11989
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11990	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11991	extent: (Point 604 30)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11992	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11993	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11994	name: 'Box16'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11995	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11996	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11997	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11998	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	11999	label: 'Max Length for Single Line Blocks:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12000	name: 'Label5'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12001	layout: (LayoutFrame 0 0 0 0 250 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12002	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12003	adjust: right
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12004	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12005	(InputFieldSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12006	name: 'EntryField4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12007	layout: (LayoutFrame 253 0 0 0 300 0 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12008	model: maxLengthForSingleLineBlocks
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12009	type: number
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12010	acceptOnReturn: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12011	acceptOnTab: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12012	acceptOnLostFocus: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12013	acceptOnPointerLeave: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12014	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12015	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12016
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12017	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12018	extent: (Point 604 29)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12019	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12020	(HorizontalPanelViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12021	name: 'HorizontalPanel1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12022	horizontalLayout: fitSpace
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12023	verticalLayout: bottom
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12024	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12025	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12026	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12027	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12028	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12029	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12030	label: 'Reset to ST/X Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12031	name: 'Button1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12032	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12033	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12034	model: resetToStxDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12035	extent: (Point 297 22)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12036	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12037	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12038	label: 'Reset to RefactoryBrowser Default'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12039	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12040	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	12041	tabable: true
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12042	model: resetToRBDefault
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12043	extent: (Point 298 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12044	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12045	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12046
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12047	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12048	extent: (Point 604 30)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12049	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12050	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12051
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12052	)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12053	extent: (Point 604 180)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12054	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12055	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12056	name: 'SpacingBox1'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12057	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12058	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12059	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12060	name: 'Box14'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12061	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12062	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12063	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12064	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12065	label: 'Sample Output:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12066	name: 'Label3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12067	layout: (LayoutFrame 0 0 0 0 0 1 22 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12068	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12069	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12070	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12071	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12072	name: 'TextEditor3'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12073	layout: (LayoutFrame 0 0 22 0 0 1 300 0)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12074	model: editorText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12075	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12076	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12077	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12078	postBuildCallback: postBuildTextEditor:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12079	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12080	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12081
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12082	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12083	extent: (Point 604 300)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12084	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12085	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12086	name: 'SpacingBox2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	12087	extent: (Point 604 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12088	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12089	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12090	label: 'Auto Format'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12091	name: 'CheckBox2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12092	model: autoFormat
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12093	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	12094	extent: (Point 604 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12098	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12099	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12101
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12102	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12103	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12104	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12105
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12106	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12107
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12108	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12109	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12110
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12111	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12112	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12113	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12114	tabIndent
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12115	spaceAroundTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12116	emptyLineAfterTemporaries
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12117	spaceAfterReturnToken
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12118	spaceAfterKeywordSelector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12119	spaceAfterBlockStart
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12120	spaceBeforeBlockEnd
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12121	cStyleBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12122	blockArgumentsOnNewLine
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12123	maxLengthForSingleLineBlocks
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12124	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12125	from:RBFormatter.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12126
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12127	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12128	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12129	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12130	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12131	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12133	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12134
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12135	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12136	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12137	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12138	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12139	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12140	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12141	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12142	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12143	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12144	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12145	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12146	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12147	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12148	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12149	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12150	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12151	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12152	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12153	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12154	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12155	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	12156	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12157	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12158
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12159	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12160
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12161	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12162	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12163	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12164	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12165
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12166	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12167	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12168	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12169	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12170	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12171	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12172	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12173	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12174	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12175	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12176	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12177	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12178	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12179	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12180
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12181	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12182	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12183	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12184	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12185	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12186	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12187	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12188	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12189	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12190	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12191	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12192
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12193	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12194	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12195	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12196	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12197	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12198	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12199	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12200	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12201	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	12202	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12204	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12205	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12206	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12207	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12208	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12209	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12210	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12211	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12212	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12213	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12214	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12215	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12216	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12217
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12218	resetToRBDefault
4398 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	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12221	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12222	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12223	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12224	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12225	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12226	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12227	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12228	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12229	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12230	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12231	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12232	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12233	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12235	resetToStxDefault
4398 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	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12238	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12239	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12240	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12241	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12242	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12243	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12244	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12245	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12246	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12247	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12248	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12249	self reformat.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12252	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12254	autoFormat
4398 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	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12257	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12258	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12259	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12260	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12261	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12262
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12263	blockArgumentsOnNewLine
4398 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	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12266	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12267	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12268	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12269	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12270	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12271
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12272	cStyleBlocks
4398 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	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12275	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12276	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12277	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12278	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12279	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12280
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12281	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12282
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12283	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12284	editorText := ValueHolder new.
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	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12287	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12288
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12289	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12290
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12291	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12292	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12293	emptyLineAfterTemporaries addDependent:self.
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	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12296	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12298	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12299
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12300	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12301	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12302	maxLengthForSingleLineBlocks addDependent:self.
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	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12305	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12306
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12307	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12308
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12309	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12310	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12311	spaceAfterBlockStart addDependent:self.
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	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12314	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12315
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12316	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12317
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12318	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12319	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12320	spaceAfterKeywordSelector addDependent:self.
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	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12323	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12325	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12326
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12327	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12328	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12329	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12330	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12331	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12332	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12333
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12334	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12335
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12336	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12337	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12338	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12339	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12340	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12341	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12342
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12343	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12344
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12345	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12346	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12347	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12348	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12349	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12350	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	12351
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12352	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12353
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12354	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12355	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12356	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12357	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12358	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12359	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12360
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12361	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12362
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12363	update:something with:aParameter from:changedObject
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12364	(changedObject == self blockArgumentsOnNewLine
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12365	or:[ changedObject == self cStyleBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12366	or:[ changedObject == self emptyLineAfterTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12367	or:[ changedObject == self maxLengthForSingleLineBlocks
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12368	or:[ changedObject == self spaceAfterKeywordSelector
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12369	or:[ changedObject == self spaceAfterReturnToken
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12370	or:[ changedObject == self spaceAfterBlockStart
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12371	or:[ changedObject == self spaceBeforeBlockEnd
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12372	or:[ changedObject == self spaceAroundTemporaries
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12373	or:[ changedObject == self tabIndent]]]]]]]]])
b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	12374	ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12375	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12376	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	12377	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	12378	].
c72e35116b13 instable state penk parents: 5040 diff changeset	12379	super
c72e35116b13 instable state penk parents: 5040 diff changeset	12380	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	12381	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	12382	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12383	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12384
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12385	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12386
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12387	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12388	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12389	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12390
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12391	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12393	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12394	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12395	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12396	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12397	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12398	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12399	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12400	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12401	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12402	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12403
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12404	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12405
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12406	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12407	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12408	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12409
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12410	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12411
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12412	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12413	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12414
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12415	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12416	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12417	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12418	tabIndent
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12419	spaceAroundTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12420	emptyLineAfterTemporaries
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12421	spaceAfterReturnToken
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12422	spaceAfterKeywordSelector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12423	spaceAfterBlockStart
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12424	spaceBeforeBlockEnd
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12425	cStyleBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12426	blockArgumentsOnNewLine
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12427	maxLengthForSingleLineBlocks
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12428	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12429	asComparedTo:RBFormatter) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	12430
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12431	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12432	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12433
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12434	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12436	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12437	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12438	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12439
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12440	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12441	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12442
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12443	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12444	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12445	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12446	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12447	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12448
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12449	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12450
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12451	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12452	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12453	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	12454	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12455	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12456	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12457	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12458	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12459	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	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	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12464	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12465	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12466	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12468	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12469	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12471	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12472	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12473	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12474	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12475	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12477	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12479	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12480	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12481	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12482	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12483	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12484	label: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12485	name: 'Source Code Manager Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12486	min: (Point 10 10)
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	12487	bounds: (Rectangle 0 0 659 580)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12488	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12489	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12490	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12491	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12492	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12493	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12494	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	12495	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12496	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12497	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12498	verticalSpace: 20
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12499	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12500	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12501	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12502	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12503	name: 'VerticalPanel3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12504	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12505	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12506	horizontalSpace: 3
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12507	verticalSpace: 4
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12508	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12509	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12510	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12511	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12512	name: 'Box3'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12513	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12514	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12515	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12516	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12517	label: 'Sourcecode Management'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12518	name: 'SourcecodeManagementCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12519	layout: (LayoutFrame 5 0 5 0.0 300 0 27 0)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12520	model: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12521	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12522	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12523	(ComboListSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12524	name: 'ComboList1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12525	layout: (LayoutFrame -200 1 5 0 -5 1 27 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12526	visibilityChannel: moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12527	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12528	model: selectedManagerTypeIndexHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12529	comboList: availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12530	useIndex: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12531	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12532	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12533
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	12534	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	12535	extent: (Point 659 30)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12536	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12537	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12538	name: 'ManagerSetupBoxx'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12539	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12540	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	12541	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	12542	(FramedBoxSpec
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12543	label: 'Store-DB Repository Setup'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12544	name: 'StoreSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12545	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12546	visibilityChannel: managerIsStoreSourceCodeManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12547	labelPosition: topLeft
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12548	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12549	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12550	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12551	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12552	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12553	name: 'HostBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12554	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12555	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12556	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12557	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12558	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12559	label: 'DB or DB@Host:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12560	name: 'StoreHostLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12561	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12562	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12563	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12564	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12565	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12566	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12567	name: 'StoreHostComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12568	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12569	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12570	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12571	model: storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12572	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12573	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12574	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12575	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12576	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12577	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12578	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12579	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12580	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12581	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12582
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12583	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12584	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12585	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12586	name: 'UserBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12587	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12588	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12589	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12590	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12591	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12592	label: 'Username:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12593	name: 'StoreUserLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12594	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12595	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12596	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12597	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12598	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12599	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12600	name: 'StoreUserEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12601	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12602	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12603	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12604	model: storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12605	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12606	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12607	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12608	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12609
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12610	)
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	(ViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12613	name: 'PasswordBox'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12614	layout: (LayoutFrame 0 0.0 54 0 0 1 79 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12615	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12616	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12617	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12618	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12619	label: 'Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12620	name: 'Label7'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12621	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12622	level: 0
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12623	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12624	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12625	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12626	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12627	name: 'PasswordEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12628	layout: (LayoutFrame 44 0.25 0 0 -130 1 22 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12629	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12630	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12631	model: storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12632	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12633	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12634	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12635	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12636	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12637
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12638	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12639	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12640	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12641	name: 'HorizontalPanel4'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12642	layout: (LayoutFrame -130 1 51 0 0 1 82 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12643	horizontalLayout: fitSpace
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12644	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12645	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12646	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12647	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12648	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12649	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12650	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12651	label: 'Try to Connect'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12652	name: 'TryConnectButton1'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12653	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12654	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12655	model: storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12656	enableChannel: storeConnectEnabled
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12657	extent: (Point 124 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12658	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12659	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12660
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12661	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12662	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12663	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12664	label: 'DB per Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12665	name: 'Label4'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12666	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12667	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12668	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12669	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12670	(SequenceViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12671	name: 'List2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12672	layout: (LayoutFrame 44 0.25 82 0 0 1 180 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12673	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12674	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12675	model: selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12676	hasHorizontalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12677	hasVerticalScrollBar: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12678	miniScrollerHorizontal: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12679	useIndex: false
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12680	sequenceList: listOfModules
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12681	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12682	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12683	label: 'Module:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12684	name: 'perModuleModuleLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12685	layout: (LayoutFrame 0 0.0 186 0 40 0.25 203 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12686	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12687	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12688	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12689	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12690	name: 'perModuleModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12691	layout: (LayoutFrame 44 0.25 182 0 0 1 204 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12692	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12693	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12694	model: perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12695	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12696	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12697	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12698	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12699	label: 'DB:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12700	name: 'perModuleDBLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12701	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12702	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12703	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12704	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12705	(ComboBoxSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12706	name: 'perModuleModuleHostComboBox2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12707	layout: (LayoutFrame 44 0.25 207 0 0 1 229 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12708	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12709	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12710	model: perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12711	immediateAccept: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12712	acceptOnLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12713	acceptOnReturn: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12714	acceptOnTab: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12715	acceptOnLostFocus: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12716	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12717	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12718	comboList: storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12719	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12720	(LabelSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12721	label: 'User / Password:'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12722	name: 'perModuleUserPasswordLabel'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12723	layout: (LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12724	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12725	adjust: right
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12726	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12727	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12728	name: 'perModuleUserEntryField'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12729	layout: (LayoutFrame 44 0.25 232 0 -2 0.65 254 0)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12730	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12731	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12732	model: perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12733	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12734	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12735	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12736	(InputFieldSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12737	name: 'perModulePasswordEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12738	layout: (LayoutFrame 5 0.65 232 0 0 1 254 0)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12739	enableChannel: useManager
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12740	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12741	model: perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12742	type: password
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12743	acceptChannel: acceptChannel
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12744	acceptOnPointerLeave: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12745	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12746	(HorizontalPanelViewSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12747	name: 'HorizontalPanel5'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12748	layout: (LayoutFrame 44 0.25 -25 1 -10 0.65 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12749	horizontalLayout: fit
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12750	verticalLayout: center
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12751	horizontalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12752	verticalSpace: 3
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12753	component:
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12754	(SpecCollection
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12755	collection: (
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12756	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12757	label: 'Add/Apply'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12758	name: 'AddButton2'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12759	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12760	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12761	model: addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12762	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12763	extent: (Point 96 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12764	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12765	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12766	label: 'Remove'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12767	name: 'RemoveButton3'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12768	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12769	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12770	model: removePerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12771	enableChannel: removeEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12772	extent: (Point 97 22)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12773	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12774	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12775
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12776	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12777	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12778	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12779	name: 'HorizontalPanel6'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12780	layout: (LayoutFrame 10 0.65 -25 1 0 1 6 1)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12781	horizontalLayout: fit
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12782	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12783	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12784	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12785	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12786	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12787	collection: (
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12788	(ActionButtonSpec
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12789	label: 'Try to Connect'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12790	name: 'ConnectPerStoreModuleButton'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12791	translateLabel: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12792	tabable: true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12793	model: connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12794	enableChannel: storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12795	extent: (Point 103 22)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12796	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12797	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12798	label: 'Browse'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12799	name: 'BrowsePerStoreModuleButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12800	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12801	tabable: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12802	model: browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12803	enableChannel: storeConnectInModuleEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12804	extent: (Point 103 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	12805	)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12806	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12807
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12808	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12809	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12810	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12811
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12812	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12813	)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	12814	(FramedBoxSpec
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12815	label: 'SmallTeam Setup'
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12816	name: 'SmalltalkSmallTeamSetupBox'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12817	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12818	visibilityChannel: managerIsSmallTeamSourceCodeManager
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12819	labelPosition: topLeft
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12820	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12821	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12822	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12823	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12824	(ViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12825	name: 'HostBoxSS'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12826	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12827	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12828	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12829	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12830	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12831	label: 'Host:'
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12832	name: 'SmallTeamHostLabel'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12833	layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12834	level: 0
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12835	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12836	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12837	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12838	(ComboBoxSpec
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12839	name: 'SmallTeamHostComboBox'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12840	layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12841	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12842	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12843	model: smallTeamHostnameHolder
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12844	immediateAccept: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12845	acceptOnLeave: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12846	acceptOnReturn: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12847	acceptOnTab: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12848	acceptOnLostFocus: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12849	acceptChannel: acceptChannel
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12850	acceptOnPointerLeave: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12851	comboList: smallTeamHostPrototypeList
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12852	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12853	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12854
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12855	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12856	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12857	(HorizontalPanelViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12858	name: 'HorizontalPanel7'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12859	layout: (LayoutFrame -130 1 51 0 0 1 82 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12860	horizontalLayout: fitSpace
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12861	verticalLayout: center
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12862	horizontalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12863	verticalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12864	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12865	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12866	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12867	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12868	label: 'Try to Connect'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12869	name: 'TryConnectButton4'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12870	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12871	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12872	model: smallTeamConnect
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12873	enableChannel: storeConnectEnabled
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12874	extent: (Point 124 22)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12875	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12876	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12877
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12878	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12879	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12880	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12881	label: 'Host per Module:'
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12882	name: 'perSmallTeamModuleLabel'
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12883	layout: (LayoutFrame 0 0.0 82 0 40 0.25 104 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12884	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12885	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12886	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12887	(SequenceViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12888	name: 'List3'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12889	layout: (LayoutFrame 44 0.25 82 0 0 1 180 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12890	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12891	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12892	model: selectedPerSmallTeamModuleRoot
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12893	hasHorizontalScrollBar: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12894	hasVerticalScrollBar: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12895	miniScrollerHorizontal: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12896	useIndex: false
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12897	sequenceList: listOfModules
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12898	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12899	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12900	label: 'Module:'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12901	name: 'Label12'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12902	layout: (LayoutFrame 0 0.0 186 0 40 0.25 203 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12903	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12904	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12905	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12906	(InputFieldSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12907	name: 'EntryField3'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12908	layout: (LayoutFrame 44 0.25 182 0 0 1 204 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12909	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12910	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12911	model: perSmallTeamModuleRoot
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12912	acceptChannel: acceptChannel
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12913	acceptOnPointerLeave: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12914	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12915	(LabelSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12916	label: 'Host:'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12917	name: 'Label13'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12918	layout: (LayoutFrame 0 0.0 211 0 40 0.25 228 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12919	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12920	adjust: right
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12921	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12922	(ComboBoxSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12923	name: 'ComboBox2'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12924	layout: (LayoutFrame 44 0.25 207 0 0 1 229 0)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12925	enableChannel: useManager
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12926	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12927	model: perSmallTeamModuleHostnameHolder
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12928	immediateAccept: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12929	acceptOnLeave: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12930	acceptOnReturn: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12931	acceptOnTab: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12932	acceptOnLostFocus: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12933	acceptChannel: acceptChannel
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12934	acceptOnPointerLeave: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12935	comboList: smallTeamHostPrototypeList
7490 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	(HorizontalPanelViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12938	name: 'HorizontalPanel8'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12939	layout: (LayoutFrame 44 0.25 -25 1 -10 0.65 6 1)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12940	horizontalLayout: fit
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12941	verticalLayout: center
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12942	horizontalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12943	verticalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12944	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12945	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12946	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12947	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12948	label: 'Add/Apply'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12949	name: 'AddButton5'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12950	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12951	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12952	model: addPerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12953	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12954	extent: (Point 96 22)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12955	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12956	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12957	label: 'Remove'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12958	name: 'RemoveButton6'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12959	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12960	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12961	model: removePerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12962	enableChannel: removeEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12963	extent: (Point 97 22)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12964	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12965	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12966
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12967	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12968	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12969	(HorizontalPanelViewSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12970	name: 'HorizontalPanel9'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12971	layout: (LayoutFrame 10 0.65 -25 1 0 1 6 1)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12972	horizontalLayout: fit
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12973	verticalLayout: center
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12974	horizontalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12975	verticalSpace: 3
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12976	component:
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12977	(SpecCollection
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12978	collection: (
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12979	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12980	label: 'Try to Connect'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12981	name: 'ConnectButton7'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12982	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12983	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12984	model: connectPerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12985	enableChannel: storeConnectInModuleEnabled
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12986	extent: (Point 103 22)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12987	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12988	(ActionButtonSpec
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12989	label: 'Browse'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12990	name: 'BrowseButton8'
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12991	translateLabel: true
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12992	tabable: true
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	12993	model: browsePerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12994	enableChannel: storeConnectInModuleEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	12995	extent: (Point 103 22)
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12996	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12997	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12998
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	12999	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13000	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13001	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13002
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13003	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13004	)
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13005	(FramedBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13006	label: 'CVS Sourcecode Manager Setup'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13007	name: 'CVSSetupBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13008	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13009	visibilityChannel: managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13010	labelPosition: topLeft
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13011	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13012	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13013	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13014	collection: (
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13015	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13016	name: 'Box1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13017	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13018	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13019	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13020	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13021	(LabelSpec
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13022	label: 'CVS Command or Path:'
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13023	name: 'Label1'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13024	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13025	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13026	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13027	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13028	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13029	(InputFieldSpec
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13030	name: 'CVSExecutableField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13031	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13032	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13033	tabable: true
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13034	model: cvsExecutableHolder
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13035	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13036	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13037	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13038	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13039
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13040	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13041	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13042	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13043	name: 'Box7'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13044	layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13045	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13046	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13047	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13048	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13049	label: 'CVSRoot default:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13050	name: 'defaultCvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13051	layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13052	level: 0
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13053	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13054	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13055	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13056	(ComboBoxSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13057	name: 'cvsRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13058	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13059	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13060	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13061	model: cvsRootHolder
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13062	immediateAccept: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13063	acceptOnLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13064	acceptOnReturn: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13065	acceptOnTab: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13066	acceptOnLostFocus: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13067	acceptChannel: acceptChannel
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13068	acceptOnPointerLeave: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13069	comboList: cvsRootPrototypeList
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13070	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13071	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13072
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13073	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13074	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13075	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13076	name: 'HorizontalPanel3'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13077	layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13078	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13079	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13080	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13081	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13082	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13083	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13084	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13085	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13086	name: 'Box8'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13087	extent: (Point 102 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13088	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13089	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13090	name: 'Box9'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13091	extent: (Point 102 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13092	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13093	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13094	name: 'Box10'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13095	extent: (Point 102 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13096	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13097	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13098	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13099	name: 'loginButton1'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13100	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13101	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13102	model: loginCVSRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13103	enableChannel: cvsLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13104	extent: (Point 103 22)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13105	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13106	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13107
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13108	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13109	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13110	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13111	label: 'CVSRoot per Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13112	name: 'knownModulesLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13113	layout: (LayoutFrame 0 0.0 82 0 60 0.25 104 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13114	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13115	adjust: right
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13116	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13117	(SequenceViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13118	name: 'List1'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13119	layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13120	enableChannel: useManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13121	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13122	model: selectedPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13123	hasHorizontalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13124	hasVerticalScrollBar: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13125	miniScrollerHorizontal: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13126	useIndex: false
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13127	sequenceList: listOfModules
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	(LabelSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13130	label: 'Module:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13131	name: 'moduleLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13132	layout: (LayoutFrame 0 0.0 211 0 60 0.25 228 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13133	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13134	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13135	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13136	(InputFieldSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13137	name: 'perModuleRootModuleEntryField'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13138	layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13139	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13140	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13141	model: perModuleRootModule
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13142	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13143	acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13144	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13145	(LabelSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13146	label: 'CVSRoot:'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13147	name: 'cvsRootLabel'
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13148	layout: (LayoutFrame 0 0.0 236 0 60 0.25 253 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13149	translateLabel: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13150	adjust: right
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13151	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13152	(ComboBoxSpec
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13153	name: 'perModuleRootComboBox'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13154	layout: (LayoutFrame 64 0.25 232 0 0 1.0 254 0)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13155	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13156	tabable: true
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13157	model: perModuleRoot
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13158	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13159	acceptOnLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13160	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13161	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13162	acceptOnLostFocus: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13163	acceptChannel: acceptChannel
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13164	acceptOnPointerLeave: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13165	comboList: cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13166	)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13167	(HorizontalPanelViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13168	name: 'HorizontalPanel2'
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13169	layout: (LayoutFrame 64 0.25 -25 1 -1 1 0 1)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13170	horizontalLayout: fitSpace
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13171	verticalLayout: center
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13172	horizontalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13173	verticalSpace: 3
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13174	component:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13175	(SpecCollection
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13176	collection: (
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13177	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13178	label: 'Add/Apply'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13179	name: 'addButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13180	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13181	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13182	model: addPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13183	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13184	extent: (Point 97 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13185	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13186	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13187	label: 'Remove'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13188	name: 'removeButton'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13189	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13190	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13191	model: removePerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13192	enableChannel: removeEnabled
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13193	extent: (Point 97 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13194	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13195	(ViewSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13196	name: 'Box11'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13197	extent: (Point 97 10)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13198	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13199	(ActionButtonSpec
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13200	label: 'CVS-Login'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13201	name: 'loginButton2'
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13202	translateLabel: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13203	tabable: true
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13204	model: loginPerModuleRoot
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13205	enableChannel: cvsLoginInModuleEnabled
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13206	extent: (Point 98 22)
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13207	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13208	)
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13209
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13210	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13211	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13212	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13213
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13214	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13215	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13216	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13217
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13218	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	13219	extent: (Point 659 327)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13220	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13221	(FramedBoxSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13222	label: 'Source Cache'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13223	name: 'FramedBox1'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13224	labelPosition: topLeft
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13225	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13226	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13227	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13228	collection: (
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13229	(ViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13230	name: 'SourceCacheDirBox'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13231	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13232	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13233	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13234	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13235	(LabelSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13236	label: 'Source Cache Dir:'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13237	name: 'SourceCacheDirLabel'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13238	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	13239	translateLabel: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13240	adjust: right
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13241	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13242	(InputFieldSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13243	name: 'SourceCacheDirEntryField'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13244	layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13245	enableChannel: useManager
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13246	model: sourceCacheDir
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13247	immediateAccept: false
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13248	acceptOnReturn: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13249	acceptOnTab: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13250	acceptOnLostFocus: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13251	acceptOnPointerLeave: true
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13252	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13253	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13254
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13255	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13256	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13257	(HorizontalPanelViewSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13258	name: 'CacheActionsHorizontalPanel'
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13259	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	13260	horizontalLayout: fitSpace
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13261	verticalLayout: center
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13262	horizontalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13263	verticalSpace: 3
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13264	component:
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13265	(SpecCollection
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13266	collection: (
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13267	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13268	label: 'Flush Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13269	name: 'FlushCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13270	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	13271	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13272	model: flushSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13273	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13274	extent: (Point 208 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13275	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13276	(ActionButtonSpec
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13277	label: 'Condense Cache now'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13278	name: 'CondenseCacheNowButton'
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13279	translateLabel: true
7720 a15569db7548 tabability Claus Gittinger <cg@exept.de> parents: 7608 diff changeset	13280	tabable: true
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13281	model: condenseSourceCache
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13282	enableChannel: useManager
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13283	extent: (Point 208 22)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13284	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13285	)
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13286
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13287	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13288	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13289	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13290
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13291	)
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13292	extent: (Point 659 95)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13293	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13294	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13295	name: 'UseLocalSourceBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13296	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13297	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13298	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13299	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13300	label: 'If Present, Use Local Source (Suppress Checkout)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13301	name: 'CheckBox4'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13302	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	13303	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13304	model: localSourceFirst
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13305	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13306	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13307	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13309	)
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13310	extent: (Point 659 24)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13311	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13312	(ViewSpec
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13313	name: 'Box12'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13314	component:
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13315	(SpecCollection
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13316	collection: (
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13317	(CheckBoxSpec
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13318	label: 'Keep Method Source (In Image)'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13319	name: 'CheckBox7'
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13320	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13321	enableChannel: useManager
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13322	model: keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13323	translateLabel: true
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13324	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13325	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13326
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13327	)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13328	extent: (Point 659 24)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13329	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13330	(ViewSpec
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13331	name: 'CheckForHaltSendsBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13332	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13333	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13334	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13335	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13336	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	13337	name: 'CheckBox5'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13338	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	13339	enableChannel: useManager
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13340	model: checkClassesWhenCheckingIn
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	13341	translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13342	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13343	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13345	)
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13346	extent: (Point 659 24)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13347	)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13348	(ViewSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13349	name: 'VerboseBox'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13350	component:
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13351	(SpecCollection
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13352	collection: (
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13353	(CheckBoxSpec
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13354	label: 'Verbose (Trace Access on Transcript)'
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13355	name: 'CheckBox6'
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13356	layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13357	enableChannel: useManager
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13358	model: verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13359	translateLabel: true
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13360	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13361	)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13362
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13363	)
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13364	extent: (Point 659 24)
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13365	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13366	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13367
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13368	)
6103 d8147b126f9d * empty log message * penk parents: 6086 diff changeset	13369	extent: (Point 659 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13370	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13373	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13374	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13379	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13380
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13381	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13383	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13385	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13386	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13387
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13388	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13389
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13390	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13391	(self listOfModules includes:module) ifFalse:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13392	self listOfModules add:module; sort.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13393	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13394	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13395
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13396	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13397
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13398	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13399	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13400
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13401	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13402	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13403
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13404	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13405
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13406	self hasManager ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13407	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13408	self localSourceFirst value:Class tryLocalSourceFirst.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13409	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13410
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13411	manager notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13412	manager forgetDisabledModules.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13413	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13414	repository := manager repositoryName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13415	repositoryHolder := (repository ? '') asValue
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13416	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13417	manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13418	self storeHostnameHolder value: (manager hostAndDBName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13419	self storeUsernameHolder value: (manager userName).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13420	self storePasswordHolder value: (manager password).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13421	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13422	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13423	] ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13424	self useManager value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13425	self localSourceFirst value:false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13426	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13427
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13428	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13429	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13430
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13431	infoPerModule := eachManager repositoryInfoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13432	infoPerModule keysAndValuesDo:[:module :info \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13433	rootsPerModule at:module put:(Array with:eachManager with:info).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13434	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13435	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13436
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13437	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	13438
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13439	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13440	self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13441	self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13442	self verboseSourceCodeAccess value:CVSSourceCodeManager verboseSourceCodeAccess.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13443
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13444	rootsPerModule notNil ifTrue:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13445	self listOfModules removeAll.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13446	listOfModules addAll:rootsPerModule keys asList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13447	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13448	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13449
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13450	"Modified: / 21-09-2006 / 16:52:47 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13451	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13452
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13453	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13454	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13455
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13456	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13457	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13458	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13459
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13460	(self hasManager and:[self useManager value]) ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13461	manager ~~ self selectedManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13462	manager := nil.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13463	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13464
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13465	manager isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13466	manager := self selectedManager.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13467	manager isNil ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13468	manager := self availableManagers first.
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	13469	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13470	].
7513 bd3461e85387 * empty log message * Michael Beyl <mb@exept.de> parents: 7506 diff changeset	13471	Smalltalk at:#SourceCodeManager put:manager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13472	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13473	\| nm fn\|
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13474
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13475	nm := self sourceCacheDir value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	13476	nm notEmptyOrNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13477	(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	13478	(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	13479	fn recursiveMakeDirectory;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13480	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13481	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13482	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13483	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13484	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13485	(fn isDirectory
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13486	and:[fn isReadable
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13487	and:[fn isWritable]]) ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	13488	AbstractSourceCodeManager cacheDirectoryName:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13489	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13490	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13491	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13492	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13493	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13494
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13495	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13496	\|infoPerModule\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13497	modules := rootsPerModule select:[:entry \| entry first == eachManager].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13498	infoPerModule := Dictionary new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13499	modules keysAndValuesDo:[:module :entry \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13500	entry first == eachManager ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13501	infoPerModule at:module put:(entry second).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13502	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13503	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13504	eachManager repositoryInfoPerModule:infoPerModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13505	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13506
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13507	manager isCVS ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13508	self basicSaveCVSSettings.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13509	] ifFalse:[ manager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13510	self basicSaveStoreSettings.
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13511	] ifFalse:[ manager isSmallTeam ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13512	self basicSaveSmallTeamSettings.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13513	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13514	self error.
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13515	]]].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13516
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	13517	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13518
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13519	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13520	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13521	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13522	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13523
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13524	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13525
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13526	"Modified: / 09-11-2006 / 14:56:52 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13527	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13528
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13529	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13530	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13531	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13532
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13533	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13534	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13535
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13536	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13537	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13538	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13539
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	13540	"Modified: / 28-11-2006 / 12:21:21 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13541	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13542
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13543	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13544
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13545	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13546
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13547	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13548	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13549	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13550	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13551	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13552	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13553	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13555
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13556	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13558	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13559	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13560	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13561	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13562	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13563	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13564
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13565	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13566	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13567
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13568	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - cvs'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13569
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13570	addPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13571	\|module cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13572
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13573	acceptChannel value:true.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13574
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13575	module := self perModuleRootModule value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13576	cvsRoot := self perModuleRoot value.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13577
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13578	cvsRoot size > 0 ifTrue:[
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13579	self addModule:module withData:(Array with:CVSSourceCodeManager with:cvsRoot).
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13580	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13581
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13582	"Modified: / 08-11-2006 / 19:27:39 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13583	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13584
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13585	basicSaveCVSSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13586	\|cvsRoot\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13587
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13588	repositoryHolder notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13589	repositoryHolder value size > 0 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13590	manager notNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13591	manager initializeForRepository:repositoryHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13592	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13593	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13594	].
7347 4df230873b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	13595	CVSSourceCodeManager cvsExecutable:((self cvsExecutableHolder value ? '') withoutSeparators).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13596	CVSSourceCodeManager initializeForRepository:(cvsRoot := self cvsRootHolder value).
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	13597	CVSSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13598
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13599	RecentlyUsedCVSRoots isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13600	RecentlyUsedCVSRoots := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13601	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13602	(RecentlyUsedCVSRoots includes:cvsRoot) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13603	RecentlyUsedCVSRoots addFirst:cvsRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13604	RecentlyUsedCVSRoots size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13605	RecentlyUsedCVSRoots removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13606	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13607	].
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13608
7347 4df230873b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	13609	"Modified: / 29-09-2006 / 12:28:50 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13610	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13611
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13612	cvsLogin:cvsRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13613	\|cmd term\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13614
9565 3d2d73c93723 catch no terinal app situation in cvsLogin: Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	13615	VT100TerminalView isNil ifTrue:[
3d2d73c93723 catch no terinal app situation in cvsLogin: Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	13616	self warn:'Function not available'.
3d2d73c93723 catch no terinal app situation in cvsLogin: Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	13617	^ self.
3d2d73c93723 catch no terinal app situation in cvsLogin: Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	13618	].
3d2d73c93723 catch no terinal app situation in cvsLogin: Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	13619
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13620	cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13621	term := VT100TerminalView open.
9566 cfc5fe7c9f24 check for no vt100 avail. Claus Gittinger <cg@exept.de> parents: 9565 diff changeset	13622	term topView
cfc5fe7c9f24 check for no vt100 avail. Claus Gittinger <cg@exept.de> parents: 9565 diff changeset	13623	label:'CVS Login for ' , cvsRoot;
cfc5fe7c9f24 check for no vt100 avail. Claus Gittinger <cg@exept.de> parents: 9565 diff changeset	13624	waitUntilVisible.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13625	term shellTerminateAction:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13626	"/ term topView destroy
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13627	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13628
9041 37b016f28530 no need for #asText to emphasize a string Claus Gittinger <cg@exept.de> parents: 8972 diff changeset	13629	term showCR:(('Please enter the CVS-password then close this terminal window.') allBold colorizeAllWith:Color red).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13630	term showCR:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13631	term endEntry.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13632	Delay waitForSeconds:1.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13633	term sendLine:cmd.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13634
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13635	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13636	self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13637	"
9565 3d2d73c93723 catch no terinal app situation in cvsLogin: Claus Gittinger <cg@exept.de> parents: 9559 diff changeset	13638
9566 cfc5fe7c9f24 check for no vt100 avail. Claus Gittinger <cg@exept.de> parents: 9565 diff changeset	13639	"Modified: / 25-08-2010 / 23:03:19 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13640	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13641
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13642	loginCVSRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13643	self cvsLogin:cvsRootHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13644	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13645
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13646	loginPerModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13647	self cvsLogin:perModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13648	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13649
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13650	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - smallTeam'!
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13651
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13652	addPerSmallTeamModuleHost
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13653	\|module host\|
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13654
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13655	acceptChannel value:true.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13656
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13657	module := self perSmallTeamModuleRoot value.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13658	host := self perSmallTeamModuleHostnameHolder value.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13659
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13660	self addModule:module withData:(Array with:SmallTeamSourceCodeManager with:host).
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13661
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13662	"Created: / 09-11-2006 / 14:35:50 / cg"
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13663	!
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13664
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13665	basicSaveSmallTeamSettings
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13666	\|host\|
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13667
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13668	SmallTeamSourceCodeManager hostName:(host := self smallTeamHostnameHolder value withoutSeparators).
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13669
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13670	RecentlyUsedSmallTeamHosts isNil ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13671	RecentlyUsedSmallTeamHosts := OrderedCollection new.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13672	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13673	(RecentlyUsedSmallTeamHosts includes:host) ifFalse:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13674	RecentlyUsedSmallTeamHosts addFirst:host.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13675	RecentlyUsedSmallTeamHosts size > 20 ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13676	RecentlyUsedSmallTeamHosts removeLast.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13677	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13678	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13679
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	13680	"Created: / 09-11-2006 / 14:58:44 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13681	! !
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13682
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13683	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions - store'!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13684
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13685	addPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13686	\|module info\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13687
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13688	acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13689
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13690	module := self perStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13691	info := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13692	info hostAndDBName:perStoreModuleHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13693	info userName:perStoreModuleUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13694	info password:perStoreModulePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13695
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13696	self addModule:module withData:(Array with:StoreSourceCodeManager with:info).
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13697
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13698	"Modified: / 08-11-2006 / 19:27:35 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13699	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13700
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13701	basicSaveStoreSettings
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13702	\|storeHost\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13703
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13704	StoreSourceCodeManager hostAndDBName:(storeHost := self storeHostnameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13705	StoreSourceCodeManager userName:(self storeUsernameHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13706	StoreSourceCodeManager password:(self storePasswordHolder value withoutSeparators).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13707
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	13708	storeHost notEmptyOrNil ifTrue:[
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	13709	StoreSourceCodeManager connectToDatabase.
d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	13710	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13711
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13712	RecentlyUsedStoreHosts isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13713	RecentlyUsedStoreHosts := OrderedCollection new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13714	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13715	(RecentlyUsedStoreHosts includes:storeHost) ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13716	RecentlyUsedStoreHosts addFirst:storeHost.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13717	RecentlyUsedStoreHosts size > 20 ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13718	RecentlyUsedStoreHosts removeLast.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13719	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13720	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13721	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13722
7007 240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13723	browsePerStoreModuleDB
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13724	\|testInfo\|
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13725
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13726	testInfo := StoreSourceCodeManager newDBInfo.
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13727	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13728	testInfo userName:(perStoreModuleUsernameHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13729	testInfo password:(perStoreModulePasswordHolder value).
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13730	self browseStoreDB:testInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13731	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13732
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13733	browseStoreDB:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13734	Tools::StoreProjectBrowser openOn:dbInfo
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13735	!
240e8564ed6a * empty log message * Claus Gittinger <cg@exept.de> parents: 6999 diff changeset	13736
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13737	connectPerStoreModuleDB
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13738	\|testInfo\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13739
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13740	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13741	testInfo hostAndDBName:(perStoreModuleHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13742	testInfo userName:(perStoreModuleUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13743	testInfo password:(perStoreModulePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13744
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13745	(self tryToConnectTo:testInfo)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13746	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13747
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13748	storeConnect
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13749	\|testInfo\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13750
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13751	testInfo := StoreSourceCodeManager newDBInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13752	testInfo hostAndDBName:(storeHostnameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13753	testInfo userName:(storeUsernameHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13754	testInfo password:(storePasswordHolder value).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13755
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13756	(self tryToConnectTo:testInfo) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13757	LastStoreHost := storeHostnameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13758	LastStoreUser := storeUsernameHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13759	LastStorePassword := storePasswordHolder value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13760	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13761	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13762
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13763	tryToConnectTo:dbInfo
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13764	\|session\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13765
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13766	SQL::SQLError handle:[:ex \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13767	self warn:('Failed to connect to Database:\\' withCRs,ex description).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13768	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13769	] do:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13770	self withWaitCursorDo:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13771	session := StoreSourceCodeManager tryToConnectToDatabase:dbInfo.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13772	]
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13773	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13774	session isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13775	self warn:'OOPS - Failed to connect'.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13776	^ false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13777	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13778
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13779	self information:('Successfully connected to ',dbInfo dbName,'.').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13780	session disconnect.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13781	^ true
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13782	! !
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13783
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13784	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13786	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13787
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13788	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13789	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13790	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13791	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13792	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13793
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13794	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13795	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13796
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13797	"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	13798	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13799
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13800	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13801	availableManagers isNil ifTrue:[
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13802	availableManagers := AbstractSourceCodeManager availableManagers.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13803	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13804	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13805
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13806	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13807	self basicNew availableManagers
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13808	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13809
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13810	"Created: / 16-08-2006 / 11:01:10 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13811	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13813	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13814
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13815	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13816	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13817	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13818	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13819	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13820	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13821
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13822	cvsExecutableHolder
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13823	cvsExecutableHolder isNil ifTrue:[
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13824	cvsExecutableHolder := ValueHolder new.
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13825	cvsExecutableHolder onChangeSend:#updateModifiedChannel to:self
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13826	].
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13827	^ cvsExecutableHolder.
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13828
b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	13829	"Created: / 21-09-2006 / 15:37:06 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13830	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13831
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13832	cvsLoginEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13833	cvsLoginEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13834	cvsLoginEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13835	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13836	^ cvsLoginEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13837	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13838
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13839	cvsLoginInModuleEnabled
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13840	cvsLoginInModuleEnabled isNil ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13841	cvsLoginInModuleEnabled := false asValue.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13842	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13843	^ cvsLoginInModuleEnabled.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13844	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13845
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13846	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13847
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13848	cvsRootHolder isNil ifTrue:[
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13849	cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13850	cvsRootHolder addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13851	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13852	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13853	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	13854
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13855	cvsRootPrototypeList
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13856	\|cvsRoot prototypeList\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13857
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13858	cvsRootPrototypeList isNil ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13859	prototypeList := OrderedSet new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13860
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13861	cvsRoot := self cvsRootFromCVSRootFileOrNil.
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13862	cvsRoot notNil ifTrue:[
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13863	prototypeList add:cvsRoot
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13864	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13865
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13866	prototypeList add:(':pserver:cvs@cvs.smalltalk-x.de:/cvs/stx').
fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13867
7311 1f9d53c9ba47 Prototype for bh.exept.de Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	13868	OperatingSystem getDomainName = 'bh.exept.de' ifTrue:[
1f9d53c9ba47 Prototype for bh.exept.de Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	13869	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@cvs.bh.exept.de:/cvs/stx')
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13870	] ifFalse:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13871	prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx').
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13872	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13873
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13874	OperatingSystem isUNIXlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13875	prototypeList add:'/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13876	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13877	OperatingSystem isMSDOSlike ifTrue:[
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13878	prototypeList addFirst:':local:c:\cvs\stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13879	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	13880	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13881	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13882	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	13883
6743 fed3ac14df0f New loaction of public cvs pserver Stefan Vogel <sv@exept.de> parents: 6742 diff changeset	13884	cvsRootPrototypeList := prototypeList asOrderedCollection.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13885	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13886	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13887	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13888
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13889	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13890
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13891	keepMethodSource isNil ifTrue:[
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13892	keepMethodSource := ValueHolder new.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13893	keepMethodSource onChangeSend:#updateModifiedChannel to:self
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13894	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13895	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13896	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	13897
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13898	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13899
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13900	listOfModules isNil ifTrue:[
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13901	rootsPerModule notNil ifTrue:[
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13902	listOfModules := rootsPerModule keys asList.
bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13903	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13904	listOfModules sort.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	13905	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13906	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13907	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13908	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13909
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13910	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13912	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13913	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13914	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13915	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13916	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13917	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13918
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13919	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13920	managerIsCVSSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13921	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13922	[SourceCodeManager isCVS]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13923	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13924	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13925
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13926	"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	13927	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13928
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13929	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13930	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13931	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
7492 5b2f0c07896e * empty log message * Claus Gittinger <cg@exept.de> parents: 7490 diff changeset	13932	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13933	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13934	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13935
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13936	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13937	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	13938
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13939	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13940	managerIsStoreSourceCodeManager isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13941	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13942	[SourceCodeManager isStore]) asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13943	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13944	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13945
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13946	"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	13947	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13948
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13949	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13950	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13951
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13952	"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	13953	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	13954
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13955	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13956
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13957	perModuleFieldsEnableHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13958	perModuleFieldsEnableHolder := true asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13959	perModuleFieldsEnableHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13960	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13961	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13962	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	13963
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13964	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13965	perModuleRoot isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13966	perModuleRoot := ValueHolder new.
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	13967	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13968	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13969	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13970	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13971
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13972	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13973	perModuleRootModule isNil ifTrue:[
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13974	perModuleRootModule := ValueHolder new.
d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	13975	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13976	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13977	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	13978
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13979	perSmallTeamModuleHostnameHolder
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13980	perSmallTeamModuleHostnameHolder isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13981	perSmallTeamModuleHostnameHolder := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13982	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13983	^ perSmallTeamModuleHostnameHolder.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13984
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13985	"Created: / 09-11-2006 / 14:40:29 / cg"
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13986	!
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13987
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13988	perSmallTeamModuleRoot
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13989	perSmallTeamModuleRoot isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13990	perSmallTeamModuleRoot := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13991	perSmallTeamModuleRoot addDependent:self.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13992	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13993	^ perSmallTeamModuleRoot.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13994
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13995	"Created: / 09-11-2006 / 14:40:35 / cg"
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13996	!
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13997
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13998	perSmallTeamModuleRootModule
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	13999	perSmallTeamModuleRootModule isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14000	perSmallTeamModuleRootModule := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14001	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14002	^ perSmallTeamModuleRootModule.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14003
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14004	"Created: / 09-11-2006 / 14:40:41 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14005	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14006
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14007	perStoreModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14008
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14009	perSmallTeamModuleFieldsEnableHolder isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14010	perSmallTeamModuleFieldsEnableHolder := true asValue.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14011	perSmallTeamModuleFieldsEnableHolder addDependent:self.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14012	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14013	^ perSmallTeamModuleFieldsEnableHolder.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14014	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14015
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14016	perStoreModuleHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14017
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14018	perStoreModuleHostnameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14019	perStoreModuleHostnameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14020	perStoreModuleHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14021	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14022	^ perStoreModuleHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14023	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14024
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14025	perStoreModulePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14026
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14027	perStoreModulePasswordHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14028	perStoreModulePasswordHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14029	perStoreModulePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14030	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14031	^ perStoreModulePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14032	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14033
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14034	perStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14035	perStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14036	perStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14037	perStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14038	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14039	^ perStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14040	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14041
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14042	perStoreModuleRootModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14043	perStoreModuleRootModule isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14044	perStoreModuleRootModule := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14045	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14046	^ perStoreModuleRootModule.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14047	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14048
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14049	perStoreModuleUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14050
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14051	perStoreModuleUsernameHolder isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14052	perStoreModuleUsernameHolder := '' asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14053	perStoreModuleUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14054	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14055	^ perStoreModuleUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14056	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14057
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14058	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14059
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14060	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14061	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14062	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14063	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14064	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14065
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14066	selectedManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14067	\|idx\|
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14068
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14069	self availableManagers size == 1 ifTrue:[
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14070	^ self availableManagers first
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14071	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14072
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14073	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14074	(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	14075	^ self availableManagers at:idx
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14076
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14077	"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	14078	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14079
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14080	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14081	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14082
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14083	selectedManagerTypeIndexHolder isNil ifTrue:[
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14084	selectedManagerTypeIndexHolder := nil asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14085	selectedManagerTypeIndexHolder onChangeEvaluate:[
7080 26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	14086	selectedManager := self selectedManager.
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	14087	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
26d4f0a51124 * empty log message * Claus Gittinger <cg@exept.de> parents: 7071 diff changeset	14088	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14089	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14090	self updateModifiedChannel
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14091	].
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	14092
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14093	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14094	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14095	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14096
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14097	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14098	"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	14099	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14101	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14102	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14103	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14104	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14105	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14106	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14107	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14108
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14109	selectedPerSmallTeamModuleRoot
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14110	selectedPerSmallTeamModuleRoot isNil ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14111	selectedPerSmallTeamModuleRoot := ValueHolder new.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14112	selectedPerSmallTeamModuleRoot addDependent:self.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14113	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14114	^ selectedPerSmallTeamModuleRoot.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14115
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14116	"Created: / 09-11-2006 / 14:39:15 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14117	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14118
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14119	selectedPerStoreModuleRoot
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14120	selectedPerStoreModuleRoot isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14121	selectedPerStoreModuleRoot := ValueHolder new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14122	selectedPerStoreModuleRoot addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14123	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14124	^ selectedPerStoreModuleRoot.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14125	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14126
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14127	smallTeamHostnameHolder
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14128
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14129	smallTeamHostnameHolder isNil ifTrue:[
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14130	smallTeamHostnameHolder := '' asValue.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14131	"/ smallTeamHostnameHolder addDependent:self.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14132	].
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14133	^ smallTeamHostnameHolder.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14134
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14135	"Created: / 09-11-2006 / 15:04:10 / cg"
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14136	!
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	14137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14138	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	14139	sourceCacheDir isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	14140	sourceCacheDir := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	14141	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	14142	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14143	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14144	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14145
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14146	storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14147	storeConnectEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14148	storeConnectEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14149	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14150	^ storeConnectEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14151	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14152
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14153	storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14154	storeConnectInModuleEnabled isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14155	storeConnectInModuleEnabled := false asValue.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14156	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14157	^ storeConnectInModuleEnabled.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14158	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14159
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14160	storeHostPrototypeList
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14161	\|prototypeList\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14162
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14163	storeHostPrototypeList isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14164	prototypeList := OrderedSet new.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14165
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14166	prototypeList add:('public@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14167	prototypeList add:('public').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14168	prototypeList add:('stx').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14169
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14170	OperatingSystem getLoginName = 'cg' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14171	prototypeList add:('oyster@store.smalltalk-x.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14172	prototypeList add:('oyster').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14173	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14174
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14175	OperatingSystem getDomainName = 'exept.de' ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14176	prototypeList add:('stx@exept.exept.de:5432').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14177	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14178	prototypeList add:('db@host').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14179	prototypeList add:('db@host:port').
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14180	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14181	storeHostPrototypeList := prototypeList asOrderedCollection.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14182	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14183	^ storeHostPrototypeList.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14184	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14185
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14186	storeHostnameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14187
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14188	storeHostnameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	14189	storeHostnameHolder := ("LastStoreHost ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14190	storeHostnameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14191	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14192	^ storeHostnameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14193	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14194
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14195	storeLoginEnabled
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14196	storeLoginEnabled isNil ifTrue:[
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14197	storeLoginEnabled := false asValue.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14198	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14199	^ storeLoginEnabled.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14200
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14201	"Created: / 16-08-2006 / 11:11:15 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14202	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	14203
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14204	storePasswordHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14205
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14206	storePasswordHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	14207	storePasswordHolder := ("LastStorePassword ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14208	storePasswordHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14209	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14210	^ storePasswordHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14211	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14212
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14213	storeUsernameHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14214
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14215	storeUsernameHolder isNil ifTrue:[
6999 d298f055491a * empty log message * Claus Gittinger <cg@exept.de> parents: 6997 diff changeset	14216	storeUsernameHolder := ("LastStoreUser ?" '') asValue.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14217	storeUsernameHolder addDependent:self.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14218	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14219	^ storeUsernameHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14220	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14222	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	14223	useManager isNil ifTrue:[
ab068226973e has unsaved changes penk parents: 5283 diff changeset	14224	useManager := ValueHolder new.
ab068226973e has unsaved changes penk parents: 5283 diff changeset	14225	useManager onChangeSend:#updateModifiedChannel to:self
ab068226973e has unsaved changes penk parents: 5283 diff changeset	14226	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14227	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14228	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14229
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14230	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14231	verboseSourceCodeAccess isNil ifTrue:[
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14232	verboseSourceCodeAccess := false asValue.
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14233	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14234	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14235	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14236	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14237
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14238	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14239
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14240	selectedPerModuleRootChanged
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14241	\|module entry\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14242
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14243	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14244	module := self selectedPerModuleRoot value.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14245	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14246	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14247	self perModuleRootModule value:' '.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14248	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14249	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14250	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14251
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14252	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14253	(entry first = CVSSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14254	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14255	self perModuleRootModule value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14256	self perModuleRoot value:(entry at:2).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14257	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14258	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14259	self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14260	self perModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14261	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14262	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14263
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14264	selectedPerSmallTeamModuleRootChanged
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14265	\|module entry\|
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14266
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14267	self acceptChannel value:true.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14268
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14269	module := self selectedPerSmallTeamModuleRoot value.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14270	module isNil ifTrue:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14271	self removeEnabled value:false.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14272	self perSmallTeamModuleRoot value:''.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14273	self perSmallTeamModuleHostnameHolder value:''.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14274	^ self
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14275	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14276
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14277	entry := rootsPerModule at:module.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14278	(entry first = SmallTeamSourceCodeManager) ifTrue:[
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14279	self removeEnabled value:true.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14280	self perSmallTeamModuleRoot value:module.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14281	self perSmallTeamModuleHostnameHolder value:(entry at:2).
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14282	] ifFalse:[
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14283	self removeEnabled value:false.
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14284	self perSmallTeamModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14285	self perSmallTeamModuleHostnameHolder value:''.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14286	].
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14287
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14288	"Created: / 09-11-2006 / 14:39:04 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14289	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14290
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14291	selectedPerStoreModuleRootChanged
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14292	\|module entry\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14293
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14294	self acceptChannel value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14295
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14296	module := self selectedPerStoreModuleRoot value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14297	module isNil ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14298	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14299	self perStoreModuleRoot value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14300	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14301	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14302	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14303	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14304	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14305
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14306	entry := rootsPerModule at:module ifAbsent:#().
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14307	(entry first = StoreSourceCodeManager) ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14308	self removeEnabled value:true.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14309	self perStoreModuleRoot value:module.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14310	self perStoreModuleHostnameHolder value:(entry at:2) hostAndDBName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14311	self perStoreModuleUsernameHolder value:(entry at:2) userName.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14312	self perStoreModulePasswordHolder value:(entry at:2) password.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14313	] ifFalse:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14314	self removeEnabled value:false.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14315	self perStoreModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14316	self perStoreModuleHostnameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14317	self perStoreModuleUsernameHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14318	self perStoreModulePasswordHolder value:''.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14319	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14320	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14321
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14322	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14323	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14324
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14325	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14326
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14327	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14328
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14329	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14330	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14331
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14332	(fn := nm asFilename) exists ifFalse:[
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14333	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14334	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14335	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14336	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14337	self sourceCacheDir value:previousDir.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14338	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14339	].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14340	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14341	recursiveMakeDirectory;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14342	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14343	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14344	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14345	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14346	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14347
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14348	(fn isDirectory) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14349	self warn:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14350	stringWithCRs:'Not a directory: "%1"'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14351	with:nm).
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14352	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14353	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14354	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14355
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14356	(fn isReadable and:[fn isWritable]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14357	(self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14358	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	14359	with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14360	) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14361	self sourceCacheDir value:previousDir.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14362	^ self.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14363	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14364	fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14365	makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14366	makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14367	makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14368	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14369	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14370	"/ (self confirm:(resources
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14371	"/ 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	14372	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14373	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14374	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14375	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14376	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14377	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14378	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14379	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14381
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14382	update:something with:aParameter from:changedObject
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14383	"/ common
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14384	changedObject == sourceCacheDir ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14385	self sourceDirChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14386	self updateModifiedChannel.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14387	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14388	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14389
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14390	"/ cvs
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14391	changedObject == cvsRootHolder ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14392	self updateModifiedChannel.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14393	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14394	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14395	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14396	changedObject == perModuleRoot ifTrue:[
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14397	self updateLoginEnableHolders.
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14398	^ self
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14399	].
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14400	changedObject == selectedPerModuleRoot ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14401	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	14402	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14403	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14404
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14405	"/ store
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14406	changedObject == storeHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14407	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14408	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14409	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14410	changedObject == storeUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14411	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14412	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14413	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14414	changedObject == storePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14415	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14416	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14417	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14418	changedObject == perStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14419	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14420	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14421	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14422	changedObject == perStoreModuleHostnameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14423	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14424	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14425	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14426	changedObject == perStoreModuleUsernameHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14427	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14428	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14429	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14430	changedObject == perStoreModulePasswordHolder ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14431	self updateConnectEnableHolders.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14432	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14433	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14434	changedObject == selectedPerStoreModuleRoot ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14435	self selectedPerStoreModuleRootChanged.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14436	^ self
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14437	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14438
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14439	"/ SmallTeam
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14440	changedObject == selectedPerSmallTeamModuleRoot ifTrue:[
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14441	self selectedPerSmallTeamModuleRootChanged.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14442	^ self
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14443	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14444
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14445	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14446
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14447	"Modified: / 09-11-2006 / 14:41:10 / cg"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14448	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14449
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14450	updateConnectEnableHolders
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14451	self storeConnectEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14452	value:(storeHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14453	and:[ storeUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14454	and:[ storePasswordHolder value notEmptyOrNil ]]).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14455
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14456	self storeConnectInModuleEnabled
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14457	value:(perStoreModuleHostnameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14458	and:[ perStoreModuleUsernameHolder value notEmptyOrNil
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14459	and:[ perStoreModulePasswordHolder value notEmptyOrNil ]]).
5343 eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14460	!
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14461
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14462	updateLoginEnableHolders
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14463	self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:').
eead90057c14 cvs login added Claus Gittinger <cg@exept.de> parents: 5332 diff changeset	14464	self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:').
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14465	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14466
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14467	updateSelectedManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14468	\|selectedManagerTypeIndex\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14469
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14470	selectedManagerTypeIndex := self availableManagers indexOf:SourceCodeManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14471	selectedManagerTypeIndex == 0 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14472	self availableManagers size == 1 ifTrue:[
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14473	selectedManagerTypeIndex := 1.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14474	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14475	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	14476	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14477	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14478
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14479	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14480
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14481	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14482	^ 'Launcher/cvsSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14483	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14484
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14485	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14486
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14487	initialize
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14488	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14489
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14490	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14491	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14492
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14493	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14494	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14495
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14496	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14497	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14498
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14499	self availableManagers do:[:eachManager \|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14500	eachManager repositoryInfoPerModule
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14501	keysAndValuesDo:[:module :info \|
8356 e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	14502	module withoutSeparators ~= module ifTrue:[
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	14503	self halt:'should not happen any longer'
e70467868730 * empty log message * Claus Gittinger <cg@exept.de> parents: 8326 diff changeset	14504	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14505	rootsPerModule at:module put:(Array with:eachManager with:info)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14506	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14507	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14508
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14509	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14510
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	14511	"Modified: / 08-11-2006 / 19:20:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14512	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14513
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	14514	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14515
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14516	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14517	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14518
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14519	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14520	cvsDir isDirectory ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14521	cvsRootFile := cvsDir construct:'Root'.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14522	cvsRootFile isReadable ifTrue:[
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14523	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14524	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14525	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14526	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14527	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	14528
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14529	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14530	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14531
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14532	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14533	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14535	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	14536	(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	14537	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	14538	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	14539
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14540	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	14541	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14542
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	14543	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14544	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14545
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	14546	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	14547	ifTrue:[^ true].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	14548
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14549	self availableManagers do:[:mgr \|
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14550	\|modules\|
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14551
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14552	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	14553
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14554	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	14555	((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	14556	ifFalse:[^ true].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	14557	].
ae51cb7d24de adding a per-module-repository must also enable the save button Claus Gittinger <cg@exept.de> parents: 7347 diff changeset	14558	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	14559	((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	14560	ifFalse:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14561	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	14562	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14563
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14564	self selectedManager isCVS ifTrue:[
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	14565	((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators)
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14566	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14567
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14568	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14569	ifTrue:[^ true].
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14570
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14571	(CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value)
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	14572	ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14573	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14574
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14575	self selectedManager isStore ifTrue:[
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14576	((StoreSourceCodeManager hostAndDBName ? '') ~= (self storeHostnameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14577	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14578	((StoreSourceCodeManager userName ? '') ~= (self storeUsernameHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14579	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14580	((StoreSourceCodeManager password ? '') ~= (self storePasswordHolder value ? '') withoutSeparators)
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14581	ifTrue:[^ true].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14582	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	14583
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	14584	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	14585
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	14586	"Modified: / 09-11-2006 / 14:49:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14587	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14589	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14590
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14591	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14593	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14594	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14595	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14596	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14597	'mswindows95'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	14598	'mswindowsxp'
9071 c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	14599	'mswindowsvista'
c4f0e8993ba1 * empty log message * Claus Gittinger <cg@exept.de> parents: 9070 diff changeset	14600	"/ 'next'
6108 7e6d327225fa * empty log message * Claus Gittinger <cg@exept.de> parents: 6103 diff changeset	14601	"/ 'normal'
9070 7deb618d44ac * empty log message * Claus Gittinger <cg@exept.de> parents: 9069 diff changeset	14602	"/ 'os2'
6003 668703f77d2c * empty log message * Claus Gittinger <cg@exept.de> parents: 5991 diff changeset	14603	'sgmotif'
6073 09b4a678793a more xp style Claus Gittinger <cg@exept.de> parents: 6072 diff changeset	14604	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14605	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14606	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14607
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14608	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14609
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14610	closePreviewButtonImage
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14611	^ ToolbarIconLibrary removeTabIcon
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14612	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14613
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14614	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14615	^ self defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14616	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14617
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14618	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14619	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14620	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14621
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14622	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14623	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14624
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14625	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14626	self defaultIcon1 inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14627	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14628	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14629	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14630
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14631	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14632
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14633	^Icon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14634	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon1'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14635	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	14636	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14637	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14638	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14639	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	14640	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14641	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	14642	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14643
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14644	defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14645	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14646	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14647
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14648	"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	14649	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	14650
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14651	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14652	self defaultIcon2 inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14653	ImageEditor openOnClass:self andSelector:#defaultIcon2
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14654	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14655	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14656
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14657	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14658
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14659	^Icon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14660	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon2'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	14661	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	14662	@@@@@@@@@@@@@@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	14663	@@@@@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	14664	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	14665	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	14666	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	14667	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	14668	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	14669
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14670	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14671
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14672	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14673	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14674	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14676	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14677	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14679	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14680	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14681	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14682	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14683	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14685	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14687	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14688	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14689	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14690	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14691	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14692	label: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14693	name: 'ViewStyle Selection'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14694	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	14695	bounds: (Rectangle 0 0 562 661)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14696	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14697	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14698	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	14699	collection: (
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14700	(VariableVerticalPanelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14701	name: 'VariableVerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14702	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14703	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14704	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14705	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14706	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14707	name: 'Box1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14708	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14709	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14710	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14711	(TextEditorSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14712	name: 'TextEditor1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14713	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	14714	style: (FontDescription arial medium roman 9)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14715	model: noticeLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14716	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14717	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14718	isReadOnly: true
9067 3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	14719	hasKeyboardFocusInitially: false
3d6f7b88f4da * empty log message * Claus Gittinger <cg@exept.de> parents: 9057 diff changeset	14720	viewClassName: 'TextView'
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14721	postBuildCallback: postBuildHelpLabel:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14722	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14723	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14724
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14725	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14726	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14727	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14728	name: 'Box2'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14729	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14730	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14731	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14732	(VerticalPanelViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14733	name: 'VerticalPanel1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14734	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14735	horizontalLayout: fit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14736	verticalLayout: topFit
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14737	horizontalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14738	verticalSpace: 3
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14739	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14740	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14741	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14742	(CheckBoxSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14743	label: 'standard styles only'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14744	name: 'CheckBox1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14745	model: showStandardStylesOnly
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14746	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	14747	extent: (Point 562 35)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14748	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14749	(SequenceViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14750	name: 'StyleList'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14751	model: selectedStyle
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14752	hasHorizontalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14753	hasVerticalScrollBar: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14754	doubleClickSelector: doubleClickAt:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14755	useIndex: false
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14756	sequenceList: styleList
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14757	extent: (Point 562 353)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14758	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14759	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14760
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14761	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14762	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14763	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14764
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14765	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14766	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14767	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14768
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14769	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14770	handles: (Any 0.37 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14771	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14772	(ViewSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14773	name: 'Box3'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14774	layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14775	component:
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14776	(SpecCollection
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14777	collection: (
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14778	(LabelSpec
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14779	label: 'Label'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14780	name: 'Label1'
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14781	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14782	translateLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14783	labelChannel: infoLabelHolder
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14784	resizeForLabel: true
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14785	adjust: left
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14786	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14787	(CheckBoxSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14788	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14789	name: 'CheckBox2'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14790	layout: (LayoutFrame 417 0 9 0 553 0 31 0)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14791	model: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14792	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14793	)
5441 6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14794	)
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14795
6a0eb99ae5f2 change window specs penk parents: 5433 diff changeset	14796	)
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	14797	)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14798	(LabelSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14799	label: 'Preview'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14800	name: 'PreviewLabel'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14801	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14802	level: 0
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14803	borderWidth: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14804	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14805	backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14806	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14807	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14808	(NonScrollableArbitraryComponentSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14809	name: 'Preview'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14810	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14811	level: 1
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14812	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14813	hasBorder: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14814	component: ImageView
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14815	)
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14816	(ActionButtonSpec
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14817	label: 'closePreviewButtonImage'
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14818	name: 'ClosePreviewButton'
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14819	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14820	visibilityChannel: previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14821	hasCharacterOrientedLabel: false
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14822	translateLabel: true
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14823	model: closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14824	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14825	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14826
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14827	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14828	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14829	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14831	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14832
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14833	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14834	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14835	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14836
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14837	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	14838	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14839
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14840	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	14841
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14842	self withWaitCursorDo:[
6081 74df33ee24b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6073 diff changeset	14843	Transcript showCR:'Change style to ' , newStyle , ' ...'.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14844	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14845	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	14846	self reopenToolsAfterChangedViewStyleSetting.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14847	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14848
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14849	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14850	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14851	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14852
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14853	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14854
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14855	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14856	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14858	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14859
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14860	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14861
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14862	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14863	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14864	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14865	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14866	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14867
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14868	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14869
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14870	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14871	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14872	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14873	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14874	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14875
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14876	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14877
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14878	previewVisibleHolder isNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14879	previewVisibleHolder := ValueHolder new.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14880	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14881	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14882	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14883	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14884
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14885	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14887	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14888	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14889	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14890	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14891	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14892	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14893
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14894	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14895
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14896	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14897	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14898	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14899	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14900	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14901	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14902
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14903	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14904
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14905	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14906	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14907	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14908	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	14909	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14910	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14912	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14913
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14914	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14915	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14916
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14917	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14918	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14919	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14920	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14921	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14922	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14924	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14925	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14926	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14927	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14928	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14929
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14930	self previewVisibleHolder value ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14931	self builder notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14932	labelView := self componentAt:#PreviewLabel.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14933	labelView label:'Sorry - no preview available'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14934
9167 19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14935	imgView := (self componentAt:#Preview).
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14936	imgView image:nil.
19af7e8b4681 * empty log message * Claus Gittinger <cg@exept.de> parents: 9163 diff changeset	14937
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14938	previewFile notEmptyOrNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14939	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14940	previewImage notNil ifTrue:[
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14941	labelView label:'Preview'.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14942	imgView adjust:#fitBig; image:previewImage.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14943	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14944	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14945	labelView forceResizeHorizontally.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14946	]
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14947	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14948	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14949
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14950	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14951	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14952	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14953	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14954	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14955	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14956	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	14957	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	14958	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	14959	].
c72e35116b13 instable state penk parents: 5040 diff changeset	14960	super
c72e35116b13 instable state penk parents: 5040 diff changeset	14961	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	14962	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	14963	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14964	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14965
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14966	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14967
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14968	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14970	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14971	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14972	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14973	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14974	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14975	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14976	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14977	self showStandardStylesOnly value ifTrue:[
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	14978	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14979	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14981	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14982	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14983	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14984
041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	14985	"Modified: / 07-11-2006 / 13:58:09 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14986	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14987
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14988	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14989
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14990	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14991	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14992	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14993
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14994	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	14995
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14996	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14997	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14998	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	14999	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	15000
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	15001	commonPostBuildWith:aBuilder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	15002	super commonPostBuildWith:aBuilder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	15003	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	15004
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15005	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15007	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15008
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15009	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15010
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15011	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15012	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15013	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15014	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15015	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15016	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15017	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15018	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15019	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15020	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15021	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15022	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15023	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	15024	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15025	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15026	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15027
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15028	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15029	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15030	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15031	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15032	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15033	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	15034
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15035	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	15036	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15037	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15038	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15039	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15040	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	15041	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	15042
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	15043	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	15044	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	15045	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15046	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15048	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15049
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15050	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15052	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15053	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15054
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15055	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15056
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15057	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15058
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15059	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15060	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15061	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15062	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15063	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15064	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15065	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15066	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15067	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15068	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15069	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15070	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15071	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15072	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15073	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15074	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15075	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15076	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15077	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15078
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15079	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15081	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15082	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15083	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15085	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15087	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15088	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15089	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15090	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15091	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15092	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15093	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15094	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15095	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15096	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15097	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15098	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15100	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15101
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15102	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15103	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15104	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15105	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15106	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15107	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15108	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15109	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15110	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15111	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15112	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15113	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15114	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15115	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15116	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15117	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15118	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15119	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15120	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15121
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15122	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15123
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15124	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15125	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15126	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15128	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15129	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15130
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15131	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15132	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15133	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15134	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15135	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15137	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15138
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15139	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15140	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15141	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	15142	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15143	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15144	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	15145	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15146
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15147	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15148
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15149	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15150	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15151	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15153	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15154	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15156	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15157	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15158	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15159	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15160	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15162	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15163
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15164	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15165	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15166	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15167	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15168	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15169	label: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15170	name: 'Syntax Color Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15171	min: (Point 10 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15172	bounds: (Rectangle 0 0 695 609)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15173	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15174	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15175	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15176	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15177	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15178	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15179	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	15180	horizontalLayout: fit
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15181	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15182	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15183	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15184	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15185	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15186	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15187	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15188	name: 'ElementSelectionBox'
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15189	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15190	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15191	collection: (
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15192	(LabelSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15193	label: 'Element:'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15194	name: 'Label4'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15195	layout: (LayoutFrame 0 0 0 0 100 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15196	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15197	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15198	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15199	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15200	name: 'ComboList3'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15201	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	15202	enableChannel: syntaxColoring
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15203	model: syntaxElementSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15204	comboList: syntaxElementList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15205	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15206	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15207	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15208	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15209
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15210	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15211	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15212	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15213	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15214	name: 'ColorBox'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15215	component:
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15216	(SpecCollection
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15217	collection: (
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15218	(LabelSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15219	label: 'Color:'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15220	name: 'Label2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15221	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15222	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15223	adjust: right
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15224	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15225	(ColorMenuSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15226	name: 'ColorMenu2'
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15227	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15228	enableChannel: syntaxColoring
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15229	model: syntaxColor
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15230	labelsAreColored: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15231	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15232	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15233
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15234	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15235	extent: (Point 695 25)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15236	)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15237	(ViewSpec
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15238	name: 'EmphasisBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15239	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15240	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15241	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15242	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15243	label: 'Emphasis:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15244	name: 'Label1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15245	layout: (LayoutFrame 40 0 0 0 140 0 22 0)
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15246	translateLabel: true
ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15247	adjust: right
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15248	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15249	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15250	name: 'ComboList5'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15251	layout: (LayoutFrame 140 0 0 0 0 1 22 0)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15252	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15253	model: syntaxEmphasisSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15254	comboList: syntaxEmphasisList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15255	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15256	hidePullDownMenuButton: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15257	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15258	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15260	)
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15261	extent: (Point 695 25)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15262	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15263	(ViewSpec
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15264	name: 'ResetBox'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15265	component:
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15266	(SpecCollection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15267	collection: (
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15268	(ActionButtonSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15269	label: 'Reset To:'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15270	name: 'Button2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15271	layout: (LayoutFrame 0 0 -22 1 150 0 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15272	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15273	model: resetToColorScheme
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15274	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15275	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15276	(ComboListSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15277	name: 'ComboList4'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15278	layout: (LayoutFrame 150 0 -22 1 0 1 0 1)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15279	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15280	model: resetListSelection
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15281	comboList: resetList
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15282	useIndex: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15283	hidePullDownMenuButton: false
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15284	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15285	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15286
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15287	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15288	extent: (Point 695 35)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15289	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15290	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15291	name: 'SpacingBox1'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15292	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15293	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15294	(LabelSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15295	label: 'Sample Output:'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15296	name: 'SampleLabel3'
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15297	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15298	adjust: left
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15299	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15300	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15301	(TextEditorSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15302	name: 'TextEditor2'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15303	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15304	model: coloredText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15305	hasHorizontalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15306	hasVerticalScrollBar: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15307	isReadOnly: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15308	extent: (Point 695 280)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15309	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15310	(ViewSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15311	name: 'SpacingBox2'
6020 ccf97fc9c1e8 * empty log message * ca parents: 6018 diff changeset	15312	extent: (Point 695 10)
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15313	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15314	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15315	label: 'Syntax Coloring'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15316	name: 'CheckBox1'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15317	model: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15318	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15319	extent: (Point 695 22)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15320	)
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15321	(CheckBoxSpec
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15322	label: 'Immediate Selector Check'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15323	name: 'ImmediateSelectorCheckBox'
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15324	enableChannel: syntaxColoring
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15325	model: fullSelectorCheck
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15326	translateLabel: true
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15327	extent: (Point 695 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15328	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15329	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15330
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15331	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15332	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15333	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15334
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15335	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15336	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15337	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15338
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15339	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15340
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15341	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15342	\|colorList resetListLoc\|
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15343
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15344	oldUserPreferences notNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15345	(UserPreferences reset; current) addAll:oldUserPreferences
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15346	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15347
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15348	self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15349	readAspects:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15350	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15351	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15352	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15353	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15354	from:currentUserPrefs.
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15355
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15356	oldUserPreferences := currentUserPrefs copy.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15357	colorList := UserPreferences syntaxColorNames.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15358	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15359	collect:[:entry \| entry second].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15360	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15361	self resetListSelection value:resetListLoc first.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15362	self syntaxEmphasisList value:self class emphasisList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15363	self syntaxElementList value:colorList.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15364	self syntaxElementSelection value:(colorList at:1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15365	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15366
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15367	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15368
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15369	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15370	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15371	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15372	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15373
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15374	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15375	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15376
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15377	self syntaxColoring value ifTrue:[
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15378	text := SyntaxHighlighter
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15379	formatMethod:self class exampleText
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15380	in:nil
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15381	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15382	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15383	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15384	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15385	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15386	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15387
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15388	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15389	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15390
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15391	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	15392	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	15393	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15394	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15395	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15396	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15397
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15398	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15400	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15401
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15402	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15403	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15404	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15405	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15406	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15408	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15409
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15410	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15411	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15412	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15413	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15414	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15415	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15416
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15417	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15418
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15419	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15420	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15421	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15422	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15423
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15424	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15425	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15427	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15428
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15429	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15430	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15431	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15432	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15433	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15434
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15435	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15436
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15437	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15438	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15439	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15440	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15441	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15442	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15443
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15444	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15445
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15446	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15447	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15448	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15449	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15450	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15451	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15452	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15453
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15454	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15455	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15456	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15457	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15458	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15459
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15460	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15461	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15463	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15464
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15465	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15466	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15467	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15468	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15469	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15470
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15471	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15472	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15473
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15474	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15475	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15476	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15477	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15478	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15479
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	15480	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15481	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	15482
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15483	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15484
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15485	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15486	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15487	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15488	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15489	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15490	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15492	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15493
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15494	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15495	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15496
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15497	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15498	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15500	syntaxColorChanged
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15501	currentUserPrefs at:(self syntaxColorSelector) put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15502	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15503	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15504	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15505
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15506	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15507
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15508	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15509
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15510	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15511	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15512	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15513	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15514	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15515
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15516	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15517	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15518
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15519	em := self getEmphasis:self syntaxEmphasisSelection value.
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15520	currentUserPrefs at:(self syntaxEmphasisSelector) put:em.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15521	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	15522	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15523	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15524
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15525	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15526	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15527	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15528	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15529	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15530	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15531	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15532	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15533	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15534	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15535	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15536	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15537	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15538	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15539	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15540	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15541	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15542
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15543	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15544	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15545
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15546	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15547
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15548	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15549	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15550	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15551
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15552	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15553
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15554	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15555	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15556	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15557
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15558	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15559	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15560	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15561	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15562	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15563
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15564	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15565
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15566	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15567	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15568	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15569	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15570	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15571	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15572	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15573	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15574	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15575	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15576	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15577	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	15578	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	15579	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15580	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15581	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	15582	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	15583	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15584	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15585	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	15586	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	15587	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15588	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15589	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	15590	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	15591	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15592	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15593	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15594	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15595	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15596	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15597	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15598	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15599	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15600	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15601
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15602	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15603
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15604	oldUserPreferences notNil ifTrue:[
5943 df089099d96d Use #addAll: instead of #declareAllFrom:, since #declareAllFrom: Stefan Vogel <sv@exept.de> parents: 5920 diff changeset	15605	(UserPreferences reset; current) addAll:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15606	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15607	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15608	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15609
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15610	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15611
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15612	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15613	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15614
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15615	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15616	colorList do:[:syntaxElement \|
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15617	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15618	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15619	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15620	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15621	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15622	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15623	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15624	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15625	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15626	].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15627
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15628	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15629	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15630	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15631	syntaxColoring
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15632	fullSelectorCheck
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15633	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15634	asComparedTo:currentUserPrefs) ifTrue:[^ true].
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15635
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15636	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15637	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15638
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15639	syntaxColorSelector
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15640	^ (self syntaxColorSelectorForElement:self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15641	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15643	syntaxColorSelectorForElement:aSyntaxElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15644	^ (aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15645	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15646
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15647	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15648
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15649	^ self syntaxEmphasisSelectorForElement:(self syntaxElementSelection value)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15650	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15652	syntaxEmphasisSelectorForElement:anEmElement
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15653	^ (((self syntaxColorSelectorForElement:anEmElement) readStream upToAll: 'Color'), 'Emphasis')
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	15654	asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15655	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15656
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15657	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15658
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15659	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15660	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15661
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15662	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15663
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	15664	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15665	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15666
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15667	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15668
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15669	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15670	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15671	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15672
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15673	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15674	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15675
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15676	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15677	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15678	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15679	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15680	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15681
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15682	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15683
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15684	^
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15685	#(FullSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15686	name: windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15687	window:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15688	(WindowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15689	label: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15690	name: 'Tool Settings'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15691	min: (Point 10 10)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15692	bounds: (Rectangle 0 0 607 786)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15693	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15694	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15695	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15696	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15697	(VerticalPanelViewSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15698	name: 'VerticalPanel2'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15699	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	15700	horizontalLayout: fit
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15701	verticalLayout: top
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15702	horizontalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15703	verticalSpace: 3
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15704	component:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15705	(SpecCollection
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15706	collection: (
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15707	(CheckBoxSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15708	label: 'Show Accept/Cancel Bar in Editor'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15709	name: 'ShowAcceptCancelBarInBrowser'
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15710	model: showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15711	translateLabel: true
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15712	extent: (Point 607 25)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15713	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15714	(CheckBoxSpec
8922 7caf746db664 * empty log message * Claus Gittinger <cg@exept.de> parents: 8916 diff changeset	15715	label: 'Show Search Bar in Browser'
7caf746db664 * empty log message * Claus Gittinger <cg@exept.de> parents: 8916 diff changeset	15716	name: 'ShowSearchBarInBrowser'
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15717	model: useSearchBarInBrowser
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15718	translateLabel: true
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15719	extent: (Point 607 25)
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15720	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15721	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15722
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15723	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15724	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15725	)
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15726
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15727	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15728	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15729	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15730
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15731	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15732
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15733	basicReadSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15734	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15735	readAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15736	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15737	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15738	useSearchBarInBrowser
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15739	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15740	from:currentUserPrefs.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15741	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15742
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15743	basicSaveSettings
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15744	self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15745	writeAspects:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15746	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15747	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15748	useSearchBarInBrowser
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15749	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15750	to:currentUserPrefs.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15751	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15752
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15753	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15754
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15755	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15756	showAcceptCancelBarInBrowser isNil ifTrue:[
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15757	showAcceptCancelBarInBrowser := false asValue.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15758	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15759	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15760	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15761	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	15762
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15763	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	15764	"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	15765	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	15766
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15767	useSearchBarInBrowser isNil ifTrue:[
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15768	useSearchBarInBrowser := true asValue.
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15769	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15770	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15771	^ useSearchBarInBrowser.
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15772	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15773
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15774	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15775
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15776	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15777	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15778	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15779
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15780	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'queries'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15781
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15782	hasUnsavedChanges
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15783	(self
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15784	hasChangedAspectIn:
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15785	#(
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15786	showAcceptCancelBarInBrowser
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	15787	useSearchBarInBrowser
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15788	)
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15789	asComparedTo:currentUserPrefs) ifTrue:[^ true].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15790	^ false.
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15791	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	15792
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15793	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15794
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15795	helpSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15796	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15797	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15798
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15799	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15800	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15801
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15802	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15803	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15804	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15805
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15806	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15807
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15808	^ super helpSpec addPairsFrom:#(
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15809
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15810	#showToolTips
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15811	''
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15812
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15813	#toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15814	''
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15815
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15816	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15817	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15818
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15819	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15820
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15821	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15822	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15823	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15824
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15825	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15826	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15827
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15828	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15829	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15830	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15831	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15832	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15833
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15834	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15835
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15836	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15837	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15838	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	15839	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15840	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15841	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15842	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	15843	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	15844	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	15845	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15846
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15847	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15848
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15849	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15850	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15851	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15853	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15854	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15856	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15857	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15858	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15859	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15860	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15862	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15864	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15865	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15866	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15867	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15868	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15869	label: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15870	name: 'Messages Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15871	min: (Point 10 10)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15872	bounds: (Rectangle 0 0 561 478)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	15873	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15874	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15875	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15876	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15877	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15878	name: 'VerticalPanel2'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15879	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	15880	horizontalLayout: fitSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15881	verticalLayout: topSpace
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15882	horizontalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15883	verticalSpace: 5
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15884	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15885	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15886	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15887	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15888	label: 'Info & Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15889	name: 'FramedBox1'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15890	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15891	translateLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15892	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15893	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	15894	collection: (
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15895	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15896	label: 'VM Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15897	name: 'VMInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15898	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15899	model: vmInfo
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15900	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15901	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15902	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15903	label: 'VM Error Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15904	name: 'VMErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15905	layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15906	model: vmErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15907	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15908	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15909	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15910	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15911	name: 'DisplayErrorMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15912	layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15913	model: displayErrors
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15914	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15915	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15916	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15917	label: 'Other Info Messages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15918	name: 'OtherInfoMessages'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15919	layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15920	model: classInfos
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15921	translateLabel: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	15922	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15923	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15924
933cd54deefe checkin from browser penk parents: 4292 diff changeset	15925	)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15926	extent: (Point 551 133)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15927	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15928	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15929	label: 'Audible Bell'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15930	name: 'FramedBox3'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15931	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15932	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15933	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15934	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15935	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15936	(CheckBoxSpec
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15937	label: 'Beep Generally Enabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15938	name: 'beepEnabled'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15939	layout: (LayoutFrame 5 0 5 0 226 0 27 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15940	model: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15941	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15942	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15943	(CheckBoxSpec
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15944	label: 'Beep in Editor'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15945	name: 'CheckBox7'
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15946	layout: (LayoutFrame 40 0 30 0 300 0 52 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15947	enableChannel: beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15948	model: beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15949	translateLabel: true
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15950	)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15951	(CheckBoxSpec
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15952	label: 'Beep for Info Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15953	name: 'CheckBox3'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15954	layout: (LayoutFrame 40 0 55 0 300 0 77 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15955	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15956	model: beepForInfoDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15957	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15958	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15959	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15960	label: 'Beep for Warning Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15961	name: 'CheckBox4'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15962	layout: (LayoutFrame 40 0 80 0 300 0 102 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15963	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15964	model: beepForWarningDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15965	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15966	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15967	(CheckBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15968	label: 'Beep for Error Dialogs'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15969	name: 'CheckBox5'
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15970	layout: (LayoutFrame 40 0 105 0 300 0 127 0)
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15971	enableChannel: beepEnabled
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15972	model: beepForErrorDialog
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15973	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15974	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15975	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15976
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15977	)
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	15978	extent: (Point 551 164)
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15979	)
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15980	(FramedBoxSpec
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15981	label: 'Help'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15982	name: 'FramedBox4'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15983	labelPosition: topLeft
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15984	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15985	component:
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15986	(SpecCollection
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15987	collection: (
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15988	(CheckBoxSpec
7941 c8d90d772c3c * empty log message * Claus Gittinger <cg@exept.de> parents: 7925 diff changeset	15989	label: 'Tooltips (FlyBy Help)'
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15990	name: 'CheckBox6'
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15991	layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15992	activeHelpKey: showToolTips
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	15993	model: flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15994	translateLabel: true
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	15995	)
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15996	(InputFieldSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15997	name: 'EntryField1'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	15998	layout: (LayoutFrame -72 1 5 0 -16 1 27 0)
9628 a429f12b2c55 x Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	15999	enableChannel: flyByHelpActive
a429f12b2c55 x Claus Gittinger <cg@exept.de> parents: 9627 diff changeset	16000	model: toolTipAutoHideDelay
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16001	type: timeDurationOrNil
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16002	acceptOnReturn: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16003	acceptOnTab: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16004	acceptOnPointerLeave: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16005	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16006	(LabelSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16007	label: 'Autohide after:'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16008	name: 'Label1'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16009	layout: (LayoutFrame -260 1 6 0 -76 1 28 0)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16010	activeHelpKey: toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16011	translateLabel: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16012	adjust: right
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16013	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16014	(LabelSpec
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16015	label: '(s)'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16016	name: 'Label2'
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16017	layout: (LayoutFrame -13 1 6 0 7 1 28 0)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16018	translateLabel: true
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16019	adjust: left
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16020	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16021	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16022
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16023	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16024	extent: (Point 551 62)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16025	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16026	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16028	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16029	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16030	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16032	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16033	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16034	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16036	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16037
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16038	aspects
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16039	^ #(
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16040	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16041	beepInEditor
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16042	beepForInfoDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16043	beepForWarningDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16044	beepForErrorDialog
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	16045	flyByHelpActive
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16046	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16047	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16048
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16049	"Created: / 10-11-2010 / 12:07:42 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16050	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16051
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16052	basicReadSettings
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16053	self readAspects:(self aspects) from:currentUserPrefs.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16054
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16055	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16056	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16057	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16058	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	16059
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16060	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16061	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16062
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16063	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16064
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16065	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16066	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16067	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16068	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16069
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16070	self writeAspects:(self aspects) to:currentUserPrefs.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16071
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16072	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16073	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16075	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16076
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16077	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16078	beepEnabled isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16079	beepEnabled := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16080	beepEnabled onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16081	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16082	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16083	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16084
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16085	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16086	beepForErrorDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	16087	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16088	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16089	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16090	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16091	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16092
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16093	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16094	beepForInfoDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	16095	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16096	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16097	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16098	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16099	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16100
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16101	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16102	beepForWarningDialog isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	16103	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16104	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16105	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16106	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16107	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	16108
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16109	beepInEditor
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16110	beepInEditor isNil ifTrue:[
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16111	beepInEditor := true asValue.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16112	beepInEditor onChangeSend:#updateModifiedChannel to:self
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16113	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16114	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16115	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	16116
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16117	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16118
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16119	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16120	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16121	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16122	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16123	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16124	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16125
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16126	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16127
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16128	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16129	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16130	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16131	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16132	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16133	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16134
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16135	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16137	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16138	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16139	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16140	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16141	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16142	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16143
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	16144	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	16145	flyByHelp isNil ifTrue:[
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	16146	flyByHelp := currentUserPrefs flyByHelpActive asValue.
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	16147	flyByHelp onChangeSend:#updateModifiedChannel to:self
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	16148	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	16149	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	16150	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	16151
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16152	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16153
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16154	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16155	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16156	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16157	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16158	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16159	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16160
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16161	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16162	toolTipAutoHideDelay isNil ifTrue:[
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16163	toolTipAutoHideDelay := 10 seconds asValue.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16164	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16165	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16166	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16167
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16168	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16169	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16170
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16171	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16172
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16173	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16174	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16175	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16176	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16177	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16178	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16179
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16180	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16181
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16182	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16183	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16184	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16185	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16186	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16187	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16188
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16189	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16190
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16191	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16192	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16193	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16194	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16195	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16196	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16197
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16198	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16199
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16200	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16201	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16202	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16203
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16204	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16205
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16206	hasUnsavedChanges
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16207	(self hasChangedAspectIn:(self aspects) asComparedTo:currentUserPrefs) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16208
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16209	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16210	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16211	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16212	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16213	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	16214
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	16215	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16216	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16217
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16218	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16219
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16220	flyByHelpSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16221	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16222	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16223
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16224	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16225	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16226
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16227	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16228	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16229	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16230
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16231	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16232
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16233	^ super flyByHelpSpec addPairsFrom:#(
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16234
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16235	#autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16236	'Autoraise the Transcript window when messages are added.'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16237
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16238	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16239	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16240
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16241	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16242	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16243
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16244	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16245	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16246
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16247	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16248	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16249
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16250	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16251	'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	16252	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16253	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16254
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16255	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16256
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16257	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16258	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16259	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16260
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16261	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16262	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16263
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16264	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16265	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16266	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16267	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16268	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16269
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16270	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16271
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16272	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16273	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16274	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	16275	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16276	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	16277	@@@@@@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	16278	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	16279
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16280	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16281
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16282	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16283	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16284	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16286	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16287	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16289	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	16290	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16291	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16292	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16293	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16295	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16297	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16298	#(FullSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16299	name: windowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16300	window:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16301	(WindowSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16302	label: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16303	name: 'Tool Settings'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16304	min: (Point 10 10)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16305	bounds: (Rectangle 0 0 607 786)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16306	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16307	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16308	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16309	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16310	(VerticalPanelViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16311	name: 'VerticalPanel2'
9272 da1181809311 * empty log message * Claus Gittinger <cg@exept.de> parents: 9233 diff changeset	16312	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	16313	horizontalLayout: fit
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16314	verticalLayout: top
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16315	horizontalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16316	verticalSpace: 3
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16317	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16318	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16319	collection: (
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16320	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16321	label: 'Use the New System Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16322	name: 'NewSystemBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16323	activeHelpKey: useNewSystemBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16324	model: useNewSystemBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16325	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16326	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16327	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16328	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16329	label: 'Use the New File Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16330	name: 'NewFileBrowser'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16331	activeHelpKey: useNewFileBrowser
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16332	model: useNewFileBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16333	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16334	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16335	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16336	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16337	label: 'Use the New VersionDiff Browser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16338	name: 'VersionDiffBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16339	model: useNewVersionDiffBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16340	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16341	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16342	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16343	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16344	label: 'Use the New FileTree File Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16345	name: 'UseNewFileDialogCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16346	model: useNewFileDialog
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16347	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16348	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16349	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16350	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16351	label: 'Use the New Settings Dialog'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16352	name: 'UseNewSettinsApplicationCheckBox'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16353	model: useNewSettingsApplication
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16354	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16355	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16356	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16357	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16358	label: 'Use the New Process Monitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16359	name: 'UseNewProcessMonitor'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16360	model: useProcessMonitorV2
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16361	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16362	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16363	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16364	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16365	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	16366	name: 'ChangesBrowser'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16367	model: useNewChangesBrowser
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16368	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16369	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16370	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16371	(CheckBoxSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16372	label: 'Use Hierarchical Inspector (not yet recommended)'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16373	name: 'HierarchicalInspector'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16374	model: useNewInspector
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16375	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16376	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16377	)
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16378	(CheckBoxSpec
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16379	label: 'Use the Smalltalk Document Viewer'
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16380	name: 'UseSmalltalkDocumentViewer'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16381	activeHelpKey: useSmalltalkDocumentView
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16382	model: useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16383	translateLabel: true
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16384	extent: (Point 607 25)
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16385	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16386	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16387	name: 'Box2'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16388	extent: (Point 607 20)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16389	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16390	(CheckBoxSpec
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16391	label: 'Show "Tip Of The Day" at Startup'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16392	name: 'CheckBox1'
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16393	model: showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16394	translateLabel: true
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16395	extent: (Point 607 25)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16396	)
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16397	(CheckBoxSpec
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16398	label: 'Show Clock in Launcher'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16399	name: 'Clock'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16400	activeHelpKey: showClockInLauncher
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16401	model: showClockInLauncher
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16402	translateLabel: true
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16403	extent: (Point 607 25)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16404	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16405	(ViewSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16406	name: 'Box3'
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16407	extent: (Point 607 19)
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16408	)
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16409	(HorizontalPanelViewSpec
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16410	name: 'HorizontalPanel1'
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	16411	horizontalLayout: left
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16412	verticalLayout: center
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16413	horizontalSpace: 3
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16414	verticalSpace: 3
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16415	component:
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16416	(SpecCollection
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16417	collection: (
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16418	(ViewSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16419	name: 'Box4'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16420	extent: (Point 20 10)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16421	)
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16422	(LabelSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16423	label: 'Transcripts Buffer Size:'
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16424	name: 'Label1'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16425	activeHelpKey: transcriptBufferSize
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16426	translateLabel: true
8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	16427	resizeForLabel: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16428	adjust: right
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16429	useDefaultExtent: true
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16430	)
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16431	(InputFieldSpec
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16432	name: 'Transcripts Buffer Size'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16433	activeHelpKey: transcriptBufferSize
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16434	model: transcriptBufferSize
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16435	type: number
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16436	immediateAccept: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16437	acceptOnReturn: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16438	acceptOnTab: true
b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16439	acceptOnLostFocus: true
8081 8cc8c1cc6538 Fix field size for "Transcript Buffer Size" Stefan Vogel <sv@exept.de> parents: 8036 diff changeset	16440	numChars: 8
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	16441	acceptOnPointerLeave: true
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16442	extent: (Point 78 22)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16443	)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16444	(LabelSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16445	label: '(Lines)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16446	name: 'Label2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16447	activeHelpKey: transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16448	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16449	resizeForLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16450	adjust: right
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16451	useDefaultExtent: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	16452	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16453	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16454
933cd54deefe checkin from browser penk parents: 4292 diff changeset	16455	)
6021 e25ed9197b7d * empty log message * ca parents: 6020 diff changeset	16456	extent: (Point 607 35)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16457	)
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16458	(CheckBoxSpec
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16459	label: 'Autoraise Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16460	name: 'CheckBox2'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16461	activeHelpKey: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16462	model: autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16463	translateLabel: true
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16464	extent: (Point 607 24)
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16465	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16466	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16468	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16469	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16470	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16472	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16473	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16474	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16476	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16477
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16478	basicReadSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16479	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16480	readAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16481	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16482	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16483	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16484	useNewSystemBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16485	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16486	useNewFileBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16487	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16488	useNewSettingsApplication
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16489	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16490	useSmalltalkDocumentViewer
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16491	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16492	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16493	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16494	from:currentUserPrefs.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16495
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16496	Transcript current isExternalStream ifFalse:[
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16497	self transcriptBufferSize value:Transcript current lineLimit.
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16498	self autoRaiseTranscript value:Transcript current autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16499	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16500	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16501
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16502	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16503	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16504
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16505	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16506
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16507	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16508
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16509	self
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16510	writeAspects:
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16511	#(
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16512	useNewInspector
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16513	useNewChangesBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16514	useNewVersionDiffBrowser
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16515	useNewFileDialog
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16516	useProcessMonitorV2
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16517	useSmalltalkDocumentViewer
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16518	showTipOfTheDayAtStartup
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16519	)
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16520	to:currentUserPrefs.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16521
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16522	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16523	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16524	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16525
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16526	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16527	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16528	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16529	newSystemBrowserClass installInLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16530	] ifFalse:[
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	16531	newSystemBrowserClass removeFromLauncher.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16532	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16533	reopenLauncher := true.
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16534	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	16535
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16536	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16537	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16538	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16539	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16540	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16541	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16542	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16543	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16544	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16545	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16546	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16547
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16548	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16549	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16550	transcript lineLimit:self transcriptBufferSize value.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16551	transcript autoRaise:self autoRaiseTranscript value.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16552	launcher := transcript application.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16553	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16554
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16555	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16556	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16557	currentUserPrefs showClockInLauncher:showClock.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16558	launcher notNil ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16559	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16560	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16561	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16562	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16563	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16564	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16566	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16567
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16568	reopenLauncher ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16569	launcher notNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16570	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16571	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16572	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16573	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16575	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16576
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16577	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16578	autoRaiseTranscript isNil ifTrue:[
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16579	autoRaiseTranscript := false asValue.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16580	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16581	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16582	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16583
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16584	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16585	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16587	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16588	showClockInLauncher isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16589	showClockInLauncher := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16590	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16591	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16592	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16593
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16594	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16595	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16596
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16597	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16598	showTipOfTheDayAtStartup isNil ifTrue:[
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16599	showTipOfTheDayAtStartup := false asValue.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16600	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16601	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16602	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16603
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16604	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16605	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16607	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16608	transcriptBufferSize isNil ifTrue:[
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16609	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16610	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16611	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16612	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16613	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16614
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16615	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16616	useNewChangesBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16617	useNewChangesBrowser := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16618	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16619	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16620	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16621
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16622	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16623	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16624
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16625	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16626	useNewFileBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16627	useNewFileBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16628	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16629	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16630	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16631
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16632	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16633	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16634
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16635	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16636	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16637	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16638	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16639	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16640	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16641	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16643	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16644	useNewInspector isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16645	useNewInspector := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16646	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16647	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16648	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16649
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16650	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16651	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16653	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16654	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16655	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16656	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16657	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16658	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16659	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16661	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16662	useNewSystemBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16663	useNewSystemBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16664	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16665	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16666	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16667
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16668	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16669	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16670
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16671	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16672	useNewVersionDiffBrowser isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16673	useNewVersionDiffBrowser := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16674	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16675	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16676	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16677
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16678	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16679	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16680
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16681	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16682	useProcessMonitorV2 isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16683	useProcessMonitorV2 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	16684	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16685	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	16686	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16687
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16688	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16689	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16690
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16691	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16692	useSmalltalkDocumentViewer isNil ifTrue:[
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16693	useSmalltalkDocumentViewer := nil asValue.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16694	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16695	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16696	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16697
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	16698	"Modified: / 21-09-2006 / 00:03:13 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16699	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16700
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16701	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16702
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16703	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16704	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16705	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16706
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16707	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16708
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16709	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16710	(self
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16711	hasChangedAspectIn:
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16712	#(
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16713	useNewInspector
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16714	useNewChangesBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16715	useNewSystemBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16716	useNewVersionDiffBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16717	useNewFileBrowser
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16718	useNewFileDialog
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16719	useNewSettingsApplication
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16720	useProcessMonitorV2
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16721	useSmalltalkDocumentViewer
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16722	showClockInLauncher
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	16723	showTipOfTheDayAtStartup
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16724	)
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16725	asComparedTo:currentUserPrefs) ifTrue:[^ true].
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	16726
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16727	Transcript current isExternalStream ifFalse:[
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16728	(self transcriptBufferSize value ~= Transcript current lineLimit) ifTrue:[^ true].
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	16729	(self autoRaiseTranscript value ~= Transcript current autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16730	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	16731	^ false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16732	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16733
4226 44e2f83cc526 initial checkin penk parents: diff changeset	16734	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	16735
44e2f83cc526 initial checkin penk parents: diff changeset	16736	version
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	16737	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.381 2011-02-09 19:40:50 cg Exp $'
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	16738	!
a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	16739
a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	16740	version_CVS
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	16741	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.381 2011-02-09 19:40:50 cg Exp $'
d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	16742	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 10 Feb 2011 16:58:13 +0100
changeset 9756	5a1787bbf85e
parent 9754	d237d1faea20
child 9792	3786b182781a
permissions	-rw-r--r--